Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

11498 / 76734

←次へ　｜　前へ→


	【70770】Re:データベースの作成

UO3 - 11/12/28(水) 12:13 -


	引用なし

	パスワード

▼acess さん：

こんにちは

まず、動きとしては
１．DATABASEシートの１行目が空白行でなければ、行を挿入。
２．見積書シートのA1の値をDATABASEシートのA1に転記。
こうなりますね。

１．の行挿入は、ご自分でマクロ記録をとれば、コードが入手できます。
２．も、コピー／ペーストをマクロ記録すればコードが生成されますね。
ただ、コピーペーストより、データ転記がいいと思います。
データ転記は Sheets("DATABASE").Range("A1").Value = Sheets("見積書").Range("A1").Value
このように書きます。
１．で、空白行でなければ　という判定コードは、いろいろありますが、一番簡単なのは A1 が空白かどうか
というチェックでしょうね。
　
そういったことを考えると以下のような形になるでしょうか。

If Sheets("DATABASE").Range("A1").Value <> "" Then
　　　　　ここで行挿入
End If

ここでデータ転記。

1 hits

▼

【70768】データベースの作成 acess 11/12/28(水) 10:56