A列の４行目を選択した時に
Sub マクロオフ()
Application.EnableEvents = False
End Sub
B列の４行目を選択した時に
Sub マクロオン()
Application.EnableEvents = True
End Sub
が動作するようにお願いします
以降交互にC列がOFF・D列がON、E列がOFF・F列がON………と最終列までお願いします
※このマクロが実行するのは、すべて４行目だけに限定です
A列の４行目を選択した時に
Sub マクロオフ()
Application.EnableEvents = False
End Sub
B列の４行目を選択した時に
Sub マクロオン()
Application.EnableEvents = True
End Sub
が動作するようにお願いします
以降交互にC列がOFF・D列がON、E列がOFF・F列がON………と最終列までお願いします
※このマクロが実行するのは、すべて４行目だけに限定です
VBA熟練者の方々にご相談です。
以下の工程を既存のマクロに追加したいのですが、コードのご教授お願いいたします。
現状
下記のVBAで、template.docxを立ち上げ、エクセルのテキストを転記している状態です。
ーーーーーーーーーーーーーーーーーーー
Sub EXCEL_WORD04()
Dim WordApp As Object
Dim WordDoc As Word.Document
Dim I, lRow As Long
Dim ExcelText
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
lRow = Cells(Rows.Count, "A").End(xlUp).Row '
Set WordDoc = WordApp.Documents.Open("H:\***\***\***\template.docx")
With WordApp
For I = 2 To lRow
ExcelText = Cells(I, "A").Text & vbLf
.Selection.TypeText ExcelText
Next I
End With
End Sub
ーーーーーーーーーーーーーーーーーーー
追加したい事。
template.docxが保存されているフォルダに、
“転記した日”_常勤役員会報告書（XX統計“転記した日の前の月”月期について）として保存できるようにしたいです。
(例)220804_常勤役員会報告書（XX統計7月期について）
よろしくお願いいたします
【初心者です】
現在独学でExcelのVBAを学んでいるのすが、
数値を入力する箱（= a) を８個作り、その数値を自分で入力したのちに、
For文で簡潔に合計した数値を出力させたいのですが、やり方が分かりません。
Suuchiの数は８個で、それぞれに数値を入力して、出力する流れです。
下記の文までは思いついたのですが「？？？」に該当するもとのをどのように作成すれば良いのか教えていただけないでしょうか？
また、そもそもの書き方が違う場合にも指摘していただけると助かります。
Dim Suuchi(0 To 7) As Integer '数値数
Dim total As Integer '合計値
Dim i As Integer 'カウンタ数値
For i = 0 To 7
Suuchi(i) = ？？？
total = total + Suuchi(i)
Next i
If chkチェックボタン.Value Then
MsgBox "数値の合計は「" & total & "」です", , "数値合計値"
End If
VBA熟練者の方々にご相談です。
以下の工程を既存のマクロに追加したいのですが、コードのご教授お願いいたします。
現状
下記のVBAで、template.docxを立ち上げ、エクセルのテキストを転記している状態です。
ーーーーーーーーーーーーーーーーーーー
Sub EXCEL_WORD04()
Dim WordApp As Object
Dim WordDoc As Word.Document
Dim I, lRow As Long
Dim ExcelText
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
lRow = Cells(Rows.Count, "A").End(xlUp).Row '
Set WordDoc = WordApp.Documents.Open("H:\***\***\***\template.docx")
With WordApp
For I = 2 To lRow
ExcelText = Cells(I, "A").Text & vbLf
.Selection.TypeText ExcelText
Next I
End With
End Sub
ーーーーーーーーーーーーーーーーーーー
追加したい事。
template.docxが保存されているフォルダに、
“転記した日”_常勤役員会報告書（XX統計“転記した日の前の月”月期について）として保存できるようにしたいです。
(例)220804_常勤役員会報告書（XX統計7月期について）
よろしくお願いいたします
VBA熟練者の方々にご相談です。
以下の工程を既存のマクロに追加したいのですが、コードのご教授お願いいたします。
現状
下記のVBAで、template.docxを立ち上げ、エクセルのテキストを転記している状態です。
ーーーーーーーーーーーーーーーーーーー
Sub EXCEL_WORD04()
Dim WordApp As Object
Dim WordDoc As Word.Document
Dim I, lRow As Long
Dim ExcelText
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
lRow = Cells(Rows.Count, "A").End(xlUp).Row '
Set WordDoc = WordApp.Documents.Open("H:\***\***\***\template.docx")
With WordApp
For I = 2 To lRow
ExcelText = Cells(I, "A").Text & vbLf
.Selection.TypeText ExcelText
Next I
End With
End Sub
ーーーーーーーーーーーーーーーーーーー
追加したい事。
template.docxが保存されているフォルダに、
“転記した日”_常勤役員会報告書（XX統計“転記した日の前の月”月期について）として保存できるようにしたいです。
(例)220804_常勤役員会報告書（XX統計7月期について）
よろしくお願いいたします
