Excelマクロvbaの質問です。2つのbook(検索)と(データ)を作り検索bookから検索、更新、追加、削除を行うとデータbookの内容が書き換わるものです。

画像
補足

ws.Cells(last_row + 1, "B").Value = new_no ws.Range(ws.Cells(last_row + 1, "A"), ws.Cells(last_row + 1, "G")).Value = _ WorksheetFunction.Transpose(main_ws.Range("D4:D10").Value) main_ws.Range("C2").Value = new_no MsgBox "追加完了" Call 終了 End Sub Sub 削除() Call 初期化 For i = 2 To ws.Range("A1").End(xlDown).Row If ws.Cells(i, "A").Value = main_ws.Range("C2").Value Then ws.Cells(i, "H").Value = "済" MsgBox "削除登録完了" Call 終了 End End If Next i MsgBox "取下げられた申請です" Call 終了 End Sub

Excel | Visual Basic19閲覧xmlns="http://www.w3.org/2000/svg">25

ベストアンサー

0

早速の御回答ありがとうございます。先ず仰られた通りの事を試してみます。知識が浅いので時間がかかりますがやってみます。迅速なご教示ありがとうございます。

ThanksImg質問者からのお礼コメント

心より感謝申し上げます。私の質問が関数は苦手様の目に留まったからです。今日質問して本当に私は運が良かったのだと実感すると共に、このようにご親切なご教示をくださる方がいらっしゃる事に幸せを感じました。きっと貴方様はたくさんのExcel、マクロ、vbaに関する問題を抱えた方達へ救いの手を差し伸べておられるのですね。ほんの少しの貴方の一言アドバイスに私を含めたどれほどの人々が今後も救われる事でしょう。

お礼日時:6/17 18:40