Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4352 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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つにまとまるようにしたいのですが・・

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

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

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

【疑問】
・合計した分だけ上詰めにしていきたい？
・上詰めして空白になったNo.5に数式を入れたいということ？
・１．の合計した箇所に数式を残すのは無理。元データのC列の値を変更しては？
・先に対象セルを選択した状態で、コマンドボタンで実行するほうが簡単だと思うが？
【57045】Re:結合
発言  いち。  - 08/7/18(金) 17:39 -
引用なし
パスワード
   ▼ハチ さん：
コメントありがとうございます


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

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

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

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

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

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

分かりました。
【57046】Re:結合
発言  ハチ  - 08/7/18(金) 18:28 -
引用なし
パスワード
   ▼いち。 さん：
>・上詰めして空白になったNo.5に数式を入れたいということ？
>
>No.５にはもともと数式を入れているのですが
>結合することによって、数式は消えてしまうのではなく、はじめに入れていた数式が残っているようにしていたいです。

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

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

>・１．の合計した箇所に数式を残すのは無理。元データの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列にはいまのところ何も入ってはいません・・
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4352 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free