エクセルのマクロの組み方での質問です。



◇-?エクセルのマクロの組み方での質問です。-りょう(2004/10/13-19:04)No.207597
 ┗?!Re:エクセルのマクロの組み方で...-mmsanta(2004/10/13-19:55)No.207608
  ┗?!【解決】Re:エクセルのマクロの...-りょう(2004/10/14-00:05)No.207658

▲このページのトップに戻る
207597エクセルのマクロの組み方での質問です。りょう 2004/10/13-19:04

メーカー名:富士通
OS名:WindowsXP HomeEdition
パソコン名:C8/150WLT
ソフト関連:ソフトの使い方がわからない
使用回線:ADSL
--
エクセルのマクロについての質問です。よろしくお願いします。
ショートカットキーで「Ctrl」+「;」で現在の日付が、
同じく「Ctrl」+「:」で現在の時刻が入力されるのですが、
これをマクロボタンに取り込みボタンを押すと上記の操作を自動でやってくれるマクロを組みたいのですが、「新しいマクロの記録」からの操作ではうまくいきませんでした。
私のやった操作は

新しいマクロの記録

任意のセルを選択

「Ctrl」+「;」で現在の日付を表示

別のセルを選択

Ctrl」+「:」で現在の時刻を表示
記録終了
です。マクロを記録させた時の日時が表示されてしまい、リアルタイムの日時が表示されませんでした。

これが私の組んだマクロです。
Sub Macro4()
Range("B3").Select
ActiveCell.FormulaR1C1 = "10/13/2004"
Range("C3").Select
ActiveCell.FormulaR1C1 = "18:43"
Range("C4").Select
End Sub

どこか修正できる箇所、言語の違い、間違いなど知識を頂ければ幸いです。
お願いします。

▲このページのトップに戻る
207608Re:エクセルのマクロの組み方での質問です。mmsanta 2004/10/13-19:55
記事番号207597へのコメント
りょうさんは No.207597「エクセルのマクロの組み方での質問です。」で書きました。
>メーカー名:富士通
>OS名:WindowsXP HomeEdition
>パソコン名:C8/150WLT
>ソフト関連:ソフトの使い方がわからない
>使用回線:ADSL
>--
「マクロボタン」の意味が僕には解らないのですが?

まったく別の方法かも知れませんが、
1・sheet1の任意の位置にcommanbuttonを配置する。
2・sheet1の名前を右クリック、コードの表示を選択
3・左上のcomboboxからcommandbutton1を選択
4・右上のcomboboxがclickであることを確認する
5・以下のように記述する
  Private Sub CommandButton1_Click() *この行はすでにあるはずです
  Worksheets("Sheet1").Range("B3").Value = Date
  Worksheets("Sheet1").Range("B4").Value = Time

  End Sub  *この行はすでにあるはずです
6・excelfileを一旦保存し終了する
7・再度読み込み、commandbuttonをクリック
8・commandbuttonをクリックすると
  B3にクリックした時の日付が、B4には同じく時刻が表示されます。
こういうことでいいのかな?


▲このページのトップに戻る
207658Re:エクセルのマクロの組み方での質問です。りょう 2004/10/14-00:05
記事番号207608へのコメント
mmsantaさんは No.207608「Re:エクセルのマクロの組み方での質問です。」で書きました。
>りょうさんは No.207597「エクセルのマクロの組み方での質問です。」で書きました。
>>メーカー名:富士通
>>OS名:WindowsXP HomeEdition
>>パソコン名:C8/150WLT
>>ソフト関連:ソフトの使い方がわからない
>>使用回線:ADSL
>>--
>「マクロボタン」の意味が僕には解らないのですが?

ご親切にありがとうございました。
マクロボタンという表現に誤りがありましたことをお詫びいたします。

正確には表示→ツールーバー→フォームにあるマクロを割り当てられるボタン(オブジャクト)のことです。

分かりにくい説明ですみませんでした。

ところで本題のマクロですが、プログラムの""で囲った日付や時刻を「Date」や「Time」に変更したら現在の日時が表示されました。
ありがとう御座いました。
無事解決いたしましたことを報告させていただきます。


A1.本ページは参考になりましたか? 又はアドバイスがありますか?
解決 参考になった 参考にならなかった アドバイスする

A2.何度目の訪問ですか?
初めて来た   数度目(2〜4) 5回以上来ている   管理人:

A3.何か一言どうぞ(アドレスは書くことができません)

A4.アドレスがあればどうぞ(1つまで)


↑↑↑↑よろしければ押してください↑↑↑↑

何か一言(本ページで参考になったならないを含めて残してあります)
◎:解決 ○:参考になった ×:参考にならなかった !:アドバイスあり

参考回数投稿日時何か一言