Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

54593 / 76738

←次へ　｜　前へ→


	【26931】工程表について

吉 - 05/7/23(土) 20:35 -


	引用なし

	パスワード

こんばんわ

早速質問させて頂きます。

範囲が7列目の6行目から68列目の115行目迄で
偶数行に計画線(ﾃｷｽﾄﾎﾞｯｸｽ)
奇数行に実施線(ﾃｷｽﾄﾎﾞｯｸｽ)
を下記のUserFoamにて書いています。

Private Sub CommandButton1_Click()

　Dim 文字色, 塗色 As Integer
　Dim N1 As Variant
　
　Dim xa, xb, ya, yb As Long
　　　xa = Selection.Left
　　　xb = Selection.Width
　　　ya = Selection.Top
　　　yb = Selection.Height
　　
　　If OptionButton1.Value = True Then
　　　　塗色 = 8
　　　ElseIf OptionButton2.Value = True Then
　　　　塗色 = 2
　　　ElseIf OptionButton3.Value = True Then
　　　　塗色 = 3
　　　ElseIf OptionButton4.Value = True Then
　　　　塗色 = 4
　　　ElseIf OptionButton5.Value = True Then
　　　　塗色 = 5
　　　ElseIf OptionButton6.Value = True Then
　　　　塗色 = 6
　　　ElseIf OptionButton7.Value = True Then
　　　　塗色 = 7
　　　ElseIf OptionButton8.Value = True Then
　　　　塗色 = 1
　　End If
　　
　　If OptionButton9.Value = True Then
　　　　文字色 = 1
　　　ElseIf OptionButton10.Value = True Then
　　　　文字色 = 3
　　　ElseIf OptionButton11.Value = True Then
　　　　文字色 = 5
　　　ElseIf OptionButton12.Value = True Then
　　　　文字色 = 2
　　End If
　　
　 ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, xa, ya, _
　　　　xb, yb).Select
　　Selection.Characters.Text = TextBox1.Value
　　
　　With Selection.Font
　　　　.Name = "ＭＳＰゴシック"
　　　　.FontStyle = "標準"
　　　　.Size = 9
　　　　.Strikethrough = False
　　　　.Superscript = False
　　　　.Subscript = False
　　　　.OutlineFont = False
　　　　.Shadow = False
　　　　.Underline = xlUnderlineStyleNone
　　　　.ColorIndex = 文字色
　　End With
　　With Selection
　　　　.HorizontalAlignment = xlCenter
　　　　.VerticalAlignment = xlCenter
　　　　.ReadingOrder = xlContext
　　　　.Orientation = xlHorizontal
　　　　.AutoSize = False
　　　　.AddIndent = False
　　End With
　　Selection.ShapeRange.Fill.Visible = msoTrue
　　Selection.ShapeRange.Fill.Solid
　　Selection.ShapeRange.Fill.ForeColor.SchemeColor = 塗色
　　Selection.ShapeRange.Fill.Transparency = 0#
　　Selection.ShapeRange.Line.Weight = 0.75
　　Selection.ShapeRange.Line.DashStyle = msoLineSolid
　　Selection.ShapeRange.Line.Style = msoLineSingle
　　Selection.ShapeRange.Line.Transparency = 0#
　　Selection.ShapeRange.Line.Visible = msoTrue
　　Selection.ShapeRange.Line.ForeColor.SchemeColor = 64
　　Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
　　
End Sub
Private Sub CommandButton2_Click()
Unload UserForm4
End Sub

それで、やりたいことは

奇数行の実施線(ﾃｷｽﾄﾎﾞｯｸｽ)のﾌﾟﾛﾊﾟﾃｨの『ｵﾌﾞｼﾞｪｸﾄを印刷する』のﾁｪｯｸをはずしたり付けたりして印刷したいのです。

又、範囲内には計画線･実施線とも引いていない行もあります。

説明が下手ですいませんが、よろしくお願いします。

0 hits

▼

【26931】工程表について 吉 05/7/23(土) 20:35

≪