Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

75237 / 76738

←次へ　｜　前へ→


	【5943】リトライです。

ぴかる - 03/6/10(火) 15:58 -


	引用なし

	パスワード

先程は、失礼しました。確認してなかったです。
センスないけど、作ってみました。今度はどうです？。

Sub TEST()

Dim 範囲 As String
Dim セル As Range
Dim 行 As Long
Dim 列 As Integer
Dim 行確認 As Boolean
Dim 列確認 As Boolean
　　
　　範囲 = Selection.Formula
　　範囲 = Mid$(範囲, 6)
　　範囲 = Mid$(範囲, 1, Len(範囲) - 1)
　　
　　For Each セル In Range(範囲)
　　　　If (行 <> 0) And (行 <> セル.Row) Then
　　　　　　行確認 = 1
　　　　End If
　　　　If (列 <> 0) And (列 <> セル.Column) Then
　　　　　　列確認 = 1
　　　　End If
　　　　行 = セル.Row
　　　　列 = セル.Column
　　Next

　　If (行確認 = True) And (列確認 = False) Then
　　　 MsgBox "縦"
　　ElseIf (行確認 = False) And (列確認 = True) Then
　　　 MsgBox "横"
　　Else
　　　 MsgBox "良くわかんない。"
　　End If
　　
　　
End Sub

0 hits

▼

【5932】縦計、横計の判別 つん 03/6/10(火) 11:24