Excel VBA質問箱 IV

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

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


54535 / 76732 ←次へ | 前へ→

【26987】Re:工程表について
発言  知ろう途  - 05/7/26(火) 0:03 -

引用なし
パスワード
   吉 さんこんばんわです。

余談ですが。。まさか同業者の方が全く同じ時期に工程表を作っているとは
思ってもみなかったです!
私はセルを思いっきり細くして色を塗る方法で作っていて、後はそのセルの
範囲から進捗率を求め、工事履行報告書を作る段階です。

ところで大したアドバイスも出来ませんが気になった点をいくつか。。

> 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 とかを先頭に加えたら完成?です。

チェックボックスとかややこしいのは避けるタイプでして。。
がんばってみてくだされ。

0 hits

【26931】工程表について 05/7/23(土) 20:35 質問
【26935】Re:工程表について M 05/7/24(日) 9:13 回答
【26976】Re:工程表について 05/7/25(月) 21:06 質問
【26984】Re:工程表について M 05/7/25(月) 23:00 回答
【26987】Re:工程表について 知ろう途 05/7/26(火) 0:03 発言
【26989】Re:工程表について 知ろう途 05/7/26(火) 0:15 発言
【27026】Re:工程表について 05/7/26(火) 18:47 お礼

54535 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free