Ｐａｇｅ 559 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼Subファンクションを使った時差のプログラムンいついて Ｒ 03/1/16(木) 14:52 ┗Re:Subファンクションを使った時差のプログラムンいついて JuJu 03/1/17(金) 10:32 ─────────────────────────────────────── ■題名 ： Subファンクションを使った時差のプログラムンいついて ■名前 ： Ｒ ■日付 ： 03/1/16(木) 14:52 -------------------------------------------------------------------------
| 自分の知りたい日本の時間（例えば15:00）を入力して、時間算出ボタンをおすと、そのデータを用い、Subプロシージャで表記されている各国の対応する時間が自動的に算出される（各国と日本との時差は、別シートにコード表をつくっておく）。というプログラムを作りたいです。難しく、頭が混乱してしまいました。プログラムに関しての答えでもヒントでも考え方でも結構なので教えてください！！ また、Functionプロシージャーで、日本との時差を計算する処理を行い、+1、-5のように表示する、というのもお願いします！ |
| Ｒさん、こんにちはぁ まずは、[#2650]に返信してね。 > 自分の知りたい日本の時間（例えば15:00）を入力して、時間算出ボタンをおすと、そのデータを用い、Subプロシージャで表記されている各国の対応する時間が自動的に算出される（各国と日本との時差は、別シートにコード表をつくっておく）。というプログラムを作りたいです。難しく、頭が混乱してしまいました。プログラムに関しての答えでもヒントでも考え方でも結構なので教えてください！！ 内容が漠然としてて、なんとも言いがたいのですが、 ヒントだけなら、ワークシート関数のVLOOKUP関数を使います。 仮に別シートにコード表（Sheet1にＡ列に国名、Ｂ列に時差）があるのでしたら、 Public Function Func1(ByVal strCountry As String) As Single Func1 = Application.WorksheetFunction.VLookup(strCountry, Sheets("Sheet1").Range("A:B"), 2, False) End Function こんな感じです。 一行なので、関数を作らなくてもいいかもしれません。 > また、Functionプロシージャーで、日本との時差を計算する処理を行い、+1、-5のように表示する、というのもお願いします！ どこに入力されたものを、結果をどこに表示するのですか？ ではではぁ |