Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1965 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【70768】データベースの作成 acess 11/12/28(水) 10:56 質問[未読]
【70770】Re:データベースの作成 UO3 11/12/28(水) 12:13 発言[未読]
【70771】Re:データベースの作成 acess 11/12/28(水) 13:46 お礼[未読]
【70768】データベースの作成
質問  acess  - 11/12/28(水) 10:56 -
引用なし
パスワード
   "見積書"sheetのA1から別の"DATABASE"sheetのA1へデータをコピー。

次回、macroボタンをクリックした時、"DATABASE"sheetのA1にコピーし、

なおかつ前回の1行目に入っているデータを一段下に移動（２回目の

データを1行目に挿入）というようなコトをしたいのですが、


初心者＆未熟者でわからず困っています。

お助け下さい。
【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

ここでデータ転記。
【70771】Re:データベースの作成
お礼  acess  - 11/12/28(水) 13:46 -
引用なし
パスワード
   早速、解答していただきありがとうございます。

これから試してみたいとおもいます。


こんなに早くとは・・・あらためて感謝いたします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1965 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free