VB Excel操作でActiveCellの文字変換

質問

VisualBasic6.0 (初心者)
保管場所が指定されない(様々な)Excelファイルを開き、ActiveCellの文字を変換(大文字・小文字・半角など)出来るよう下記コードを考えました。
この場合、Load後にExcelを起動しないとActiveCellが得られません。
Load時にMsgBox ActiveCellを入れたのは、たまたまExcelを起動させたらActiveCellが得られ、文字が変換出来たからです。
これは何故でしょう？？
また、起動中のExcelファイルを再起動させなくてもActiveCellが得られる方法は無いでしょうか？
'------------------------------------
Private Sub C1_Click()
Dim TTT As String
Dim UUU As String

On Error Resume Next
If ActiveCell.Row = 0 Then
MsgBox "Active Excel 無し"
Else
TTT = Cells(ActiveCell.Row, ActiveCell.Column).Value
UUU = StrConv(TTT, 1)
Cells(ActiveCell.Row, ActiveCell.Column).Value = UUU
End If
On Error GoTo 0
End Sub
'------------------------------------
Private Sub Form_Load()
On Error Resume Next
MsgBox ActiveCell
On Error GoTo 0
End Sub

回答No.2

hana-hana3 · ベストアンサー

＞これは何故でしょう？？

ActiveCellってのは「選択されているセル」の事です。
エクセルファイルを起動すると、必ずどれかのシートがアクティブでそのシートのどこかのセルが必ず選択されています。

起動時にどのシートのどのセルがアクティブになるかは、終了時の状態が保存されるだけなので、保存した人以外はどのセルがアクティブになっているかは全く解らない状態です。

起動後に任意のセルをアクティブにしたいなら、RangeやCellsを使って「セル位置を指定」してください。

MsgBox ActiveCell.Address とすれば、アクティブセルのアドレスが表示出来ます。

＞TTT = Cells(ActiveCell.Row, ActiveCell.Column).Value

全く無意味。
TTT = ActiveCell.Value　と同じですよね。

お礼

質問の内容が分かりにくく失礼致しました。
フォームロード時に
MsgBox ActiveCell や
ActiveCell.Value = StrConv(ActiveCell.Value, 1)
などを入れないと、その後立ち上げたExcelのセルを選択しても
ActiveCell.Row = 0 になってしまうのです??
もしくはロード時は未入力で、コマンドボタンC1をクリックした後
Excelを立ち上げれば出来ます。

>全く無意味。
>TTT = ActiveCell.Value　と同じですよね。
参考になりました
ActiveCell.Value = StrConv(ActiveCell.Value, 1)
の一行で済む事でした。

補足

回答有り難う御座いました。

回答No.3

n-jun

ＶＢ６．０がExcelファイルの”アクティブセル”の値を取得するには、Excelを起動させないと
無理なように思いますけど。
⇒どこのセルがアクティブなのかは閉じていたらわからないかと。

Private Sub Form_Load()
Dim xlapp As New Excel.Application
Set xlapp = CreateObject("Excel.Application")
xlapp.Visible = True
xlapp.Workbooks.Open ("D:\Book1.xls")

End Sub

Private Sub Command1_Click()
Dim xlwb As Object
Set xlwb = GetObject(, "Excel.Application")

MsgBox (xlwb.ActiveCell.Address)
End Sub

こんな感じとか？
的はずれでしたらごめんなさい。

お礼

回答有り難う御座いました。
質問の内容が分かりにくく失礼致しました。
>VB6.0がExcelファイルの"アクティブセル"の値を取得するには、Excelを起動させないと
>無理なように思いますけど。
確かに　MsgBox ActiveCell をExcel立ち上げる前に実行しても意味が無いように思いますが、
何故かこれを実行させておくと後にどのExcelを立ち上げても ActiveCell を取得出来るのです？？
最初は新規Excelを立ち上げてこれを実行させ新規Excelを閉じていましたが
それを短縮した結果(既に開いているExcelも閉じてしまう為)こうなりました。

補足

MsgBox ActiveCell をExcelを立ち上げる前に実行した場合。
Ctr+Alt+Delete のプロセスの中に EXCEL.EXE が追加されます。
(Excelを立ち上げていないのに・・・？)
これが追加されている間は、どのExcelを立ち上げてもシートの
セルを選択してコマンドを実行すれば、アクティブなセルの値を
得ることが出来ます。
Excelとフォームの両方を終了させた場合、プロセスから EXCEL.EXE
が削除されます。
このやり方は間違いなのでしょうか・・

回答No.1

imogasi

＞ActiveCellの文字
とはどういうことを考えているのか？
1つのブックにシートは通常、複数あり各シートにアクチヴセルは有る
（残っていると言えよう）。
Sub test01()
Dim sh
For Each sh In Worksheets
MsgBox sh.Name
sh.Activate
MsgBox ActiveCell.Address
Next

End Sub
ーー
Sub test01()
Dim sh
For Each sh In Worksheets
MsgBox sh.Name
MsgBox ActiveCell.Address
Next
End Sub
ならアクチブシート（１つしかない）アクチブセルを表示する。
ーー
場合によってはＳｈｈｅｔＡｃｔｉｖａｔｅイベントを使うが必要
がある
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
MsgBox Sh.Name
MsgBox ActiveCell.Address
End Sub
＝＝＝
＞起動中のExcelファイルを再起動させなくてもActiveCellが得られる方法は無いでしょうか
＞Load後にExcelを起動しないとActiveCellが得られません。
この意味は良くわかりません。
Ｌｏａｄとは何をＬｏａｄ？Ｆｏｒｍ？それまでＦｏｒｍの話は出てないじゃない。
＝＝
ブックを読まずに、そのセルの文字列を置換とかしたいということか？

お礼

回答有り難う御座います。
質問の内容が分かりにくく、失礼致しました。
なるほど、この方法だとシートとセルの情報が分かりますね。
参考になりました。
初心者の為ShhetActivateの使い方は分かりませんでした。

実際にやりたい事は起動中又はおっしゃる通りFormをLoad後に立ち上げたExcelの
いずれかのセルを自ら選択しそのセルに入力されている数字や英字などを
StrConvを使用して変換したいです。
しかし、FormをLoad後は出来たのですがFormをLoad前に立ち上がっているExcelへは
ActiveCell.Row = 0になってしまいました。