No.4ベストアンサー
- 回答日時:
確認しました、以下ができていませんでした。
・変数を宣言する事(スコープが有効でない)
・セルに書き込みのコードがない
折角指定のブックを開いてシートを取得できているのに、後書き込むだけなのに
おしい!といったところです。
落ち着いて考えればわかるはずのところ。
#1様と厳しい指摘をしてしまいましたが、これを素直に受け止め次回から頑張って下さい・
修正ソース(動作確認済み)
Public appWorld As Object
Public wbWorld As Object
Public wbSheet As Object
Private Sub Command1_Click()
Setup
wbWorld.Application.Visible = True
Set wbSheet = wbWorld.Sheets(1)
wbSheet.Range("C5").Value = Texdate.Text
wbWorld.Activate
End Sub
・・・以下同様
No.3
- 回答日時:
>他人の回答を例題に出さずに、私の困っているところをクリアできるように一度で回答下さい。
何か勘違いされていませんか?こちらは善意で答えているだけで、答える義務はありません。
適切な回答したからといって、あなたから報酬はもらえるわけではないですし、かといってこちらは責任も取れないのですが。
それが暗黙のルールというものです。
さて・・ 本題ですが、あなたのしたいことは
・時刻を取得する
Now()、Time()、Day()関数などで取得できます。
・取得した時刻をテキストボックスに入れる
text1.text = Now()
・コマンドボタンを押し、ボックスの値をエクセルに張る
1050YEN様が回答されてます。
まずは、リンクソースそのまま引用し、試行錯誤してわからなければ
どういったエラーが出てわからないのかを再度質問するのがよいと・
他人が余計な口はさみましたが 以上です。。
この回答への補足
では
今有るソースを送ります
8種類のエクセルを作業上の多々変更します。
その日時をエクセルへ表示させたいのですが。
どうも上手く行かないのです。
"C5"辺りに表示したいのですがどうすれば良いでしょうか
Private Sub Form_Load()
Dim Sil As Integer, Date1 As Date, Time As Integer, Id As Integer, Name As Integer
TexDate.Text = Format(Now, "yy年mm月dd日 hh時mm分")
End Sub
Sub Setup()
On Error Resume Next 'ignore errors
Set appWorld = GetObject(, "Excel.Application") 'Excel の実行状態のコピーを探します。
If Err.Number <> 0 Then 'If Excel is not running then
Set appWorld = CreateObject("Excel.Application") '実行させます。
End If
Err.Clear ' エラーが発生した場合、Err オブジェクトをクリアします。
On Error GoTo 0 '標準のエラー処理を再開します。
If Op1so.Value = True Then GoTo ex1
If Op2sho.Value = True Then GoTo ex2
If Op3ra.Value = True Then GoTo ex3
If Op4si.Value = True Then GoTo ex4
If Op5bu.Value = True Then GoTo ex5
If Op6cl.Value = True Then GoTo ex6
If Op7ha.Value = True Then GoTo ex7
If Op8lo.Value = True Then GoTo ex8
ex1: Set wbWorld = appWorld.Workbooks.Open(App.Path & "\1.xls")
GoTo exz
ex2: Set wbWorld = appWorld.Workbooks.Open(App.Path & "\2.xls")
GoTo exz
ex3: Set wbWorld = appWorld.Workbooks.Open(App.Path & "\3.xls")
GoTo exz
ex4: Set wbWorld = appWorld.Workbooks.Open(App.Path & "\4.xls")
GoTo exz
ex5: Set wbWorld = appWorld.Workbooks.Open(App.Path & "\5.xls")
GoTo exz
ex6: Set wbWorld = appWorld.Workbooks.Open(App.Path & "\6.xls")
GoTo exz
ex7: Set wbWorld = appWorld.Workbooks.Open(App.Path & "\7.xls")
GoTo exz
ex8: Set wbWorld = appWorld.Workbooks.Open(App.Path & "\8.xls")
exz:
End Sub
Private Sub Command1_Click()
Setup
wbWorld.Application.Visible = True
wbWorld.Activate
End Sub
No.2
- 回答日時:
>あっちやこっち見ても分からない
質問をする前に「あっちやこっち見る」のがマナー
>他人の回答を例題に出さずに、私の困っているところをクリアできるように一度で回答下さい。
重複質問や重複回答を行わないのがマナー
>上記の所では不明点多々あり。それと私のやりたいことではない部分があります。
「不明点」ではなく「理解できないだけ」ですね。ならばどこが理解できないかを、順に書いてください。
「わからない」だけでは「何がわからないかがわかりません」
「目的のための機能」と「マナー」を覚えましょう
No.1
- 回答日時:
http://oshiete1.goo.ne.jp/kotaeru.php3?q=1057168
でできると思います。
この回答への補足
あっちやこっち見ても分からない
他人の回答を例題に出さずに、私の困っているところをクリアできるように一度で回答下さい。
上記の所では不明点多々あり。それと私のやりたいことではない部分があります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) エクセル 条件付き書式 日をまたぐ塗りつぶし 1 2023/01/13 18:00
- Visual Basic(VBA) VBA 毎日取得するデータを順番に反映していく方法 6 2023/08/26 16:22
- Excel(エクセル) エクセルで、特定のセルの内容を更新すると、別の特定セルに 更新日付が自動的に表示させる方法はあります 1 2022/11/14 21:03
- 一眼レフカメラ COMTEC社ZDR035個人使用 5 2022/05/18 17:55
- うつ病 うつ状態改善の生活習慣の方法論について質問です。 インドア系の部屋でしかできない趣味にハマった時はど 3 2022/11/11 13:57
- Excel(エクセル) Excelシフト表 固定シフトの自動変換化 1 2022/04/14 16:10
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Excel(エクセル) エクセルの条件付き書式について エクセルでカレンダーを作りました。縦に日付が並んでいて、横にスケジュ 3 2022/10/10 15:32
- Excel(エクセル) エクセル テーブル機能の不明点 2 2022/04/14 14:10
- Excel(エクセル) CSVファイルでVBAを動かす方法 3 2023/04/04 10:22
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
JSP+Servletでのページングの常識
-
VBScriptで数値にコンマを付け...
-
VB.NETで DataRow()を利用して...
-
.NETで現在時刻を常に動作させ...
-
Yahoo! JAPANのID取得について
-
outlookでメールのフォルダパス...
-
ListViewで複数選択された項目...
-
利用者側のMACアドレスを取得し...
-
JAVA・JSP間のデータの受け渡し
-
VBAでActiveDirectoryのユーザ...
-
VBA:小数点以下の数字を取得で...
-
VBでFTPサーバ側のファイルの更...
-
TextBoxから日付・時間を取得す...
-
JavaScriptでWindowsログオンID...
-
VB2010 ウィンドウタイ...
-
日付や時刻を取得する関数について
-
指定のURLのタイトルを取得...
-
Excelのセルの色指定をVBAから...
-
Vba TextBox1.ControlSourceに...
-
特定のセルが空白だったら、そ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VB.NETで DataRow()を利用して...
-
count(*)で取得した値をJAVAの...
-
ListView 項目の選択/選択解除...
-
データ数をカウントしたいのですが
-
VBA:小数点以下の数字を取得で...
-
VBAでActiveDirectoryのユーザ...
-
Flexgridで選択行の列の値を取...
-
like演算子内に変数って使えな...
-
ListViewで複数選択された項目...
-
getParameter と getAttribut...
-
JSP+Servletでのページングの常識
-
JavaScriptでWindowsログオンID...
-
利用者側のMACアドレスを取得し...
-
Spreadの選択行の取得について
-
Excel VBA でログインしてい...
-
コンボボックス表示文字列を取...
-
C言語におけるコンピュータ名・...
-
「Excel VBA」 Webクエリ マク...
-
VBScriptで数値にコンマを付け...
-
エクセルVBAで複数選択できるよ...
おすすめ情報