目安箱 IV

目安箱投稿のルールはこちらをごらんください。
ご意見は電子メールで承っています。
「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
28 / 262 ←次へ | 前へ→

【253】良く解らないSpecialCells
Excel  Jaka  - 09/12/3(木) 11:03 -

引用なし
パスワード
   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

802 hits

【253】良く解らないSpecialCells Jaka 09/12/3(木) 11:03 Excel[未読]
【255】Re:良く解らないSpecialCells ponpon 09/12/5(土) 22:17 Excel[未読]

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
28 / 262 ←次へ | 前へ→
ページ:  ┃  記事番号:   
0
(SS)C-BOARD v3.8 is Free