| |
ht tp://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=43413;id=excel
ここで、SpecialCellsの限界について、問いただしてみましたが
それ以外にも不可解なことがあるので一応掲載してみます。
例えば、下記模擬データ作成でデータ作成後、良く解らないSpcelを実行してみると、
何でこうなるの？
と、思う所があります。
範囲が複雑だとうまく行かない。
って事で、落ち着きそうですが。
by 97 or 2000 or 2002
（現在97が無いので下記状態で試してませんが、97の時に解った不具合なので、97も含むとしています。）
Sub 模擬データ作成()
Range("A1").Value = 10
For i = 1 To 12
Range("A" & i + 1).Formula = "=A" & i & "+10"
Next
Range("A14:A23").Value = 1
Range("A24:A26").Formula = "=2*2"
Range("B1:B6").Value = 60
Range("B7:B10").Formula = "=1+10"
Range("B11:E19").Value = 100
Range("B20:G21").Formula = "=1+4"
Range("B22:G23").Value = 77
Range("D24:G24").Value = 77
Range("A24:C24").Formula = "=2*2"
Range("A25:I25").Formula = "=2*2"
Range("A26:C26").Formula = "=ADDRESS(ROW(),COLUMN(),4)"
Range("A28:D29").Formula = "=ADDRESS(ROW(),COLUMN(),4)"
Range("A31:C31").Formula = "=ADDRESS(ROW(),COLUMN(),4)"
Range("C1:D10").Formula = "=45"
Range("E1:G10").Value = 80
Range("G1").Formula = "=8/2"
Range("F11:F17").Formula = "=2*3"
Range("F18:F19").Value = 100
Range("G11:G19").Value = 100
Range("H1:H5,H21:H24").Value = 5
Range("H6:H8,H12:H20").Value = "ff"
For i = 1 To 24
Range("I" & i).Formula = "=SUM(F" & i & ":H" & i & ")"
Next
Range("A2:A13,B7:B10,C1:D10,G1,F11:F17,B20:G21,A24:C26,D25:I25,A28:D29,A31:C31" _
).Interior.ColorIndex = 6
End Sub
Sub 良く解らないSpcel()
With ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas)
.Value = .Value
End With
End Sub
|
|
Jaka
- 09/12/3(木) 11:03 -
![[未読]](./data/FAQ/image/read_icon.gif){kind=icon}
≪
