Excel VBA質問箱 IV

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

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


4350 / 13644 ツリー ←次へ | 前へ→

【56970】結合 いち。 08/7/15(火) 14:13 質問[未読]
【56971】Re:結合 こぎつね 08/7/15(火) 16:44 発言[未読]
【56972】Re:結合 Abebobo 08/7/15(火) 18:24 発言[未読]
【57040】Re:結合 いち。 08/7/18(金) 16:02 質問[未読]
【57042】Re:結合 ハチ 08/7/18(金) 16:39 発言[未読]
【57045】Re:結合 いち。 08/7/18(金) 17:39 発言[未読]
【57046】Re:結合 ハチ 08/7/18(金) 18:28 発言[未読]
【57076】Re:結合 Abebobo 08/7/22(火) 10:21 発言[未読]
【57158】Re:結合 いち。 08/7/29(火) 15:11 発言[未読]

【56970】結合
質問  いち。  - 08/7/15(火) 14:13 -

引用なし
パスワード
   セルにそれぞれ

No.  時間 
1   12
2   13
3   5
4   8
5   9

のように時間を表示しています。
これらを、No.を選んでやって、それぞれ分けてあるものを結合させてやることなどは、できるでしょうか・・

例えば、コマンドボタンをクリックしてやると、結合させたいセルを選ぶことができ、(No.1とNo.2を結合させたいとする)選んだら結合するというような・・


No.  時間 
1   25
2   5
3   8
4   9
5  

もともとこの表の時間のところのセルには=IF(C7>0,C7-C6,0)のような感じで、それぞれ入力してあり、これらを結合によって消したくはないのですが・・


よいアドバイスやヒントがあれば教えて頂きたいです
よろしくお願いします

【56971】Re:結合
発言  こぎつね  - 08/7/15(火) 16:44 -

引用なし
パスワード
   >もともとこの表の時間のところのセルには=IF(C7>0,C7-C6,0)のような感じで、
>それぞれ入力してあり、これらを結合によって消したくはないのですが・・
時間の”合計”ですよね?
それに合計をセルに入れたら数式は消えちゃいますけど。

【56972】Re:結合
発言  Abebobo  - 08/7/15(火) 18:24 -

引用なし
パスワード
   こんにちは。
たとえば、下記マクロが糸口になりますか?

Sub インプットボックス()
Dim F_r As Range
Dim r  As Range
Set F_r = Application.InputBox("セルを選択してください", _
                Title:="セルの選択", Type:=8)
Set r = Application.InputBox("合計したいセルを選択してください", _
               Title:="セルの選択", Type:=8)
MsgBox "最初に選択した時間は " & Range("B" & F_r.Row).value & Chr(10) & _
    "次に選択した時間は " & Range("B" & r.Row).value
End Sub

C列の値に合計しちゃうとか

【57040】Re:結合
質問  いち。  - 08/7/18(金) 16:02 -

引用なし
パスワード
   ▼Abebobo さん

アドバイスありがとうございます。

この方法だとセルには合わさった時間が表示されないですよね・・

コマンドボタンを使って、合わせたいセル同士を選択させてOKを押すと
1つにまとまるようにしたいのですが・・

アドバイスしていただいたことをもとに考えていますがなかなか・・

【57042】Re:結合
発言  ハチ  - 08/7/18(金) 16:39 -

引用なし
パスワード
   ▼いち。 さん:
>コマンドボタンを使って、合わせたいセル同士を選択させてOKを押すと
>1つにまとまるようにしたいのですが・・

どうしたいのか?がイマイチ、わかりません。

提示されている例をみると・・・

1.合計して上詰めしてるように見える。
2.No.5の箇所が空白になっている。

【疑問】
・合計した分だけ上詰めにしていきたい?
・上詰めして空白になったNo.5に数式を入れたいということ?
・1.の合計した箇所に数式を残すのは無理。元データのC列の値を変更しては?
・先に対象セルを選択した状態で、コマンドボタンで実行するほうが簡単だと思うが?

【57045】Re:結合
発言  いち。  - 08/7/18(金) 17:39 -

引用なし
パスワード
   ▼ハチ さん:
コメントありがとうございます


【疑問】
・合計した分だけ上詰めにしていきたい?

はい。上詰めしていきたいです。

・上詰めして空白になったNo.5に数式を入れたいということ?

No.5にはもともと数式を入れているのですが
結合することによって、数式は消えてしまうのではなく、はじめに入れていた数式が残っているようにしていたいです。

・1.の合計した箇所に数式を残すのは無理。元データのC列の値を変更しては?
無理なんですか・・分かりました

・先に対象セルを選択した状態で、コマンドボタンで実行するほうが簡単だと思うが?

分かりました。

【57046】Re:結合
発言  ハチ  - 08/7/18(金) 18:28 -

引用なし
パスワード
   ▼いち。 さん:
>・上詰めして空白になったNo.5に数式を入れたいということ?
>
>No.5にはもともと数式を入れているのですが
>結合することによって、数式は消えてしまうのではなく、はじめに入れていた数式が残っているようにしていたいです。

ここが、わかりません。
上詰めにセル位置がズレることにより、
No.5のセルに数式が入ってない状態となってしまう。
ということですか?

あと『結合』ですが、これは『セルの結合』(Merge)をイメージしてしまいます。
他の方の書かれているように『数値を合計したい』ということですよね?

>・1.の合計した箇所に数式を残すのは無理。元データのC列の値を変更しては?
>無理なんですか・・分かりました

元セルの数式を解読して、数式として入れることは出来ますが、
面倒な処理になると思います。

いち。さんは、どの程度までコードが書けるのでしょうか?
今できているコードを提示するほうが、より良い回答がつくと思いますよ。

【57076】Re:結合
発言  Abebobo  - 08/7/22(火) 10:21 -

引用なし
パスワード
   ▼いち。 さん:
MsgBox "最初に選択した時間は " & Range("B" & F_r.Row).value & Chr(10) & _
    "次に選択した時間は " & Range("B" & r.Row).value

Range("B" & F_r.Row).value + Range("B" & r.Row).value
で合計時間ですけど・・・。

C列には何か式が入っているのでしょうか?

【57158】Re:結合
発言  いち。  - 08/7/29(火) 15:11 -

引用なし
パスワード
   ▼Abebobo さん:
アドバイスありがとうございます

C列には何か式が入っているのでしょうか?
という質問なんですが、

C列にはいまのところ何も入ってはいません・・

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