目安箱 IV

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

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
59 / 277 ←次へ　｜　前へ→
【233】線をひく
Excel  tomo  - 08/6/5(木) 13:11 -
引用なし
パスワード
   はじめまして。
Windows XPをつかっています。

まず、エクセルのマウスでクリックした位置にVBAで
線をひきたいのです。(斜線２本）

マクロで何本か線の開始位置を変えて試してみました。

Range("G" & sel & ":J" & (sel + 1)).Select
　　行がかわるため、selという変数を使っています。

　　　
この文で、線を引き始める位置を指定していると思うのですが、

ちゃんとひきたい位置に線を描かず、マクロで試したセルにしか線を描きません。

クリックしたセルに斜線を２本ひいたあと、セル下に２重線をひく処理もしていますが、その２重線は、ちゃんとマウスでクリックしたセルにひかれます。

なぜでしょうか？？
うまく書けませんが、どなたか指摘お願いします。
以下にソースを記載します。

　　sel = ActiveCell.Row

　　Range("G" & sel & ":J" & (sel + 1)).Select
　　ActiveSheet.Shapes.AddLine(227.25, 1219.5, 314.25, 1259.25).Select
　　Selection.ShapeRange.Flip msoFlipHorizontal
　　ActiveSheet.Shapes.AddLine(265.5, 1197#, 275.25, 1204.5).Select
　　Range("G" & sel & ":J" & (sel + 1)).Select
　　Selection.Borders(xlDiagonalDown).LineStyle = xlNone
　　Selection.Borders(xlDiagonalUp).LineStyle = xlNone
　　With Selection.Borders(xlEdgeLeft)
　　　　.LineStyle = xlContinuous
　　　　.Weight = xlThin
　　　　.ColorIndex = xlAutomatic
　　End With
　　With Selection.Borders(xlEdgeTop)
　　　　.LineStyle = xlContinuous
　　　　.Weight = xlThin
　　　　.ColorIndex = xlAutomatic
　　End With
　　With Selection.Borders(xlEdgeBottom)
　　　　.LineStyle = xlDouble
　　　　.Weight = xlThick
　　　　.ColorIndex = xlAutomatic
　　End With
　　With Selection.Borders(xlEdgeRight)
　　　　.LineStyle = xlContinuous
　　　　.Weight = xlThin
　　　　.ColorIndex = xlAutomatic
　　End With
　　Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
1,547 hits
【233】線をひく tomo 08/6/5(木) 13:11 Excel[未読]≪
【236】Re:線をひく Jaka 08/6/6(金) 14:29 Excel[未読]
【238】Re:線をひく tomo 08/6/6(金) 15:55 Excel[未読]
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
59 / 277 ←次へ　｜　前へ→
ページ：  ┃  記事番号：   
0
(SS)C-BOARD v3.8 is Free