Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1789 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【71910】セルの中央に縦線 ﾄ 12/4/24(火) 21:05 質問[未読]
【71911】Re:セルの中央に縦線 UO3 12/4/24(火) 21:20 発言[未読]
【71912】Re:セルの中央に縦線 ﾄ 12/4/24(火) 22:05 質問[未読]
【71913】Re:セルの中央に縦線 UO3 12/4/24(火) 22:18 発言[未読]
【71914】Re:セルの中央に縦線 ﾄ 12/4/24(火) 22:34 質問[未読]
【71915】Re:セルの中央に縦線 UO3 12/4/24(火) 23:00 発言[未読]
【71916】Re:セルの中央に縦線 ﾄ 12/4/25(水) 8:43 質問[未読]
【71918】Re:セルの中央に縦線 UO3 12/4/25(水) 9:55 発言[未読]
【71920】Re:セルの中央に縦線 ﾄ 12/4/25(水) 10:05 質問[未読]
【71921】Re:セルの中央に縦線 UO3 12/4/25(水) 10:43 発言[未読]
【71922】Re:セルの中央に縦線 ﾄ 12/4/25(水) 10:44 お礼[未読]
【71910】セルの中央に縦線
質問  ﾄ  - 12/4/24(火) 21:05 -
引用なし
パスワード
   いつもおせわになります。
B2:B3のセルの中央に縦線を引けるのでしょうか。
教えてください。
【71911】Re:セルの中央に縦線
発言  UO3  - 12/4/24(火) 21:20 -
引用なし
パスワード
   ▼ﾄ さん：

>B2:B3のセルの中央

これは、具体的にはどこですか？
【71912】Re:セルの中央に縦線
質問  ﾄ  - 12/4/24(火) 22:05 -
引用なし
パスワード
   ▼UO3 さん：早速有難うございます。
質問がまずくて済みません。
セルの周囲でわなくて、たとえばB2のセルのまんなかに縦線と考えているのですが
B2のセルを縦に二等分したいのですが。

>>B2:B3のセルの中央
>
>これは、具体的にはどこですか？
【71913】Re:セルの中央に縦線
発言  UO3  - 12/4/24(火) 22:18 -
引用なし
パスワード
   ▼ﾄ さん：

>セルの周囲でわなくて、たとえばB2のセルのまんなかに縦線と考えているのですが
>B2のセルを縦に二等分したいのですが。

残念ですが、このような｢罫線｣はエクセルには標準装備されていませんね。
（セル内の対角線、斜めならありますよね）
やるとすれば、罫線ではなく、シェープで縦線をセットするんでしょうかね。
【71914】Re:セルの中央に縦線
質問  ﾄ  - 12/4/24(火) 22:34 -
引用なし
パスワード
   ▼UO3 さん：
お返事有難うございます。

直線を引くというこーどをみまして(以下)

ActiveSheet.Shapes.AddLine 10,20,50,60

これで引けるのかなとおもったのですが上手くできませんでしたので
すみません。もう少し勉強してみます。

>残念ですが、このような｢罫線｣はエクセルには標準装備されていませんね。
>（セル内の対角線、斜めならありますよね）
>やるとすれば、罫線ではなく、シェープで縦線をセットするんでしょうかね。
【71915】Re:セルの中央に縦線
発言  UO3  - 12/4/24(火) 23:00 -
引用なし
パスワード
   ▼ﾄ さん：

サンプルです。

Sub 真ん中の線()
　　Dim bx As Double, by As Double, ex As Double, ey As Double
　　
　　With Range("B2")
　　　　bx = .Left + .Width / 2
　　　　by = .Top
　　　　ex = bx
　　　　ey = .Top + .Height
　　　　ActiveSheet.Shapes.AddLine bx, by, ex, ey
　　End With
　　
End Sub
【71916】Re:セルの中央に縦線
質問  ﾄ  - 12/4/25(水) 8:43 -
引用なし
パスワード
   ▼UO3 さん：

有難うございます。
サンプルの中でコンパイルエラー・・・変数が定義されていません。となって

ActiveSheetの所が黒くなっているのですが、如何すればよいでしょうか。

>サンプルです。
>
>Sub 真ん中の線()
>　　Dim bx As Double, by As Double, ex As Double, ey As Double
>　　
>　　With Range("B2")
>　　　　bx = .Left + .Width / 2
>　　　　by = .Top
>　　　　ex = bx
>　　　　ey = .Top + .Height
>　　　　.Shapes.AddLine bx, by, ex, ey
>　　End With
>　　
>End Sub
【71918】Re:セルの中央に縦線
発言  UO3  - 12/4/25(水) 9:55 -
引用なし
パスワード
   ▼ﾄ さん：

こんにちは

私がアップしたコードは

ActiveSheet.Shapes.AddLine bx, by, ex, ey

そちらでは


>>　.Shapes.AddLine bx, by, ex, ey

このようにされたのですか？
【71920】Re:セルの中央に縦線
質問  ﾄ  - 12/4/25(水) 10:05 -
引用なし
パスワード
   ▼UO3 さん：
戴いたコードのままですが、ActiveSheet.Shapes.AddLine bx, by, ex, ey

ActiveSheet　ははぶいてはいません。
>
>私がアップしたコードは
>
>ActiveSheet.Shapes.AddLine bx, by, ex, ey
>
>そちらでは
>
>>>　.Shapes.AddLine bx, by, ex, ey
>
>このようにされたのですか？
【71921】Re:セルの中央に縦線
発言  UO3  - 12/4/25(水) 10:43 -
引用なし
パスワード
   ▼ﾄ さん：

そうですか。不思議ですね。
こちら、2003,2007,2010で確認、特にエラーにはなりません。
（ちょっと　変数 by なんてのが気にはなったのですが、問題はないので）

では、変数を用いないで、直接以下ではいかがでしょうか。

Sub 真ん中の線2()
　
　　With Range("B2")
　　　　ActiveSheet.Shapes.AddLine .Left + .Width / 2, .Top, .Left + .Width / 2, .Top + .Height
　　End With
　
End Sub
【71922】Re:セルの中央に縦線
お礼  ﾄ  - 12/4/25(水) 10:44 -
引用なし
パスワード
   >▼UO3 さん：

コードを一度消して入れなおして見たところエラーも出ずにうまくいきました。

有難うございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1789 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free