Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

5259 / 76732

←次へ　｜　前へ→


	【77086】Re:設定済のテーブル内への転記

kanabun - 15/5/15(金) 17:27 -


	引用なし

	パスワード

▼doro さん：こんにちは～直接には関係ないかもしれないけれど、ちょっと気になったこと。 >　 >　If wst2.Range("A" & Rows.Count).End(xlUp).Row = 1 Then　'最初の伝票番号 >　　No = 1 >　Else >　　No = wst2.Range("A" & Rows.Count).End(xlUp).Value + 1 >　End If >　　　myRow = wst2.Cells(Rows.Count, 1).End(xlUp).Row + 1 >　　　wst2.Range("A" & myRow).Value = No　　　　　　　　　　　　'伝票番号 ↑３つ＞ wst2.Range("A" & Rows.Count).End(xlUp) というコードが出てきてます。（3つ目は wst2.Cells(Rows.Count, 1).End(xlUp) ですが）１つめの >　If wst2.Range("A" & Rows.Count).End(xlUp).Row = 1 Then　'最初の伝票番号ですが、.End(xlUp) して 1行目だったとき、つまり[A1]セルだったとき、 [A1]セルの値をチェックしなくていいんですか？ Case-1. [A1]セルにまだ何も入っていないばあい→ 追加データは1行目に書き込みます Case-2. [A1]セルに 1 と入っているばあい →データは +1して2行目に書きこむ必要が　あります。