Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
501 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【80125】条件分岐の使い方 ノンボ 18/8/30(木) 21:25 質問[未読]
【80126】Re:条件分岐の使い方 マナ 18/8/30(木) 22:01 発言[未読]
【80127】Re:条件分岐の使い方 ノンボ 18/8/31(金) 20:23 お礼[未読]
【80128】Re:条件分岐の使い方 マナ 18/8/31(金) 20:34 発言[未読]
【80129】Re:条件分岐の使い方 ノンボ 18/9/1(土) 7:13 発言[未読]
【80130】Re:条件分岐の使い方 マナ 18/9/1(土) 8:53 発言[未読]
【80132】Re:条件分岐の使い方 ノンボ 18/9/1(土) 9:53 発言[未読]
【80134】Re:条件分岐の使い方 マナ 18/9/1(土) 10:51 発言[未読]
【80135】Re:条件分岐の使い方 ノンボ 18/9/1(土) 11:10 発言[未読]
【80136】Re:条件分岐の使い方 マナ 18/9/1(土) 11:23 発言[未読]
【80137】Re:条件分岐の使い方 ノンボ 18/9/1(土) 11:37 お礼[未読]
【80131】Re:条件分岐の使い方 ねこの手 18/9/1(土) 8:54 発言[未読]
【80133】Re:条件分岐の使い方 ノンボ 18/9/1(土) 10:00 お礼[未読]
【80125】条件分岐の使い方
質問  ノンボ E-MAIL  - 18/8/30(木) 21:25 -
引用なし
パスワード
   　お世話になります。

　VBAのスキルがまだ拙いです。

　下記データがあります。

Ａ列店舗コード　Ｂ列口座コード　Ｃ列売上金額

　100235　　　　 001　　　　　　 1,100
　100332　　　　 002　　　　　　 1,300
　100342　　　　 003　　　　　　 1,500
　100442　　　　 004　　　　　　 1,700
　100534　　　　 005　　　　　　 1,800
　100425　　　　 006　　　　　　 2,000
　100567　　　　 007　　　　　　 1,900
　100781　　　　 008　　　　　　 2,100

条件１　1行目のタイトル行（店舗コードなど）と2行目Ｂ列が空白の場合3行目以　　　　 降のデータをコピーして繰り上げます。
条件２　1行目のタイトル行と2行目Ｂ列が空白でない場合、3行め以降のデータは　　　　　そのままにしたいのです。
下記ソースコードを記入しました。

　Sub Test()
　　Dim i As Integer, j As Integer
　　j = 1
　　For i = 2 To 10
　　　　If (Range("B" & i).Rows <> "") Then
　　　　　　j = j + 1
　　　　　　Rows(i).Copy Rows(j)
　　　　　　Rows(i) = ""
　　　　End If
　　Next i
End Sub

　条件１はうまくいくのですが、条件２ですとデータが削除されてしまいます。
　 Exit for などいくつか試みてみましたがうまくいきません。どのようなコード　を書けばよろしいでしょうか、ご教授ねがえればと思いまして投稿しました。
　　よろしくお願いします。
【80126】Re:条件分岐の使い方
発言  マナ  - 18/8/30(木) 22:01 -
引用なし
パスワード
   ▼ノンボ さん：

こんな方法のほうが単純でよいのでは？

１）ジャンプ機能でB列が空白セルを選択
２）選択セルを行削除

　
【80127】Re:条件分岐の使い方
お礼  ノンボ E-MAIL  - 18/8/31(金) 20:23 -
引用なし
パスワード
   ▼マナ さん：
>▼ノンボ さん：
>
>こんな方法のほうが単純でよいのでは？
>
>１）ジャンプ機能でB列が空白セルを選択
>２）選択セルを行削除
>
>　
さっそくご返答いただきましてありがとうございます。
セルを削除しますとフォーマットがくずれてしまいうまくありません。
ほかの方法がありませんでしょうか？
【80128】Re:条件分岐の使い方
発言  マナ  - 18/8/31(金) 20:34 -
引用なし
パスワード
   ▼ノンボ さん：

>セルを削除しますとフォーマットがくずれてしまいうまくありません。

行全体を削除ですが、それでもだめなのですか？
【80129】Re:条件分岐の使い方
発言  ノンボ E-MAIL  - 18/9/1(土) 7:13 -
引用なし
パスワード
   ▼マナ さん：
>▼ノンボ さん：
>
>>セルを削除しますとフォーマットがくずれてしまいうまくありません。
>
>行全体を削除ですが、それでもだめなのですか？
マナさん
　返信ありがとうございます。
　行全体でも削除してしまうとまずいです。罫線や一部セルが結合しております。
　ほかに方法はありませんでしょうか。コードを書いていただくとたすかります。
　
【80130】Re:条件分岐の使い方
発言  マナ  - 18/9/1(土) 8:53 -
引用なし
パスワード
   ▼ノンボ さん：

ますます何をしようとしているかわからなくなりました

なので確認です。
条件１；B２セルが空白の場合３行目以下をぜんたいに上につめる
条件２；B２セルが空白でない場合は何もしない

で、条件１は、現在のコードで問題ない

ということで間違いないですか？
条件２を追加するだけでよいなら簡単ですが…

　
　　
【80131】Re:条件分岐の使い方
発言  ねこの手  - 18/9/1(土) 8:54 -
引用なし
パスワード
   ▼ノンボ さん：
>マナさん
>　返信ありがとうございます。
>　行全体でも削除してしまうとまずいです。罫線や一部セルが結合しております。

横やり失礼します。

結合してあるセルががあって、A,B,C列以外にもデータがあり、それらも同じように
移動させないといけないってことですよね?

一度、レイアウトを提示したほうが適切なアドバイスがもらえると思います。
【80132】Re:条件分岐の使い方
発言  ノンボ E-MAIL  - 18/9/1(土) 9:53 -
引用なし
パスワード
   ▼マナ さん：
>▼ノンボ さん：
>
>ますます何をしようとしているかわからなくなりました
>
>なので確認です。
>条件１；B２セルが空白の場合３行目以下をぜんたいに上につめる
>条件２；B２セルが空白でない場合は何もしない
>
>で、条件１は、現在のコードで問題ない
>
>ということで間違いないですか？
>条件２を追加するだけでよいなら簡単ですが…
>
マナさん
　返信ありがとうございます。
　わかりずらくて申し訳ありません。
　条件１は、Ｂセルが空白の場合は、現在のコードで問題ありません。
　条件２、Ｂセルが空白でない場合が、3行目いかが消えてしまします。Ｂセルが空　白でない場合は、そのまま削除にならずにしたいです。条件２を追加するコード　をご教授いただければと思います。
　
>
【80133】Re:条件分岐の使い方
お礼  ノンボ E-MAIL  - 18/9/1(土) 10:00 -
引用なし
パスワード
   ▼ねこの手 さん：
>▼ノンボ さん：
>>マナさん
>>　返信ありがとうございます。
>>　行全体でも削除してしまうとまずいです。罫線や一部セルが結合しております。
>
>横やり失礼します。
>
>結合してあるセルががあって、A,B,C列以外にもデータがあり、それらも同じように
>移動させないといけないってことですよね?
>
>一度、レイアウトを提示したほうが適切なアドバイスがもらえると思います。
　ねこの手さん：
　返信ありがとうございます。
　レイアウト全体、Ｃ列以下はないです。
　ご教授いただけましたら、お願いします。
【80134】Re:条件分岐の使い方
発言  マナ  - 18/9/1(土) 10:51 -
引用なし
パスワード
   ▼ノンボ さん：
。
>　条件１は、Ｂセルが空白の場合は、現在のコードで問題ありません。
>　条件２、Ｂセルが空白でない場合が、3行目いかが消えてしまします。Ｂセルが空　白でない場合は、そのまま削除にならずにしたいです

ごめんなさい。まだわかりません。

条件１について問題ないということは、
「Ｂセル」というのは「B2セル」の意味でよいですか。

　
もしそうなら、↓の理解で間違いないでしょうか。

>条件１；B２セルが空白の場合３行目以下をぜんたいに上につめる
>条件２；B２セルが空白でない場合は何もしない
>
>で、条件１は、現在のコードで問題ない


この場合、最初にコードを1行追加し
B2セルが空白ならExit subで終了するようにすればよいです。

'---------

それとも、「Ｂセル」は「B列のセル」という意味でしょうか
その場合は、iとjが同じ場合は値をクリアしなければよいです。

でも、結合セルがあのに、本当に出来ているのでしょうか？


　
【80135】Re:条件分岐の使い方
発言  ノンボ E-MAIL  - 18/9/1(土) 11:10 -
引用なし
パスワード
   ▼マナ さん：
>▼ノンボ さん：
>。
>>　条件１は、Ｂセルが空白の場合は、現在のコードで問題ありません。
>>　条件２、Ｂセルが空白でない場合が、3行目いかが消えてしまします。Ｂセルが空　白でない場合は、そのまま削除にならずにしたいです
>
>ごめんなさい。まだわかりません。
>
>条件１について問題ないということは、
>「Ｂセル」というのは「B2セル」の意味でよいですか。
>
>　
>もしそうなら、↓の理解で間違いないでしょうか。
>
>>条件１；B２セルが空白の場合３行目以下をぜんたいに上につめる
>>条件２；B２セルが空白でない場合は何もしない
>>
>>で、条件１は、現在のコードで問題ない
>
>
>この場合、最初にコードを1行追加し
>B2セルが空白ならExit subで終了するようにすればよいです。
>
>'---------
>
>それとも、「Ｂセル」は「B列のセル」という意味でしょうか
>その場合は、iとjが同じ場合は値をクリアしなければよいです。
>
>でも、結合セルがあのに、本当に出来ているのでしょうか？
>
マナさん
　なんどもありがとうございます。
　Ｂセルは、Ｂ２セルです。すみません。
　マナさんが言われるコードを書いてみました。
　Sub Test()
　　Dim i As Integer, j As Integer
　　If Range("b2") = "" Then
　　　　 Exit Sub
　　End If
　　j = 1
　　For i = 2 To 10
　　　　If (Range("B" & i).Rows <> "") Then
　　　　　　j = j + 1
　　　　　　Rows(i).Copy Rows(j)
　　　　　　Rows(i) = ""
　　　　End If
　　Next i
End Sub
　
　間違えがあるとおもいますが、ご教授ください。
　何度も申し訳ありません。

>
>
【80136】Re:条件分岐の使い方
発言  マナ  - 18/9/1(土) 11:23 -
引用なし
パスワード
   ▼ノンボ さん：

問題がでるかどうかはデータによると思います。
空白がB２だけで、単に２行目を上に詰めたい（行削除せずに）
ということであれば

１）B2が空白でないなら終了
２）A3;C10をコピーし、A2に貼付け
３）A10;C10の値をクリア

でもよいのではと思います。
【80137】Re:条件分岐の使い方
お礼  ノンボ E-MAIL  - 18/9/1(土) 11:37 -
引用なし
パスワード
   ▼マナ さん：
>▼ノンボ さん：
>
>問題がでるかどうかはデータによると思います。
>空白がB２だけで、単に２行目を上に詰めたい（行削除せずに）
>ということであれば
>
>１）B2が空白でないなら終了
>２）A3;C10をコピーし、A2に貼付け
>３）A10;C10の値をクリア
>
>でもよいのではと思います。
　マナさん

　何度もありがとうございました。
　Exitsubを使って、うまくいきそうなきがします。または、コピーペーストで
　なんとかなるかもしれません。いろいろ試してみます。いろいろご教授していた　だきありがとうございました。もっと勉強します。データをもう一度確認して
　みます。
　大変ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
501 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free