Results of 1 - 1 of about 8928 for リスト (0.006 sec.)
- [[20170602014945]]
- #score: 2746
- @digest: 62cb05b128a321f63de998f5dfcfc272
- @id: 73624
- @mdate: 2017-06-01T23:19:19Z
- @size: 1650
- @type: text/plain
- #keywords: 話リ (73239), 未更 (63048), 新者 (34908), ト最 (30328), 者リ (21698), 行") (7845), 電話 (5312), 行ce (5223), 行). (3298), 行+ (2970), 終行 (2790), リス (2332), 最終 (1989), 更新 (1729), 行as (1704), ト") (1663), スト (1517), 早急 (1209), 行= (1202), 助言 (1182), 成() (1056), く処 (858), select (855), sheets (816), 拝借 (722), ト" (706), ト作 (661), ゅん (651), ジボ (642), じゅ (637), rows (569), 構文 (415)
- 『うまく処理されない』（まっとん）
下の構文（?）のなかの Rows("11:未更新者リスト最終行").Select の部分がうまく処理してくれません。 未更新者リストをメッセージボックスでだすと「27」とでますし Rows("11:27").Select にするとうまく処理できます。 申し訳ありませんがご助言いただけないでしょうか? Sub 電話リスト作成() With Worksheets.Add() .Move After:=Worksheets(Worksheets.count) .Name = "電話リスト" End With Dim i As Long, 未更新者リスト最終行 As Variant, 電話リスト最終行 As Long For i = 1 To Sheets.count - 3 Step 1 電話リスト最終行 = Sheets("電話リスト").Cells(Rows.count, "A").End(xlUp).Row 未更新者リスト最終行 = Sheets(i).Cells(Rows.count, "A").End(xlUp).Row MsgBox 未更新者リスト最終行 Cells(電話リスト最終行 + 1, 1) = Sheets(i).Name Sheets(i).Select Rows("11:未更新者リスト最終行").Select Selection.Copy Sheets("電話リスト").Select Cells(電話リスト最終行 + 1, 1).Select ActiveSheet.Paste Next i ＜ 使用 Excel:Excel2013、使用 OS:unknown ＞ ---- まっとんさん ＞ Rows("11:未更新者リスト最終行").Select 変数を使われているのですから、このままでは単なる文字列です。 Rows("11:" & 未更新者リスト最終行).Select ではないですかね? Sheets(i).Rows("11:" & 未更新者リスト最終行).Copy Sheets("電話リスト").Cells(電話リスト最終行 + 1, 1) と .Select や Selection を纏めてみるとかも （じゅんじゅん） 2017/06/02(金) 05:03 ---- じゅんじゅんさん 早急な回答ありがとうございます!!解決しました。 過去の自分の質問と同様で恥ずかしい限りです。 助言もありがとうございます。 拝借させていただきます （まっとん） 2017/06/02(金) 08:19... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/201706/20170602014945.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97016 documents and 608139 words.
訪問者：