Excel VBA質問箱 IV

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

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


4477 / 13644 ツリー ←次へ | 前へ→

【56368】どなたか教えてください こう 08/6/15(日) 18:26 質問[未読]
【56369】Re:どなたか教えてください かみちゃん 08/6/15(日) 18:32 発言[未読]
【56370】Re:どなたか教えてください こう 08/6/15(日) 18:40 発言[未読]
【56371】Re:どなたか教えてください かみちゃん 08/6/15(日) 18:50 発言[未読]
【56372】Re:どなたか教えてください こう 08/6/15(日) 18:57 質問[未読]
【56373】Re:どなたか教えてください kanabun 08/6/15(日) 19:02 発言[未読]
【56374】Re:どなたか教えてください かみちゃん 08/6/15(日) 19:04 発言[未読]
【56376】Re:どなたか教えてください こう 08/6/15(日) 19:07 発言[未読]
【56377】Re:どなたか教えてください かみちゃん 08/6/15(日) 19:11 発言[未読]
【56379】Re:どなたか教えてください こう 08/6/15(日) 19:13 お礼[未読]
【56375】Re:どなたか教えてください SUS304 08/6/15(日) 19:04 発言[未読]
【56378】Re:どなたか教えてください こう 08/6/15(日) 19:12 発言[未読]

【56368】どなたか教えてください
質問  こう  - 08/6/15(日) 18:26 -

引用なし
パスワード
     A B C
1 あ
2 あ
3 い
4 い
5 い
6 う
7 う
8 え
9 え
10 n

A列にある、あ〜n毎にひとつ上の行に行を
挿入するためにあれこれしていますが
うまくいきません。

どなたかお教え願います。

【56369】Re:どなたか教えてください
発言  かみちゃん  - 08/6/15(日) 18:32 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>A列にある、あ〜n毎にひとつ上の行に行を
>挿入するためにあれこれしていますが
>うまくいきません。

・実行前の状態
・実行後の期待している結果
・あれこれしている現在のコード
を提示することはできませんか?

【56370】Re:どなたか教えてください
発言  こう  - 08/6/15(日) 18:40 -

引用なし
パスワード
   ▼かみちゃん さん:
こんにちは。こう です。

・実行前の状態
A B C
1 あ
2 あ
3 い
4 い
5 い
6 う
7 う
8 え
9 え
10 n

>・実行後の期待している結果
A B C
1 
2 あ
3 あ
4 
5 い
6 い
7 
8 う
9 う
10 う
11
12 n

>・あれこれしている現在のコード
現在勉強中です

まるなげのようで申し訳ないのですが、
切羽詰って掲示板で質問を掲載しました。

何卒、お教え願います。

【56371】Re:どなたか教えてください
発言  かみちゃん  - 08/6/15(日) 18:50 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>まるなげのようで申し訳ないのですが、

質問に答えるのは、簡単ですが、

>>・あれこれしている現在のコード
>現在勉強中です

では、説明になっていません。

> あれこれしていますが
> うまくいきません。

を具体的に何をして、どううまくいかないのか、説明していただくことはできないのでしょうか?

【56372】Re:どなたか教えてください
質問  こう  - 08/6/15(日) 18:57 -

引用なし
パスワード
   ▼かみちゃん さん:
こんにちは。こう です。
>
具体的に何をして、どううまくいかないのか、説明していただくことはできないのでしょうか?

具体的にはAccessのクエリでどうにかなるかと思いやっていたがうまくいかず、検索サイトで行挿入などのキーワードで検索したら、VBAでどうにかなると思い質問しました。

【56373】Re:どなたか教えてください
発言  kanabun  - 08/6/15(日) 19:02 -

引用なし
パスワード
   ▼こう さん:
よこから失礼。

>・実行前の状態
>A B C
>1 あ
>2 あ
>3 い
>4 い
>5 い
>6 う
>7 う
>8 え
>9 え
>10 n

から、

>・実行後の期待している結果

を得たいなら、
下からループして、
一つ上と値が異なっていた時、行を挿入する
というコードを組むといいかと思います。

【56374】Re:どなたか教えてください
発言  かみちゃん  - 08/6/15(日) 19:04 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>具体的にはAccessのクエリでどうにかなるかと思いやっていたがうまくいかず、検索サイトで行挿入などのキーワードで検索したら、VBAでどうにかなる

ひとつお聞きします。
実行前に、「い」の行が3行あるのに、実行後は2行にするのですか?

もしかして、上の行と、値が違うときは、1行挿入するということですか?

【56375】Re:どなたか教えてください
発言  SUS304  - 08/6/15(日) 19:04 -

引用なし
パスワード
   横から失礼します。

↑の

>本サイトの基本方針をまとめました。こちら をご一読ください。
をご参照下さい。というか、質問する前に見ておくべきところですけど。

>VBA質問箱基本ポリシー
>質問者の方へのお願い
>何をやったか書いてください
>おそらくあなたは、色々なことを試してできなかった末にここに質問を書くのでしょう。
>しかし回答者は、あなたが今まで何をやってきたか、何を知っていて何を知らないかわかりません。
>今まで試したこと、やろうと思ったけどやり方がわからなかったことなどをできるだけ詳しく書いてください。

【56376】Re:どなたか教えてください
発言  こう  - 08/6/15(日) 19:07 -

引用なし
パスワード
   ▼かみちゃん さん:
こんにちは。こう です。
>
>実行前に、「い」の行が3行あるのに、実行後は2行にするのですか?

>もしかして、上の行と、値が違うときは、1行挿入するということですか?

上の行と、値が違うときは、1行挿入したいです。

【56377】Re:どなたか教えてください
発言  かみちゃん  - 08/6/15(日) 19:11 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>>実行前に、「い」の行が3行あるのに、実行後は2行にするのですか?
>
>>もしかして、上の行と、値が違うときは、1行挿入するということですか?
>
>上の行と、値が違うときは、1行挿入したいです。

では、実行後の期待している結果にそのように書かないと、わかりませんよ。

以下は、ヒントのコードです。
行の挿入は、特定の行を挿入する操作を「マクロの記録」で記録するとある程度の
ことは、わかります。

Sub Sample()
 Dim rngLastCell As Range
 Dim lngRow As Long
 
 Set rngLastCell = Range("A" & Rows.Count).End(xlUp)
 
 For lngRow = rngLastCell.Row To 2 Step -1
  If Cells(lngRow, "A").Value <> Cells(lngRow - 1, "A").Value Then
   '行を挿入する
  End If
 Next
End Sub

【56378】Re:どなたか教えてください
発言  こう  - 08/6/15(日) 19:12 -

引用なし
パスワード
   ▼SUS304 さん:
>横から失礼します。
>
>↑の
>
>>本サイトの基本方針をまとめました。こちら をご一読ください。
>をご参照下さい。というか、質問する前に見ておくべきところですけど。
>
>>VBA質問箱基本ポリシー
>>質問者の方へのお願い
>>何をやったか書いてください
>>おそらくあなたは、色々なことを試してできなかった末にここに質問を書くのでしょう。
>>しかし回答者は、あなたが今まで何をやってきたか、何を知っていて何を知らないかわかりません。
>>今まで試したこと、やろうと思ったけどやり方がわからなかったことなどをできるだけ詳しく書いてください。

申し訳ありませんでした。

【56379】Re:どなたか教えてください
お礼  こう  - 08/6/15(日) 19:13 -

引用なし
パスワード
   ▼かみちゃん さん:
>こんにちは。かみちゃん です。
>
>>>実行前に、「い」の行が3行あるのに、実行後は2行にするのですか?
>>
>>>もしかして、上の行と、値が違うときは、1行挿入するということですか?
>>
>>上の行と、値が違うときは、1行挿入したいです。
>
>では、実行後の期待している結果にそのように書かないと、わかりませんよ。
>
>以下は、ヒントのコードです。
>行の挿入は、特定の行を挿入する操作を「マクロの記録」で記録するとある程度の
>ことは、わかります。
>
>Sub Sample()
> Dim rngLastCell As Range
> Dim lngRow As Long
> 
> Set rngLastCell = Range("A" & Rows.Count).End(xlUp)
> 
> For lngRow = rngLastCell.Row To 2 Step -1
>  If Cells(lngRow, "A").Value <> Cells(lngRow - 1, "A").Value Then
>   '行を挿入する
>  End If
> Next
>End Sub

ありがとうございます。実行してみます。

4477 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free