初めて質問をさせていただきます。文面など、分かりにくい部分も
多々あるかと思いますが、ご容赦ください。
Excel2003のVBAで１つのマクロを複数のシートで実行したいのですが、
上手くできません。過去のQAも拝見しているのですが、
思うように動かずです。
具体的には
Sub カレンダー作成G5()
Dim 日数 As Long
Dim 日付 As Variant
Dim 月 As Integer, 年 As Integer
Dim 入力セル As Range
日付 = Application.InputBox _
("yyyy/m 形式の年月を半角で入力してください" & Chr(10) _
& " 例）2013年の1月 → 2013/1")
If 日付 = False Or IsDate(日付) = False Then
Exit Sub
End If
月 = Month(日付)
年 = Year(日付)
Range("c3").Value = DateSerial(年, 月, 1)
Range("G5:Ak5").Select
Selection.ClearContents
日数 = 0
For Each 入力セル In Selection
入力セル.Formula = "=$c$3+" & 日数
日数 = 日数 + 1
If 月 <> Month(Range("c3") + 日数) Then Exit For
Next
End Sub
です。これを、１ブックのシートが１～１０ある中から、例えば「シート２，５，８」と言った具合に、
複数のシートで実施したいのです。
（選択するシートは固定ですが、今後のシートの追加は、可能であれば想定したいです。）
なお、この記述も、前任者の記述であり、当方はまったくの未経験者とご認識ください。
従いまして、後学の為、１文ごとに簡単なコメントなどをいただけますと、本当にありがたく。
（さらに欲を申し上げますと、VBA初心者にお勧めの参考書やURLもご紹介いただけますと幸いです。）
また、OKwaveのシステムも理解できておりませんので、お礼も言葉のみとなってしまいます。
その点も、ご理解いただけますと幸いです。
ぜひとも「無知な人間に勉強する機会を」いただけましたらと思います。
有識者のみなさま、ご指導をよろしくお願いいたします。
初めて質問をさせていただきます。文面など、分かりにくい部分も
多々あるかと思いますが、ご容赦ください。
Excel2003のVBAで１つのマクロを複数のシートで実行したいのですが、
上手くできません。過去のQAも拝見しているのですが、
思うように動かずです。
具体的には
Sub カレンダー作成G5()
Dim 日数 As Long
Dim 日付 As Variant
Dim 月 As Integer, 年 As Integer
Dim 入力セル As Range
日付 = Application.InputBox _
("yyyy/m 形式の年月を半角で入力してください" & Chr(10) _
& " 例）2013年の1月 → 2013/1")
If 日付 = False Or IsDate(日付) = False Then
Exit Sub
End If
月 = Month(日付)
年 = Year(日付)
Range("c3").Value = DateSerial(年, 月, 1)
Range("G5:Ak5").Select
Selection.ClearContents
日数 = 0
For Each 入力セル In Selection
入力セル.Formula = "=$c$3+" & 日数
日数 = 日数 + 1
If 月 <> Month(Range("c3") + 日数) Then Exit For
Next
End Sub
です。これを、１ブックのシートが１～１０ある中から、例えば「シート２，５，８」と言った具合に、
複数のシートで実施したいのです。
（選択するシートは固定ですが、今後のシートの追加は、可能であれば想定したいです。）
なお、この記述も、前任者の記述であり、当方はまったくの未経験者とご認識ください。
従いまして、後学の為、１文ごとに簡単なコメントなどをいただけますと、本当にありがたく。
（さらに欲を申し上げますと、VBA初心者にお勧めの参考書やURLもご紹介いただけますと幸いです。）
また、OKwaveのシステムも理解できておりませんので、お礼も言葉のみとなってしまいます。
その点も、ご理解いただけますと幸いです。
ぜひとも「無知な人間に勉強する機会を」いただけましたらと思います。
有識者のみなさま、ご指導をよろしくお願いいたします。
前回、http://okwave.jp/qa/q7965940.html
で質問したのですが、
シートをオブジェクト変数に格納しつつ、findで文字を検索する場合、どうすればいいでしょうか？
Sub test()
Dim sh1 As Worksheet
Dim 行 As Long
Set sh1 = Sheets("Sheet1")
行 = Cells.Find(What:="検索文字", LookAt:=xlWhole).Row
End Sub
こういう事を行いたいのですが、
Sheet２がアクティブな時にこのコードを実行すると実行時エラー91になります。
対処方法をお願いいたします。
Dim ws As Worksheet
Dim i As Long
For i = 1 To ThisWorkbook.Sheets.Count
For Each ws In ThisWorkbook.Sheets
If ws.name Like "*T*" Then
ws.name = Replace(ws.name, "T", "S")
End If
Next
Next
End Sub
この処理をするとnameメソッド失敗worksheetオブジェクト
処理できるようにするにはどうすればいいんでしょうか
FormulaR1C1ではなく
Range形式でＶＢＡでワークシート関数をセルにいれるコードを書くにはどうすればいいでしょう？
Sub Macro()
ActiveCell.FormulaR1C1 = "=LEN(RC[-1])"
End Sub
これを
Sub Macro()
ActiveCell.FormulaR1C1 = "=LEN(a1)"
End Sub
こうすると、
数式バーには、=LEN('a1')と入っており、
セルの値は#NAME?
になります。
アポストロフィーが余計なのですがどうすれば取れますか？
