いつもありがとうございます。
下記の添付の「勤務表」のシートのA4の日付を変更すれば、「Sheet１」のシート名も自動的に変換できるようにとネット検索で見つけてきた下記のマクロ（？）の記述をセル名を変えてコピペし、「勤務表」のシートのA4の日付を変えて見たのですが、何の変化もありません。エラーメッセージも出ません。
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ERR_HANDLER
If Target.Address(False, False) = "勤務表!A4" Then
ActiveSheet.Name = Range("勤務表!A4").Value
End If
Exit Sub
ERR_HANDLER:
MsgBox "現在のセルの値はシート名にできません。"
End Sub
「勤務表」のシートのA4以下は、B1とE1の数値から自動で一ヶ月分の日付を入れる関数を入れて日付を作成しています。
=IF(DATE($B$1+1988,$E$1,ROW(A21))>DATE($B$1+1988,$E$1+1,20),"",DATE($B$1+1988,$E$1,ROW(A21)))
念のため、「Sheet1」内のA1でシート名が変わるかどうか試してますと、直接入力した文字の場合、シート名が入力した文字に問題なく変わりますが、関数で呼び込んだ文字は「現在のセルの値はシート名にできません。」のエラーメッセージが返って来ました。
このことから、関数で呼び込んだ文字では、シート名の自動変更はできないのが判りましたが、「勤務表」から呼び出した場合、エラーメッセージも出ないところを見ると、そのことの対処だけでは、解決しないような気がしています。
色々、ネットで検索したりもしましたが、未熟な私の知識と経験では、行き詰ってしまいました。
関数で呼び込んだ別シートのセルの日付で、シート名が自動で変更できるように、
お助け頂けないでしょうか？
当方はエクセル２０１０を使用しております。
よろしくお願いいたします。
いつもありがとうございます。
下記の添付の「勤務表」のシートのA4の日付を変更すれば、「Sheet１」のシート名も自動的に変換できるようにとネット検索で見つけてきた下記のマクロ（？）の記述をセル名を変えてコピペし、「勤務表」のシートのA4の日付を変えて見たのですが、何の変化もありません。エラーメッセージも出ません。
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ERR_HANDLER
If Target.Address(False, False) = "勤務表!A4" Then
ActiveSheet.Name = Range("勤務表!A4").Value
End If
Exit Sub
ERR_HANDLER:
MsgBox "現在のセルの値はシート名にできません。"
End Sub
「勤務表」のシートのA4以下は、B1とE1の数値から自動で一ヶ月分の日付を入れる関数を入れて日付を作成しています。
=IF(DATE($B$1+1988,$E$1,ROW(A21))>DATE($B$1+1988,$E$1+1,20),"",DATE($B$1+1988,$E$1,ROW(A21)))
念のため、「Sheet1」内のA1でシート名が変わるかどうか試してますと、直接入力した文字の場合、シート名が入力した文字に問題なく変わりますが、関数で呼び込んだ文字は「現在のセルの値はシート名にできません。」のエラーメッセージが返って来ました。
このことから、関数で呼び込んだ文字では、シート名の自動変更はできないのが判りましたが、「勤務表」から呼び出した場合、エラーメッセージも出ないところを見ると、そのことの対処だけでは、解決しないような気がしています。
色々、ネットで検索したりもしましたが、未熟な私の知識と経験では、行き詰ってしまいました。
関数で呼び込んだ別シートのセルの日付で、シート名が自動で変更できるように、
お助け頂けないでしょうか？
当方はエクセル２０１０を使用しております。
よろしくお願いいたします。
いつもありがとうございます。
下記の添付の「勤務表」のシートのA4の日付を変更すれば、「Sheet１」のシート名も自動的に変換できるようにとネット検索で見つけてきた下記のマクロ（？）の記述をセル名を変えてコピペし、「勤務表」のシートのA4の日付を変えて見たのですが、何の変化もありません。エラーメッセージも出ません。
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ERR_HANDLER
If Target.Address(False, False) = "勤務表!A4" Then
ActiveSheet.Name = Range("勤務表!A4").Value
End If
Exit Sub
ERR_HANDLER:
MsgBox "現在のセルの値はシート名にできません。"
End Sub
「勤務表」のシートのA4以下は、B1とE1の数値から自動で一ヶ月分の日付を入れる関数を入れて日付を作成しています。
=IF(DATE($B$1+1988,$E$1,ROW(A21))>DATE($B$1+1988,$E$1+1,20),"",DATE($B$1+1988,$E$1,ROW(A21)))
念のため、「Sheet1」内のA1でシート名が変わるかどうか試してますと、直接入力した文字の場合、シート名が入力した文字に問題なく変わりますが、関数で呼び込んだ文字は「現在のセルの値はシート名にできません。」のエラーメッセージが返って来ました。
このことから、関数で呼び込んだ文字では、シート名の自動変更はできないのが判りましたが、「勤務表」から呼び出した場合、エラーメッセージも出ないところを見ると、そのことの対処だけでは、解決しないような気がしています。
色々、ネットで検索したりもしましたが、未熟な私の知識と経験では、行き詰ってしまいました。
関数で呼び込んだ別シートのセルの日付で、シート名が自動で変更できるように、
お助け頂けないでしょうか？
当方はエクセル２０１０を使用しております。
よろしくお願いいたします。
Accessで特定のフォルダ内にあるcsvファイルを全て読み込み、別のｃｓｖファイルへ
出力するという処理を作りたいのですが、最近からVBAを始めたばかりで
どうすればよいか分かりません。
とりあえず、特定のファイルをひとつ読み込み、別ファイルへ出力することはできました。
Option Compare Database
Private Sub Button_Click()
Dim No As Integer
Dim buf
No = FreeFile
Open "C:\test1.csv" For Input As #1
Open "C:\test2.csv" For Output As #2
Do Until EOF(No)
Line Input #1, buf
Print #2, buf
Loop
MsgBox "処理終了"
Close #1
Close #2
End Sub
読み込み対象を「特定のフォルダ内のファイル全て」
にする方法が知りたいです。
ちなみに出力先のファイルはひとつにまとめてもそれぞれ別のファイルに
出力でもどちらでも構いません。
できれば両方教えていただければ有難いです。
宜しくお願いします。
