|
吉 さんこんばんわです。
余談ですが。。まさか同業者の方が全く同じ時期に工程表を作っているとは
思ってもみなかったです!
私はセルを思いっきり細くして色を塗る方法で作っていて、後はそのセルの
範囲から進捗率を求め、工事履行報告書を作る段階です。
ところで大したアドバイスも出来ませんが気になった点をいくつか。。
> Dim 文字色, 塗色 As Integer
なんですが文字色もInteger型ですよね?
上記の場合だと文字色はVariant型になってしまいます。
Dim 文字色 As Integer, 塗色 As Integer
>奇数行の実施線(テキストボックス)のプロパティの『オブジェクトを印刷する』のチェックをはずしたり付けたりして印刷したいのです。
マクロの記録によれば。。
ActiveSheet.Shapes("Text Box 1").Select
With Selection
.Placement = xlMove
.PrintObject = True
End With
となりましたので。。
Sub Macro1()
Dim TextShapes As Shape
For Each TextShapes In ActiveSheet.Shapes
If Left(TextShapes.Name, 4) = "Text" Then
If Right(TextShapes.Name, 2) Mod 2 = 1 Then
TextShapes.Name.Select
With Selection
.PrintObject = False
End With
End If
End If
Next
End Sub
こんな感じでどうでしょうか?
あくまで実績の方のテキストボックスの名前が奇数であると仮定してますです。
あとはもし私が作る場合ですとA1でも隠しセル
(セルの書式→表示形式→ユーザー定義→;;;)にして
If [A1].Value = 1 Then とかを先頭に加えたら完成?です。
チェックボックスとかややこしいのは避けるタイプでして。。
がんばってみてくだされ。
|
|