[[20190604151849]]　『図内テキストの数字の足し算』（まさ）　ページの最後に飛ぶ

『図内テキストの数字の足し算』（まさ）

製造業のその日一日何を稼働させるかのスケジュール表みたいなものを作成しているのですが、最初月曜日にする予定だったものを金曜日に変更する事がよくあるのでセルに入力せずに図を用いて移動させているのですが、そうするとテキストに金額を入力しても一週間でいくら生産金額を上げたかの計算が出来ないのですが、テキスト内に入力した数値を足し算する方法はあるのでしょうか。

＜使用 Excel：unknown、使用 OS：Windows7 ＞

できるかどうかならば、できます。例えば、以下のコードでシート内のテキストボックスの値を全部書き出します。

 Sub test()
    Dim T As Object
    Dim i As Long

    For Each T In TextBoxes
        i = i + 1
        Cells(i, "A").Value = T.TopLeftCell.Address
        Cells(i, "B").Value = T.Text
    Next T
 End Sub

しかしながら、テキストボックスはセルに縛られないオブジェクトであり、どれとどれを足すのか、自動判断は難しいでしょう。テキストボックス全てに判りやすい名前を付けていれば比較的簡単になりますが、普通は貼っておしまいであり、Excelが自動生成した名前のままですよね？座標やサイズがばらばらだと、自動化するのは大変です。

なので、データはセルに入力するように考えるべきだと思いますよ。スケジュールは、開始日と終了日を入力しておいて、これを元にマクロで棒グラフのように四角形を描くとか。これなら、スケジュールが変わったならば、マクロを実行するボタンでも押して再描画するだけです。
（???） 2019/06/04(火) 16:41

返信ありがとうございます。

やはり難しいとのことですね。
仕事で使う資料だったのですが元々のフォーマット変更を上司に提案してみます。
（まさ） 2019/06/05(水) 14:18

コメント返信：

[ 一覧(最新更新順) ]

[[20190604151849]] 『図内テキストの数字の足し算』（まさ） ページの最後に飛ぶ

[[20190604151849]]　『図内テキストの数字の足し算』（まさ）　ページの最後に飛ぶ