Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7419 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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の文字が変わるよ... KiKoRiｎ 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が「Ａ」から「Ｂ」に文字が変わる。

17:00:00
　　　Ａ　　　　　　　Ｂ
「あいうえお」→「かきくけこ」
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が「かきくけこ」になるということでつけました。
動きたい時間（例で１７時に動く）という設定を何処に記入すれば良いのかわからなかったため、書いてありません。

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

よろしくお願いします。
【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
>　　　Ａ　　　　　　　Ｂ
>「あいうえお」→「かきくけこ」
>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 さん：

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

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

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

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

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

これで出来るはずです。
【39305】Re:ある時間になるとLabelの文字が変わる...
発言  Blue  - 06/6/21(水) 22:33 -
引用なし
パスワード
   > UserFormにLabel1を作って動かしましたが
矛盾しすぎ。

何のために
> > ラベルはシート上にあるのでしょうか？
> ラベルはシート上にあります。
と確認をしたんだか。。。
【39306】Re:ある時間になるとLabelの文字が変わる...
質問  KiKoRiｎ  - 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 さん：
今までお付き合いありがとうございました。
もう少し勉強してから出直します。
こんな自分にお付き合いしていただきまして、本当にありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7419 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free