戻る  □一般操作のサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
水平線を太線から細線に

    [191525] 水平線を太線から細線に-

    ■親トピック/記事引用/メール受信=OFF■

    □投稿者/ senbiki -(2020/02/26(11:29))
    □U R L/
      こんにちは
      
      教えてください。
      
      表に罫線がA3:S67,U3:AP67,AT3:BQ67,BS3:CP67,CR3:DO66,DQ3:EN66と引かれています。
      フォームコントロールでボタンを作成してます。
      このボタンを押すと各表のデータが削除と共に幾つかの罫線の水平線のみ太線が細線になる様に
      マクロを色々調べて作成してるのですが中々上手くいきません。(データ削除のみはできています。)
      罫線の太線から細線にするマクロだけが上手くできません、ご指導お願いします。
      表自体は、6個作成してます。
      
      下記の1番上の行のみ作成したのですが何がに抜けているのか分かりません。
      
      Sub 削除()
      '
      ' 削除Macro
      '
      
      'Range("A3:S66,U66:AP3,AT3:BQ66,BS3:CP66,CR3:DO66,DQ3:EN66").Borders(xlInsideHorizontal).LineStyle = xlThin
          ActiveWindow.SmallScroll Down:=-40
          Range("A3:O67").Select
          ActiveWindow.SmallScroll Down:=-120
          ActiveWindow.SmallScroll ToRight:=20
          Range("A3:O67,U3:AI67").Select
          Range("U3").Activate
          ActiveWindow.SmallScroll Down:=-72
          Range("A3:O67,U3:AI67,AT3:BH67").Select
          Range("AT3").Activate
          ActiveWindow.SmallScroll ToRight:=39
          ActiveWindow.SmallScroll Down:=-96
          Range("A3:O67,U3:AI67,AT3:BH67,BS3:CG67").Select
          Range("BS3").Activate
          ActiveWindow.SmallScroll Down:=-104
          ActiveWindow.SmallScroll ToRight:=21
          Range("A3:O67,U3:AI67,AT3:BH67,BS3:CG67,CR3:DF67").Select
          Range("CR3").Activate
          ActiveWindow.SmallScroll ToRight:=28
          ActiveWindow.SmallScroll Down:=-88
          Range("A3:O67,U3:AI67,AT3:BH67,BS3:CG67,CR3:DF67,DQ3:EE67").Select
          Range("DQ3").Activate
          ActiveWindow.SmallScroll Down:=-80
          ActiveWindow.SmallScroll ToRight:=14
          ActiveWindow.LargeScroll ToRight:=-4
          Range("A3:O67,U3:AI67,AT3:BH67,BS3:CG67,CR3:DF67,DQ3:EE67,C1:N1").Select
          Range("C1").Activate
          Selection.ClearContents
          Selection.ClearContents
          Selection.ClearContents
          Selection.ClearContents
          Selection.ClearContents
          Selection.ClearContents
          Selection.ClearContents
          Selection.ClearContents
          Selection.ClearContents
          Selection.ClearContents
          Selection.ClearContents
          Selection.ClearContents
          Selection.ClearContents
          Selection.ClearContents
          Selection.ClearContents
          Range("C1:D1").Select
      End Sub
      
      宜しくお願いします。
      
      
      Win10           Excel2010


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [191526] Re[1]: 水平線を太線から細線に-

    記事引用/メール受信=OFF■

    □投稿者/ リスキーダック -(2020/02/26(11:51))
    □U R L/

      日本語がおかしい。
      >表に罫線がA3:S67,U3:AP67,AT3:BQ67,BS3:CP67,CR3:DO66,DQ3:EN66と引かれています。

      >マクロを色々調べて作成してるのですが中々上手くいきません。
      何を調べているのか解りませんが、同じ動作の物をWebで探しても解らないと思います。

      単純にマクロ記録したものをペタっと貼り付けているだけのようですが、
      部分的にマクロ記録して、コードの意味を調べて下さい。

      そうすれば、解ってくるようになると思います。




    [191539] Re[2]: 水平線を太線から細線に-

    記事引用/メール受信=OFF■

    □投稿者/ senbiki -(2020/02/27(09:53))
    □U R L/

      失礼しました。

      文面が支離滅裂とのことですので再度質問をします。
      最初の質問と若干違っていますがご了承ください。

      A3:S66に表を作成してます。
      1.上部A3:S66、左部A3:S66h、下部A3:S66、右部A3:S66、表全体を太線(xlThick)で囲っています。
      2.A3:S66範囲内の横線、細線(xlThin)で引いてます。
      3.A3:S66範囲内の縦線、細線(xlThin)で引いてます。
      4.C3:O66,P3:P66範囲内の縦線は太線(xlThick)です。
      5.ここで問題なのですが2.の横線を太線で何か所か引かれている線全体を細線に引き直したいのです。
      6.それと表全体の一部のデーターを削除するフォームボタンを作成してます。

      そこで6.の削除ボタンを押した時に太線も細線に一緒に出来ないかと思って質問したのですが?

      宜しくお願いします。




    [191540] Re[3]: 水平線を太線から細線に-

    記事引用/メール受信=OFF■

    □投稿者/ ぴんく -(2020/02/27(10:56))
    □U R L/
      参考に
      
          '選択範囲内の横線(外枠は含まず)
          With Selection.Borders(xlInsideHorizontal)
              .LineStyle = xlContinuous               '実線(細)
              .Weight = xlThin                        '細線:xlThin 太線:xlThick
          End With
          '選択範囲内の縦線(外枠は含まず)
          With Selection.Borders(xlInsideVertical)
              .LineStyle = xlContinuous               '実線(細)
              .Weight = xlThin                        '細線:xlThin 太線:xlThick
          End With
          '選択範囲の外枠線
          Selection.BorderAround Weight:=xlThick
      


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [191560] Re[4]: 水平線を太線から細線に-

    解決!!ありがとうございました! / 記事引用/メール受信=OFF■

    □投稿者/ senbiki -(2020/03/02(18:29))
    □U R L/

      お世話になりました。

      解決できましたので閉めさせて頂きます。



このトピック内容の全ページ数 / [0]

このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->  図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決!!ありがとうございました! 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ〜ん。誰か〜! Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内) 


- Child Forum -
Edit:ゆう-G