Excel VBA質問箱 IV

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

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


39401 / 76732 ←次へ | 前へ→

【42443】Re:変更箇所を記録するには
質問  にしもり  - 06/9/12(火) 10:44 -

引用なし
パスワード
   ▼Kein さん ponpon さん:
adviseいただいたロジックを追加してみました。
カレントドライブも確認しました。
が、txtファイルが出来ていません。
どこが悪いでしょうか。
すみません、基本ができていません。

Private Sub CommandButton1_Click()

Dim MyRange As Range
Dim addrow As Integer

  Set MyRange = Sheet2.Range("A1").CurrentRegion
  addrow = MyRange.Rows.Count + 1
  MyProc (addrow)

'ここからkein様のadvise
  Dim MyF As String, Buf As String
 
  With TextBox4
   If .Text = "" Then Exit Sub
   Sheets("Sheet2").Range("A65536").End(xlUp) _
   .Offset(1).Value = .Text
   Buf = Format(Time, "hh:mm:ss") & " ; " & .Text
   .Text = ""
  End With
  MyF = Application.DefaultFilePath & _
  "\Log_" & Format(Date, "yymmdd") & ".txt"
 
'ここponpon様のadvise
  MsgBox Application.DefaultFilePath
 
  Open MyF For Append Access Write As #1
  Print #1, Buf
  Close #1


End Sub
Public Sub MyProc(MyRowCount As Integer) 'データ書き込み の 行数

Dim MyRange As Range           'データ範囲
Dim cnt As Integer

  cnt = 1
  Worksheets("Sheet2").Activate
  Set MyRange = Sheet2.Range("A1").CurrentRegion
  MyRange.Cells(MyRowCount, cnt).Value = TextBox4.Value
  cnt = cnt + 1
  TextBox4.Value = ""

End Sub
Private Sub CommandButton2_Click()

  TextBox4.Value = ""

End Sub
Private Sub CommandButton3_Click()

  ThisWorkbook.Worksheets("Sheet1").Select
  ActiveWorkbook.Save
  ActiveWorkbook.Close

End Sub
Private Sub TextBox4_Change()

End Sub
Private Sub UserForm_Click()

End Sub


追記:ハチ様のadviseですが、マクロの意味を理解できていません。kein様のをやってみたのちに解釈してみます。すこしお時間ください。
1 hits

【42312】変更箇所を記録するには にしもり 06/9/6(水) 13:49 質問
【42318】Re:変更箇所を記録するには mw 06/9/6(水) 15:46 回答
【42319】Re:変更箇所を記録するには にしもり 06/9/6(水) 16:04 質問
【42353】Re:変更箇所を記録するには ハチ 06/9/7(木) 17:47 回答
【42361】Re:変更箇所を記録するには Kein 06/9/8(金) 2:16 回答
【42370】Re:変更箇所を記録するには にしもり 06/9/8(金) 13:26 質問
【42385】Re:変更箇所を記録するには ponpon 06/9/9(土) 0:24 発言
【42443】Re:変更箇所を記録するには にしもり 06/9/12(火) 10:44 質問
【42445】Re:変更箇所を記録するには ハチ 06/9/12(火) 12:00 発言
【42452】Re:変更箇所を記録するには にしもり 06/9/12(火) 15:02 お礼

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