Sub Macro1()
Set in1 = Application.InputBox(prompt:="入力範囲", Type:=8)
i = in1.Offset(1, 0).Value
Cells(1, 1).Value = i
End Sub
とするとエラーがでないのですが、
Sub Macro1()
Set in1 = Application.InputBox(prompt:="入力範囲", Type:=8)
i = in1.Offset(1, 0).Value
Cells(1, 1).Value = i + 1
End Sub
とするとエラーがでます。
i+1を表示するには、どう修正すればよいでしょうか。
複数人のスタッフで1つのエクセルファイルを管理しています。
管理方法は下記の通りです。
現在、担当しているお客様から連絡やアポイントなどがあったかを記録に残すためのexcelデータを作成しています。
1つのexcelファイルに人数分のシートを作成し、それぞれが自分のシートに毎月の連絡の有無を○×形式で記入していきます。
シート内には各自が担当している案件名と1月～12月までの見出し、備考欄などが記載されています。
それぞれのシートの内容が書き換えられた最終更新日を所定のセルに記載させたいのです。
マクロを使用して下記のような記述をしてみましたが、どれか1つのセルを変更すると全てのシートの最終更新日が同じ時間に更新されたような表記になってしまします。
【使用している関数】=LastSaveTime()
【記述内容】
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With Sh
If Intersect(Target, .Range("E4：P100")) Is Nothing Then Exit Sub
.Range("Q2").Value = Date
End With
End Sub
複数人でエクセルファイルを管理するため、誰がいつ担当のシートを書き換えたかを記載するためにはどの様な記述をすれば良いのでしょうか？
excel、マクロともに初心者のため分かりやすくお教え頂ければと思います。
お手数をおかけ致しますが、宜しくお願い致します。
基本的な質問で恐縮ですが、Excel2003のVBAで条件分岐をするときの方法について質問です。
例えば、A1に文字列の「当選」と「あたり」があった場合は、真の処理を、それ以外の場合は偽の処理をする場合は条件式にどのように書けば良いのでしょうか？
次の【条件式】に入る書き方を教えてください。
sub 条件分岐()
If 【 条件式 】 Then
真の場合
Else
偽の場合
End sub
前回質問と同じソースなのですが、質問内容が違う為、新たに質問させていただきました。
★１ 毎回繰り返し処理をする時に、ワークシートをセレクトしていますが、このやり方でよいのでしょうか？良い方法がありましたら教えてください。
★２ この繰り返しで、空白ではない場合に変数へ値を入れて処理をしているのですが、何故か新しいシート( _案内)を作成して、空白の部分も抜き取って処理してしまいます。
この場合は、空白の時に処理しない(GoTo でＮext iの前に行くなど) の指示を書きこまないといけないのでしょうか？
☆ まだソース書いていませんが、Ｑ列処理後でＱ列と同様にＳ列にも案内場所C(コード)が書かれた時に同じ処理をして、Ｓ列i行目がシート名と同じ場所の時に、Ｑ・Ｒ列i行を削除して左方向へシフトしたいのですが、 この手順は flag=Trueの部分にＱ・Ｒ列i行を削除、左方向へシフト の指示を書けば良いのでしょうか？
次々と失敗ばかりで……質問長くなりすみませんが、アドバイスよろしくお願いいたします。
Sub 外注別案内書作成()
Dim ws As Worksheet 'オブジェクト格納
Dim i As Long, j As Long '繰り返す回数格納
Dim annaicode As Variant '案内場所C格納
Dim addwsname As Variant 'シート名前格納(※案内場所名)
Dim flag As Boolean '真偽
Dim r As Range 'Findメソッドの返り値格納
'レポート元でQ列の情報が入っている時に、案内場所別で情報を作成する。
'レポート元でQ列に値がある時に、annaicode変数へ格納。
For i = 2 To Worksheets("レポート元").Cells(Rows.Count, "A").End(xlUp).Row
Worksheets("レポート元").Select
annaicode = ""
If Cells(i, "Q").Value <> "" Then
annaicode = Cells(i, "Q").Value
End If
'外注一覧でannai変数と一致した時に、addwsname変数へ格納。 Findメソッド
With Worksheets("外注一覧").Columns("A")
Set r = .Find(What:=annaicode, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns)
If r Is Nothing Then
MsgBox i & "行目の案内場所Cの入力が不正です。" & vbCrLf & "処理を中断しますね", _
vbOKOnly + vbExclamation, "お知らせ"
Exit Sub
Else
addwsname = r.Offset(0, 1) + "_案内"
End If
End With
'ワークシートオブジェクト内でaddwsname変数と一致した時に、flag変数をTrueにする。
For Each ws In Worksheets
If ws.Name = addwsname Then
flag = True
End If
Next ws
'flag変数の値により、各々処理をする。
If flag = True Then
Worksheets("レポート元").Cells(i, "A").EntireRow.Copy _
Destination:=Worksheets(addwsname).Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
flag = False
Else
Worksheets.Add
ActiveSheet.Name = addwsname
Worksheets("レポート元").Rows(1).EntireRow.Copy _
Destination:=Worksheets(addwsname).Rows(1)
Worksheets("レポート元").Cells(i, "A").EntireRow.Copy _
Destination:=Worksheets(addwsname).Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
End If
Next i
End Sub
■困っていること
vbaの worksheetfunction のmatach関数を用いているが、日付が見つかってくれない。
なぜ見つからないか、原因を教えていただけないでしょうか?よろしくお願いします。
■状況、やりたいこと
下記、コードで、「ｆRow」と「syu」までは正しく求められるのですが、「tcol」を求めようとすると、どうしても０になってしまいます。
ワークシートはD1セルに日付を入力おり、さらに右のセルへ行く毎に+7しています。「syu」の日付がどの週に該当するのかを、列数で求めたいです。
例えば、10年3月17日なら、Fの列なので 6 を求められるようにしたいです。
sub test()
Dim fRow As Long
Dim tcol As Long
Dim syu As long
With Worksheets("data")
Set fRange = Sheets("data").Columns(1).Find(What:=TextBox1.Value, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows)
If (fRange Is Nothing) Then
Exit Sub
End If
fRow = fRange.Row
syu = .Cells(fRow, 2).Value
tcol = Application.WorksheetFunction.Match(syu, .Range("1:1"), 1)
msgbox tcol
end with
end sub
