5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

Excel総合相談所 97

780 :名無しさん@そうだ選挙にいこう:2011/07/26(火) 14:35:21.23
マクロの練習として>>772をやってみました
だれか採点してくだちい

Sub zoukin()
 Dim A As Long, B As Long, C As Long
 Dim i As Integer
 Dim rngStart

 A = Range("a1") '部屋の長さ
 B = Range("b1") '部屋の幅
 C = Range("c1") '雑巾の幅
 Set rngStart = Range("d1") 'スタート位置
 rngStart.EntireColumn.ClearContents

   i = 1
     Do Until i > B / (C * 2) + 1
       With rngStart
          .Offset(i * 4 - 4, 0) = A
          .Offset(i * 4 - 3, 0) = C
          .Offset(i * 4 - 2, 0) = -A
          .Offset(i * 4 - 1, 0) = C
       End With
     i = i + 1
   Loop

   rngStart.Offset((i - 1) * 4 - 1, 0) = -(C * (i - 1) * 2 - C)

End Sub


345 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)