Excel VBA質問箱 IV

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

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


13366 / 13646 ツリー ←次へ | 前へ→

【5681】複数のセルから一つのセルへの情報コピー jam 03/5/27(火) 13:30 質問
【5684】Re:複数のセルから一つのセルへの情報コピー ぴかる 03/5/27(火) 15:09 回答
【5721】Re:複数のセルから一つのセルへの情報コピー jam 03/5/28(水) 17:07 お礼

【5681】複数のセルから一つのセルへの情報コピー
質問  jam  - 03/5/27(火) 13:30 -

引用なし
パスワード
    以前、いろいろとお世話になりましたjamと申します。
 さて、またまた質問で申し訳ないのですが…。

 ある複数の範囲のセルに入力されている値(複数)を
 コピーして、一つのセルに貼り付けていきたいという
 ものなのですが…。
 
 どなかたお知恵をおかしください。
 宜しくお願いします。

 
 

【5684】Re:複数のセルから一つのセルへの情報コピ...
回答  ぴかる  - 03/5/27(火) 15:09 -

引用なし
パスワード
   jamさん、こんにちは。

先程、別スレッドで休養宣言しときながら、もう登場してしまいました。
こんなんでOKなんでしょうか?。文字集合をお試し下さい。
あるソフトの一部分を改良しています。数式部はパスとなります。
間違ってら、許してね。(^^)

Option Explicit
Dim Frg As Integer
Dim r1 As Range, r2 As Range
Sub 使用セルを所得する()
 
  Frg = 0
  Set r1 = Selection
  On Error Resume Next
  Set r2 = r1.SpecialCells(xlCellTypeConstants)
  On Error GoTo 0
  
  If (r2 Is Nothing) Or ((Selection.Count = 1) And (ActiveCell.Value = "")) Then
    MsgBox "該当するセルが見つかりません。", vbExclamation
    Frg = 1
  ElseIf Selection.Count > 1 Then
    r2.Select
  End If
  
  Set r2 = Nothing

End Sub
Sub 文字集合()
     
Dim セル As Range
Dim 値
  
  使用セルを所得する
  If Frg = 1 Then Exit Sub
  For Each セル In Selection
    値 = 値 & セル.Value
  Next
  
  r1.Select
  MsgBox 値
 
End Sub

【5721】Re:複数のセルから一つのセルへの情報コピ...
お礼  jam  - 03/5/28(水) 17:07 -

引用なし
パスワード
   ▼ぴかる さん:こんにちは
 
 お礼が遅れて申し訳ありません。
 実は…。見ていても難しくてよくわかりません…(--;)

 なんとかがんばってみますが、それでも
 わからなかったらすいませんが教えてください。
 お手数おかけしました。

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