目安箱 IV

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

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

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

【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[未読]

【233】線をひく
Excel  tomo  - 08/6/5(木) 13:11 -

引用なし
パスワード
   はじめまして。
Windows XPをつかっています。

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

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

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

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

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

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

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

  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

【236】Re:線をひく
Excel  Jaka  - 08/6/6(金) 14:29 -

引用なし
パスワード
   ご質問は、エクセル質問箱の方にお願いします。
ht tp://www.vbalab.net/vbaqa/c-board.cgi?id=excel

で、
作る位置が同じなのは、
ActiveSheet.Shapes.AddLine(227.25, 1219.5, 314.25, 1259.25).Select
               ↑   ↑   ↑   ↑
で、固定しているからです。
上、右、高さ、幅、等は色々試して、どれがどこになるのかは色々試して
確認してください。

【238】Re:線をひく
Excel  tomo  - 08/6/6(金) 15:55 -

引用なし
パスワード
   jakaさん

すみませんっ、ありがとうございます。

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