エクセルの学校：全文検索：Hyper Estraier：オートシェイプ

Results of 1 - 1 of about 1039 for オートシェイプ (0.001 sec.)

[[20081217102909]]: #score: 6703; @digest: afd273141be16232f86b1402fe45507d; @id: 41350; @mdate: 2008-12-17T04:43:17Z; @size: 1884; @type: text/plain; #keywords: rectangle (15241), chisa (9083), 〜ex (3500), プ1 (2936), 237 (2690), ジ内 (1978), シェ (1806), トシ (1743), ェイ (1700), 一箇 (1330), イプ (1260), 番最 (1109), vbexclamation (902), shapes (880), width (851), st (827), 最近 (751), がエ (717), チリ (673), オー (659), integer (648), エラ (644), ジボ (642), イテ (610), ラー (600), プが (560), err (523), activesheet (516), ら10 (512), ー処 (475), error (472), すm (456); 『エラー処理について（マクロ）』（CHISA）最近、 On Error Goto 〜 Exit をおぼえたばかりのCHISAです。たとえば、オートシェイプ1から10を一箇所に集めるコードがあったとします。 Sub TEST() Dim i As Integer For i = 1 To 10 With ActiveSheet.Shapes("Rectangle " & i) .Top = 237 .Left = 90 .Width = 12 End With Next i End Sub オートシェイプ1から10の中で、削除されたりして、ないオートシェイプがあると途中で "指定したアイテムが見つかりませんでした" というエラーになります。そこで、エラーでもとまらず進んで、一番最後にメッセージボックスで、（2と5のオートシェイプがない場合） "Rectangle 2がエラーです。 Rectangle 5がエラーです。" と表示させる方法はありますか? 最近おぼえた On Error Goto 〜 Exit ではダメみたいで↓↓ 教えてください。お願いします。 (CHISA) ---- Sub TEST() Dim i As Integer On Error Resume next For i = 1 To 10 With ActiveSheet.Shapes("Rectangle " & i) .Top = 237 .Left = 90 .Width = 12 End With If Err Then Msgbox "Rectangle " & i & "がエラーです。" Err.Clear End if Next i End Sub BJ ---- BJさんありがとうございますm(__)m♪ バッチリできちゃいました。ありがとうございました♪ (CHISA) ---- あ、1番最後か・・。メッセージ内容は、適当に修正してください。 BJ Dim i As Integer Dim st As String On Error Resume Next For i = 1 To 10 With ActiveSheet.Shapes("Rectangle " & i) .Top = 237 .Left = 90 .Width = 12 End With If Err Then st = st & vbLf & "Rectangle " & i & "がエラーです。" Err.Clear End If Next i If Len(st) > 0 Then MsgBox Mid(st, 2), vbExclamation End If ---- ますますばっちりになっちゃいました♪♪ BJさんありがとうございますm(__)m (CHISA) ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200812/20081217102909.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ