Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


34391 / 76734 ←次へ | 前へ→

【47553】Re:範囲選択の問題(長いです)
発言  ウッシ  - 07/3/14(水) 16:53 -

引用なし
パスワード
   こんにちは

同じような処理やスクロールのコードまで有って、本当は何をしたいのかが読み取れません。

多分、この程度の処理かと思います。

Sub Macro6()
  Dim lstR As Long
  Sheets("Conference Report").Copy
  With ActiveSheet
    .Shapes("Rectangle 1").Cut
    .Shapes("Rectangle 4").Cut
    .Rows("7:10").Delete Shift:=xlUp
    
    lstR = .Range("A" & .Rows.Count).End(xlUp).Row
    With .Range("A19:G" & lstR).FormatConditions
      .Delete
      .Add Type:=xlExpression, Formula1:="=$G19="""""
      .Item(1).Font.ColorIndex = 16
      .Item(1).Interior.ColorIndex = 15
    End With
  End With
End Sub

別ブックにしていいのかも分かりません。

0 hits

【47550】範囲選択の問題(長いです) Mia 07/3/14(水) 16:20 質問
【47553】Re:範囲選択の問題(長いです) ウッシ 07/3/14(水) 16:53 発言
【47559】Re:範囲選択の問題(長いです) Mia 07/3/14(水) 17:29 質問
【47555】Re:範囲選択の問題(長いです) Mia 07/3/14(水) 17:07 質問
【47557】Re:範囲選択の問題(長いです) ウッシ 07/3/14(水) 17:17 発言
【47558】Re:範囲選択の問題(長いです) Mia 07/3/14(水) 17:25 質問
【47566】Re:範囲選択の問題(長いです) ウッシ 07/3/14(水) 22:05 回答
【47568】Re:範囲選択の問題(長いです) Mia 07/3/15(木) 9:28 お礼

34391 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free