x-1919のプロフィール

@x-1919 x-1919
ありがとう数152
質問数0
回答数284
ベストアンサー数
91
ベストアンサー率
52%
お礼率
0%

  • 登録日2012/05/27
  • VBA入力フォームで労働時間の計算をしたい

    VBAで入力フォームを作りました。 　1）開始時間（textbox1)・終了時間（textbox2)・休憩時間（textbox3)・従事人数（textbox4) の入力を行うと自動的に延べ労働時間（textbox5)計算し表示をしたいです。 　【例：13：00（開始）　14：00（終了）　0：15（休憩１５分）　5（従事人数）　＝3：45（textbox5)】 　例の3：45という答えがでる計算式を教えていただけないでしょうか？ また、上記の同項目が１０個あり、延べ労働時間の合計を表示するところも作りました。（textbox6) 　2）時間記入時13：00と入力が面倒なので『1300』というように『：』を省略したいです。 　　　なお答えの欄は『：』の表記したいです。 　3）また、計算終了後、表記入のボタンを押すと指定したセルに（textbox6)の答えが表示できるよう作成したいです。 　 　０からの質問で恐縮ですが1）～3）の質問お願いについてご回答よろしくお願いいたします。

  • 英語版のワードを使いたい

    外国人を雇用してます。日本製のパソコン（WIN8)で英語版wordを使うにはどうしたらいいですか？今のオフィスには言語切り替え機能はついてますか？いろいろ調べてもどうも要領を得ません。よろしくお願いします。

    • rshino3
    • 回答数2
  • 予約フォーム設置の相場

    自宅でレッスン教室を開いています。 ユーザーがレッスンの空き時間を確認して、予約を入れる（ホットペッパーbeautyのようなシステム）予約フォームを業者の方にお願いした場合の相場を教えていただけないでしょうか。 宜しくお願いします。

    • noname#228475
    • 回答数4
  • Access　SQLについて

    下記の式で実行するとクエリ式’Format((NZ([フロントNG]))/(NZ([後確NG])+NZ([エントリー後NG])+NZ([アンテナ後確NG])+(NZ([フロントNG])+NZ([決裁者NG])+NZ([アンテナNG])+NZ([検討NG])+NZ([対象回線済NG])+NZ([NG])),"0%") AS フロントNG率 FROM t_エクセル貼り付け;　の構文エラー：演算子がありません。 というエラーが出ます。 SELECT t_エクセル貼り付け.地域, Format((NZ([フロントNG]))/(NZ([後確NG])+NZ([エントリー後NG])+NZ([アンテナ後確NG])+(NZ([フロントNG])+NZ([決裁者NG])+NZ([アンテナNG])+NZ([検討NG])+NZ([対象回線済NG])+NZ([NG])),"0%") AS フロントNG率 FROM t_エクセル貼り付け; アラビア数字使ってないですし、フィールド名も[]ついています。 なにかおかしいところありますか？？

  • vbsでexcelのクリアとフォームの表示をしたい

    お世話になっております。 vbsの以下の記述でexcelを開いています。 開くところまでは行くのですが、その後のsheet1のデータのクリアとUserForm1の表示がどうしてもできません。 申し訳ありませんが、どなたかおわかりの方、教えていただけないでしょうか。 宜しくお願いいたします。 Dim oApp Dim objWshShell Dim scriptPath 'Excelオブジェト作成 Set oApp = CreateObject("Excel.Application") 'WScript.Shellオブジェクト作成 Set objWshShell = CreateObject("WScript.Shell") oApp.Visible = True '不可視にする oApp.UserControl = True 'Excelファイルを開く scriptPath = WScript.ScriptFullName scriptPath = left(scriptPath,len(scriptPath)-len(WScript.ScriptName)) oApp.Workbooks.Open scriptPath & "共同資料.xlsm"

もっと見る