[過去ログ]
Excel総合相談所 141 (1002レス)
Excel総合相談所 141 http://mevius.5ch.net/test/read.cgi/bsoft/1601993310/
上
下
前
次
1-
新
通常表示
512バイト分割
レス栞
このスレッドは過去ログ倉庫に格納されています。
次スレ検索
歴削→次スレ
栞削→次スレ
過去ログメニュー
39: 名無しさん@そうだ選挙にいこう [sage] 2020/10/09(金) 22:55:56 【1 OSの種類 .】 Windows10 【2 Excelのバージョン 】 Excel2010 【3 VBAが使えるか .】 いいえ 【4 VBAでの回答の可否】 可 マクロ初心者です。 このような形で氏名のは入っている行に新規登録を追加していきたいと考えております。 ここまでは表示することができましたが、.Range("4:4")の次の値をSetする際にどうしてもうまくできません。 ご教授をお願いします。 Sub 検索() With Worksheets("30年(当月)") Dim noRng As Range Dim nameRng As Range Dim namelRng As Range Set noRng = .Range("4:4").Find(what:=.Range("番号").Value, lookat:=xlWhole) Set nameRng = .Range("4:4").Find(what:=.Range("氏名").Value, lookat:=xlWhole) Set namelRng = Range("i15").End(xlDown) Cells(namelRng.Row + 1, nameRng.Column) = "新規氏名" Cells(namelRng.Row + 1, noRng.Column) = "新規番号" End With End Sub http://mevius.5ch.net/test/read.cgi/bsoft/1601993310/39
メモ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 963 レスあります
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
AAサムネイル
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.189s*