Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7524 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【38605】初心者の質問 はじめまして 06/6/7(水) 10:25 質問[未読]
【38607】Re:初心者の質問 ハト 06/6/7(水) 10:39 回答[未読]
【38615】Re:初心者の質問 はじめまして 06/6/7(水) 11:31 お礼[未読]
【38605】初心者の質問
質問  はじめまして  - 06/6/7(水) 10:25 -
引用なし
パスワード
   if文を使って、選択した場所を代入して、その中で自分が指摘した行だけを
選択しないで行いたいのですが解りません

If Sheets("sheet1").Cells(y + 7, 5) <> aaaaa Then

Sheets("sheet2").Cells(y + 5, x + 2) = Sheets("sheet1").Cells(y + 4, x + 4)

と、書いているんですが、全部の範囲が代入されてしまい肝心のaaaaaの部分も同時に代入されてしまいます。
どうか、間違っている部分があったりしたらご指導のほどよろしくお願いします
【38607】Re:初心者の質問
回答  ハト  - 06/6/7(水) 10:39 -
引用なし
パスワード
   おはようございます

▼はじめまして さん：
>if文を使って、選択した場所を代入して、その中で自分が指摘した行だけを
>選択しないで行いたいのですが解りません
>
>If Sheets("sheet1").Cells(y + 7, 5) <> aaaaa Then
>
>Sheets("sheet2").Cells(y + 5, x + 2) = Sheets("sheet1").Cells(y + 4, x + 4)
>
>と、書いているんですが、全部の範囲が代入されてしまい肝心のaaaaaの部分も同時に代入されてしまいます。
>どうか、間違っている部分があったりしたらご指導のほどよろしくお願いします

上記ですと『aaaaa』というのは変数として扱われます
セルの値が『aaaaa』という事でしたら

>If Sheets("sheet1").Cells(y + 7, 5) <> aaaaa Then
これを
If Sheets("sheet1").Cells(y + 7, 5) <> "aaaaa" Then

のように変更してみてください
【38615】Re:初心者の質問
お礼  はじめまして  - 06/6/7(水) 11:31 -
引用なし
パスワード
   返信ありがとうございます

>If Sheets("sheet1").Cells(y + 7, 5) <> "aaaaa" Then
>
>のように変更してみてください

確かにうまくいきました。本当にありがとうございます
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7524 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free