Excel VBA質問箱 IV

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

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


20229 / 76732 ←次へ | 前へ→

【61925】Re:EXCEL VBA 繰返しと計算結果。
お礼  おねがいします。  - 09/6/12(金) 10:49 -

引用なし
パスワード
   ▼Hirofumi さん:

こんにちは。
ありがとうございます。

>簡単なテストデータを作って試した所、幾つか気に成る所が出て来たのでレスします
>
>1、Sheet4のA列に日付がシリアル値で入って居るか否か?
> シリアル値の場合、私のコードもにぃさんのコードも日付の抽出は出来ないようです
> 因って、細工が必要と思われます

シリアル値ではなく、8桁の数値です。 20090424

>2、私のコードの場合、Sheet3に対しての出力を配列変数を使って行って居ますので
> Sheet3のA〜X列に算式が設定されている場合、これを消してしまいますので
> コードの変更が必要に成ります

Sheet3のA〜X列 の列見出し(文字列)以降のセルは空白です。
以降は月次で転記(設定)されていく値のみになります。

>
>にぃさんのコードに就いて名のですが
>
>1、前回のレスに書いた「 i = NewRow」は「NewRow = i」の間違いの様です
>2、Sheet4のListは、日付列(A列)で整列されている事が条件の様です
>3、出力されるSheet3では、A列が既に埋まって居て、そのA3〜最終行までの間で
> 空行をを探しその位置から転記を始める様に成って居ますので
> A3以降のセルにに何も入って居ない場合、"入力シートに設定できる行がありません。"が
> でて終了してしまいます
> Testするなら、例えばA200ぐらいに位置に例えば「ListEnd」とでも入れて試して見たら善いと思います

ありがとうございます。早速試してみます。

先日も、NewRow = i で試したりしてみたんですが、状況が変わらず、
NewRow = i のところを、LastRow3 = LastRow3 とか + 1 にしてみたり

    LastRow3 = .Range("A" & .Rows.Count).End(xlUp).Row
                     ↓
    LastRow3 = Ws3.Range("A" & Ws3.Rows.Count).End(xlUp).Row  の様に

他の行にも全てに追記し、

        '転記操作
        Sheet3.Range("A" & NewRow).Value = .Range("A" & I).Value
                     ↓
        Sheet3.Range("A" & LastRow3).Value = .Range("A" & I).Value

に変更してみたり。

結果としては、転記(設定)出来たんですが、Sheet4 はそのまま残ってました。と言うか
転記終了後の↓の部分でエラーで止まってしまいました。

    If Me.TextBox1.Text <> v4(I + 1, 1) Then

にぃ さん と Hirofumi さん に書いて頂いたコードを無駄にしない様になんとか
完成させたいと思っています。
途中、また質問させて頂く事もあると思いますが、宜しくお願いします。
また、お気付きの点がありましたら、宜しくお願い致します。

0 hits

【61854】EXCEL VBA 繰返しと計算結果。 おねがいします。 09/6/9(火) 14:16 質問
【61860】Re:EXCEL VBA 繰返しと計算結果。 にぃ 09/6/9(火) 16:18 回答
【61862】Re:EXCEL VBA 繰返しと計算結果。 おねがいします。 09/6/9(火) 16:45 お礼
【61863】Re:EXCEL VBA 繰返しと計算結果。 にぃ 09/6/9(火) 16:52 発言
【61866】Re:EXCEL VBA 繰返しと計算結果。 おねがいします。 09/6/9(火) 17:29 お礼
【61878】Re:EXCEL VBA 繰返しと計算結果。 にぃ 09/6/10(水) 10:37 発言
【61888】Re:EXCEL VBA 繰返しと計算結果。 おねがいします。 09/6/10(水) 15:55 お礼
【61898】Re:EXCEL VBA 繰返しと計算結果。 おねがいします。 09/6/11(木) 11:39 質問
【61899】Re:EXCEL VBA 繰返しと計算結果。 neptune 09/6/11(木) 14:08 発言
【61902】Re:EXCEL VBA 繰返しと計算結果。 おねがいします。 09/6/11(木) 16:16 お礼
【61904】Re:EXCEL VBA 繰返しと計算結果。 neptune 09/6/11(木) 17:35 発言
【61905】Re:EXCEL VBA 繰返しと計算結果。 おねがいします。 09/6/11(木) 18:34 お礼
【61912】Re:EXCEL VBA 繰返しと計算結果。 neptune 09/6/11(木) 22:18 発言
【61922】Re:EXCEL VBA 繰返しと計算結果。 おねがいします。 09/6/12(金) 10:14 お礼
【61924】Re:EXCEL VBA 繰返しと計算結果。 neptune 09/6/12(金) 10:34 発言
【61901】Re:EXCEL VBA 繰返しと計算結果。 Hirofumi 09/6/11(木) 15:12 発言
【61903】Re:EXCEL VBA 繰返しと計算結果。 おねがいします。 09/6/11(木) 16:20 お礼
【61919】Re:EXCEL VBA 繰返しと計算結果。 Hirofumi 09/6/12(金) 8:46 発言
【61925】Re:EXCEL VBA 繰返しと計算結果。 おねがいします。 09/6/12(金) 10:49 お礼
【61935】Re:EXCEL VBA 繰返しと計算結果。 neptune 09/6/12(金) 22:21 回答
【61968】Re:EXCEL VBA 繰返しと計算結果。 おねがいします。 09/6/15(月) 15:03 お礼
【61934】Re:EXCEL VBA 繰返しと計算結果。 おねがいします。 09/6/12(金) 17:34 質問
【61936】Re:EXCEL VBA 繰返しと計算結果。 Hirofumi 09/6/12(金) 23:56 回答
【61938】Re:EXCEL VBA 繰返しと計算結果。 Hirofumi 09/6/13(土) 8:59 回答
【61963】Re:EXCEL VBA 繰返しと計算結果。 おねがいします。 09/6/15(月) 10:19 お礼
【61861】Re:EXCEL VBA 繰返しと計算結果。 neptune 09/6/9(火) 16:30 発言
【61864】Re:EXCEL VBA 繰返しと計算結果。 おねがいします。 09/6/9(火) 17:01 お礼

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