[過去ﾛｸﾞ] VBAなんでも質問スレ Part2 [転載禁止]©2ch.net (1002ﾚｽ)
上下前次1-新

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

683: 2018/12/27(木)09:20 ID:lhYnw8ev(2/5) AA×


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
683: [sage] 2018/12/27(木) 09:20:24.73 ID:lhYnw8ev Option Explicit Sub practice() Dim i As Long Dim fullPath As String Dim wb As Workbook 'Anothersheetじゃ分かりにくいんでopnShtに変更。 Dim opnSht As Worksheet '追加シートは変数に受けないの? Dim addSht As Worksheet 'セルのB3てどこ? '多分ボタンのあるシートかなと推測。 fullPass = Thisworkbook.Worksheets("Sheet1").Range("B3").Value 'B3に出鱈目書いて動かしたらどうなるんだろう? Set wb = Workbooks.Open(fullPath) Set opnSht = wb.Worksheets("カピバラ情報") With Thisworkbook Set addSht = .WorkSheets.Add( After:=.WorkSheets("Sheet1")) End With 'Range("A1").Selectって何の為に有るの? 'iの初期値を一番最初に書いてたけど、初めて見たとき何だか分からんかった。 '使う直前に関連処理と一緒にまとめた方が分かり易いよね。 i=4 Do While opnSht.Cells(5, i).Value <> "" 　i = i + 1 Loop '元のCall wb.Closeなどという書き方をしたことが無いのでいつもの自分の書き方に変更。 wb.Close False End Sub http://mevius.5ch.net/test/read.cgi/tech/1432173164/683
じゃ分かりにくいんでに変更 追加シートは変数に受けないの セルのてどこ 多分ボタンのあるシートかなと推測 に出鱈目書いて動かしたらどうなるんだろう カピバラ情報 って何の為に有るの の初期値を一番最初に書いてたけど初めて見たとき何だか分からんかった 使う直前に関連処理と一緒にまとめた方が分かり易いよね 元の などという書き方をしたことが無いのでいつもの自分の書き方に変更

---

上下前次1-新書関写板覧索設栞歴

---

あと 319 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.032s