| |
ｊａｍさん、こんにちは。
先程、別スレッドで休養宣言しときながら、もう登場してしまいました。
こんなんでＯＫなんでしょうか？。文字集合をお試し下さい。
あるソフトの一部分を改良しています。数式部はパスとなります。
間違ってら、許してね。(^^)
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
|
|
