Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


7406 / 13644 ツリー ←次へ | 前へ→

【39205】ある時間になるとLabelの文字が変わるよ... 初心者B 06/6/19(月) 18:53 質問[未読]
【39207】Re:ある時間になるとLabelの文字が変わるよ... Blue 06/6/19(月) 18:57 発言[未読]
【39209】Re:ある時間になるとLabelの文字が変わるよ... 初心者B 06/6/19(月) 19:30 質問[未読]
【39216】Re:ある時間になるとLabelの文字が変わるよ... 初心者B 06/6/19(月) 22:08 質問[未読]
【39222】Re:ある時間になるとLabelの文字が変わるよ... Blue 06/6/20(火) 1:02 発言[未読]
【39268】Re:ある時間になるとLabelの文字が変わるよ... 初心者B 06/6/20(火) 19:50 質問[未読]
【39275】Re:ある時間になるとLabelの文字が変わるよ... Blue 06/6/20(火) 23:21 発言[未読]
【39302】Re:ある時間になるとLabelの文字が変わるよ... 初心者B 06/6/21(水) 20:39 質問[未読]
【39303】Re:ある時間になるとLabelの文字が変わるよ... Hiroko 06/6/21(水) 21:32 発言[未読]
【39306】Re:ある時間になるとLabelの文字が変わるよ... KiKoRin 06/6/21(水) 22:38 質問[未読]
【39309】Re:ある時間になるとLabelの文字が変わるよ... Blue 06/6/22(木) 9:21 発言[未読]
【39367】Re:ある時間になるとLabelの文字が変わるよ... 初心者B 06/6/22(木) 16:53 質問[未読]
【39368】Re:ある時間になるとLabelの文字が変わるよ... Blue 06/6/22(木) 17:12 発言[未読]
【39369】Re:ある時間になるとLabelの文字が変わるよ... 初心者B 06/6/22(木) 17:17 お礼[未読]
【39305】Re:ある時間になるとLabelの文字が変わるよ... Blue 06/6/21(水) 22:33 発言[未読]
【39366】Re:ある時間になるとLabelの文字が変わるよ... 初心者B 06/6/22(木) 16:45 質問[未読]

【39205】ある時間になるとLabelの文字が変わるよ...
質問  初心者B  - 06/6/19(月) 18:53 -

引用なし
パスワード
   初めまして。初心者Bと申します。
ある時間になるとLabelの字が自動的に変わるようにしたいのですが、なかなかうまくいきません。具体的には以下のようです。

(例)------------------------------------------
17時ちょうどに
Label1が「A」から「B」に文字が変わる。

17:00:00
   A       B
「あいうえお」→「かきくけこ」
17:10:15
「かきくけこ」→「さしすせそ」

-----------------------------------------------

このような設定にしたいです。
よろしくお願いします。

【39207】Re:ある時間になるとLabelの文字が変わる...
発言  Blue  - 06/6/19(月) 18:57 -

引用なし
パスワード
   ラベルはシート上にあるのでしょうか?

> なかなかうまくいきません。
うまくいかないコードを載せてもらえると、どこで悩んでいるかはっきりします。
指定した時間に動くということなので、OnTimeを使われているんですよね?

【39209】Re:ある時間になるとLabelの文字が変わる...
質問  初心者B  - 06/6/19(月) 19:30 -

引用なし
パスワード
   単純ですが、コードは以下のように作りました。

-----------------------------------------------

Private Sub Automatically_Time()
Label1.Caption = "かきくけこ"
End Sub

-----------------------------------------------
「Automatically」は「自動的に」という意味でつけました。
「Label1.Caption = "かきくけこ"」は、Label1のCaptionが「かきくけこ」になるということでつけました。
動きたい時間(例で17時に動く)という設定を何処に記入すれば良いのかわからなかったため、書いてありません。

このような設定で作りました。

よろしくお願いします。

【39216】Re:ある時間になるとLabelの文字が変わる...
質問  初心者B  - 06/6/19(月) 22:08 -

引用なし
パスワード
   Private Sub Automatically_Time()
Label1.Caption = "かきくけこ"
End Sub

「かきくけこ」とある時間になるとLabelに出るようにOnTimeを何処を消して何処に記入すれば良いのでしょうか。

【39222】Re:ある時間になるとLabelの文字が変わる...
発言  Blue  - 06/6/20(火) 1:02 -

引用なし
パスワード
   とりあえず、OnTimeはヘルプで調べてみましたか?

類似スレ
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=39122;id=excel

それと、
> ラベルはシート上にあるのでしょうか?
は無視ですか。。。

【39268】Re:ある時間になるとLabelの文字が変わる...
質問  初心者B  - 06/6/20(火) 19:50 -

引用なし
パスワード
   OnTimeをヘルプで調べましたがありませんでした。
ラベルはシート上にあります。(無視してしまいすみません)

【39275】Re:ある時間になるとLabelの文字が変わる...
発言  Blue  - 06/6/20(火) 23:21 -

引用なし
パスワード
   ▼初心者B さん:
>OnTimeをヘルプで調べましたがありませんでした。
ありませんとは?
自分のやりたいことのそのままのプログラムが載っているとでも?

>17:00:00
>   A       B
>「あいうえお」→「かきくけこ」
>17:10:15
>「かきくけこ」→「さしすせそ」

' Sheet1モジュール
Sub Test()
  Application.OnTime TimeValue("17:00:00"), "Sheet1.Automatically_Time1"
  Application.OnTime TimeValue("17:10:15"), "Sheet1.Automatically_Time2"
End Sub

Private Sub Automatically_Time1()
  Label1.Caption = "かきくけこ"
End Sub

Private Sub Automatically_Time2()
  Label1.Caption = "さしすせそ"
End Sub

【39302】Re:ある時間になるとLabelの文字が変わる...
質問  初心者B  - 06/6/21(水) 20:39 -

引用なし
パスワード
   「OnTime」で検索しました。
が、VBAのヘルプが我が家のPCに入って(ダウンロードされて)いなかったので、エクセルのヘルプで検索しました。

>Sub Test()
>  Application.OnTime TimeValue("17:00:00"), "Sheet1.Automatically_Time1"
>  Application.OnTime TimeValue("17:10:15"), "Sheet1.Automatically_Time2"
>End Sub
>
>Private Sub Automatically_Time1()
>  Label1.Caption = "かきくけこ"
>End Sub
>
>Private Sub Automatically_Time2()
>  Label1.Caption = "さしすせそ"
>End Sub

をコードに貼り、UserFormにLabel1を作って動かしましたが、うまくいきませんでした。>のついてる部分だけをコードにつければ良いのでしょうか?
よろしくお願いします。

【39303】Re:ある時間になるとLabelの文字が変わる...
発言  Hiroko  - 06/6/21(水) 21:32 -

引用なし
パスワード
   ▼初心者B さん:

おかしいですね。動く筈ですが・・・もう一度確認してください。

コードはシート1のモジュールに貼り付けていますか?

>をコードに貼り、UserFormにLabel1を作って動かしましたが、うまくいきませんでした。>のついてる部分だけをコードにつければ良いのでしょうか?

違います。
Label1は「コントロールツールボックス」のデザインモード(三角の)を押して
ラベル(アルファベットのAです)を押して、エクセル上で作成します。
作成した時「Label1」という文字に変わります。
デザインモードを戻します。

それから実行したい時間を決めます。
最後にマクロの実行をかけることを忘れないように。

これで出来るはずです。

【39305】Re:ある時間になるとLabelの文字が変わる...
発言  Blue  - 06/6/21(水) 22:33 -

引用なし
パスワード
   > UserFormにLabel1を作って動かしましたが
矛盾しすぎ。

何のために
> > ラベルはシート上にあるのでしょうか?
> ラベルはシート上にあります。
と確認をしたんだか。。。

【39306】Re:ある時間になるとLabelの文字が変わる...
質問  KiKoRin  - 06/6/21(水) 22:38 -

引用なし
パスワード
   ▼Blue さん Hiroko さん:

' Sheet1モジュール
Sub Test()
  Application.OnTime TimeValue("17:00:00"), "Sheet1.Automatically_Time1"
  Application.OnTime TimeValue("17:10:15"), "Sheet1.Automatically_Time2"
End Sub

質問です。
時間の設定をエクセル側で触れるように
上記コードをRange("10")とRange("11")に時間17:00:00と17:10:15をそれぞれに設定したいのですが、コ−ドをどのように書き直したらよいのでしょう。

【39309】Re:ある時間になるとLabelの文字が変わる...
発言  Blue  - 06/6/22(木) 9:21 -

引用なし
パスワード
   > Range("10")とRange("11")に
とは?
具体的にどんな値が入るのでしょうか?

A1 に 17:00:00 という文字列がある場合、単に
> Application.OnTime TimeValue("17:00:00"), "Sheet1.Automatically_Time1"
Application.OnTime TimeValue(Range("A1").Text), "Sheet1.Automatically_Time1"

ってのでよさそうですが。

【39366】Re:ある時間になるとLabelの文字が変わる...
質問  初心者B  - 06/6/22(木) 16:45 -

引用なし
パスワード
   申し訳ございません。
本当の初心者なので、シート= UserFormと考えてしまいました。
シートとは何ですか?
よろしくお願いします。

【39367】Re:ある時間になるとLabelの文字が変わる...
質問  初心者B  - 06/6/22(木) 16:53 -

引用なし
パスワード
   申し訳ございません。
デザインモードや、シート、モジュールなど初心者なので分かりません。
もう少し詳しくお願いします。

【39368】Re:ある時間になるとLabelの文字が変わる...
発言  Blue  - 06/6/22(木) 17:12 -

引用なし
パスワード
   ▼初心者B さん:
>申し訳ございません。
>デザインモードや、シート、モジュールなど初心者なので分かりません。
>もう少し詳しくお願いします。
とりあえず、掲示板で説明しきれる内容ではありません。
ある程度ご自分で調べてみてください。

方法
・Excelの使い方を紹介したサイトをGoogle等で検索し、
 参考にする
・Excelの入門書を読む

【39369】Re:ある時間になるとLabelの文字が変わる...
お礼  初心者B  - 06/6/22(木) 17:17 -

引用なし
パスワード
   ▼Blue さん:
今までお付き合いありがとうございました。
もう少し勉強してから出直します。
こんな自分にお付き合いしていただきまして、本当にありがとうございました。

7406 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free