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

---

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

---

486(1): 2018/01/26(金)09:48 ID:zry4uQ/L(3/3) AAS
おわび
御貴兄たち、何卒添削お願いします。変数colとかrowのほうが良かったな
Const OFFSET_X = 1
Const OFFSET_Y = 1
Const BLOCKS_Y = 3
Const WIDTH = 6
Const HEIGHT = 6
Private Sub CommandButton1_Click()
　　Dim src As Worksheet
　　Dim dst As Worksheet
Dim x As Integer, y As Integer
Dim des_x As Integer, des_y As Integer
　　Set src = ThisWorkbook.Sheets("sheet2")
　　Set dst = ThisWorkbook.Sheets("sheet3")
　　dst.Cells.Clear
　　des_x = 1 + OFFSET_X
　　des_y = 1 + OFFSET_Y
　　For y = 1 + 3 To HEIGHT * BLOCKS_Y Step 3
　　　　For x = 1 To WIDTH
　　　　　　If src.Cells(y, x + OFFSET_X).Value <> "" Or _
　　　　　　　　src.Cells(y, x + OFFSET_X).Formula <> "" Or _
　　　　　　　　src.Cells(y, x + OFFSET_X).Interior.ColorIndex <> xlNone Then 'エラー判定は無し
　　　　　　　　src.Range(src.Cells(y, x + OFFSET_X), src.Cells(y, x + OFFSET_X)).Copy _
　　　　　　　　　　　Destination:=dst.Cells(des_y, des_x)
　　　　　　End If
　　　　　　des_x = des_x + 1
　　　　Next x
　　　　des_x = 1 + OFFSET_X
　　　　des_y = des_y + 1
Next y
End Sub

---

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

---

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

---

ぬこの手 ぬこTOP 0.021s