No.3ベストアンサー
- 回答日時:
> マニュアルとか、サイトはありますか?
参考書は、ちょっと大きな本屋さんに行けば、一杯あるかと・・・
内容を見て適当なものに決めればいいと思います。
サイトも、これまた一杯ありまして、何処が一番とかは、言えませんが、取り敢えず・・・
http://www.voicechatjapan.com/excelvba/
なんかは、どうですか。
あと、Cellsで思い出しましたが、これを使えば、ちょっと簡単になります。
どっちも、連続している1つの範囲の場合です。 飛び飛びの場合は、方法が違います。
Sub Test2()
Dim Rng As Range
With Selection
Set Rng = .Cells(.Rows.Count, .Columns.Count)
End With
MsgBox "Address = " & Rng.Address(False, False) & vbNewLine & _
"Row = " & Rng.Row & vbNewLine & _
"Column = " & Rng.Column, , "最終アドレス"
End Sub
No.2
- 回答日時:
範囲レンジの右下末端セル
Set 右下末端セル = レンジ.Cells(レンジ.Count)
With レンジ
Set 右下末端セル = .Cells(.Count)
End With
右下末端セル が 結合されたセルだと 結合の左上でないと入力できない・・
No.1
- 回答日時:
範囲内のアクティブセルの位置が任意の場合として、こんな感じかな。
Sub Test1()
Dim Rng As Range
With Selection
Set Rng = .Resize(1, 1).Offset(.Rows.Count - 1, .Columns.Count - 1)
End With
MsgBox "Address = " & Rng.Address(False, False) & vbNewLine & _
"Row = " & Rng.Row & vbNewLine & _
"Column = " & Rng.Column, , "最終アドレス"
End Sub
ドットや---s の打ち間違えで何度かエラーになりましたが結局出来ました、感激です、ありがとうございます。
ところでこの手の内容が書かれたマニュアルとか、サイトはありますか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
高校生はアルバイトするべきだろうか?賛成だったら「賛」、否定だったら「否」を文頭においてあなたの意見を教えてください。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
Excelの条件付き書式設定の太い罫線
Excel(エクセル)
-
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
-
4
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
5
エクセルVBA 行のグループ化を外すマクロ
Access(アクセス)
-
6
コントロールの存在確認
Visual Basic(VBA)
-
7
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
8
関数の引数でrangeを指定したとき
Visual Basic(VBA)
-
9
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
10
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
11
コマンドボタンがあるかどうかを取得するには?
PowerPoint(パワーポイント)
-
12
エクセルStatusBar表示が変化しない
Excel(エクセル)
-
13
Excel VBAでのWorksheet_Changeが動作しない原因
Excel(エクセル)
-
14
VBAでセルがコピーされているか判定したい
Excel(エクセル)
-
15
エクセルVBA 配列からセルに「関数式」を一気代入したい
Visual Basic(VBA)
-
16
複数の条件に合う行番号を取得するには
その他(Microsoft Office)
-
17
excelのInitializeイベントとActivateイベントについて
Excel(エクセル)
-
18
UserForm
Visual Basic(VBA)
-
19
VBA 1次元配列を2次元に追加する
Visual Basic(VBA)
-
20
VBAでの Replace関数で、ワイルドカードは使えないのでしょうか?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
貼り付けで複数セルに貼り付けたい
-
【エクセル】IF関数 Aまたは...
-
エクセルで指定したセルのどれ...
-
対象セル内(複数)が埋まった...
-
Excelでのコメント表示位置
-
Excel 例A(1+9) のように番地の...
-
Excelで数式内の文字色を一部だ...
-
(Excel)数字記入セルの数値の後...
-
セルをクリック⇒そのセルに入力...
-
エクセル 足して割る
-
エクセル オートフィルタで絞...
-
【Excel】 セルの色での判断は...
-
エクセルのセルの枠を超えて文...
-
エクセルの一つのセルに複数の...
-
数式を残したまま、別のセルに...
-
EXCEL VBA セルに既に入...
-
エクセル “13ヶ月”を“1年1ヶ月...
-
エクセルのセル証明
-
エクセルの書式設定の表示形式...
-
Excelで、「特定のセル」に入力...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
貼り付けで複数セルに貼り付けたい
-
【エクセル】IF関数 Aまたは...
-
(Excel)数字記入セルの数値の後...
-
エクセルで指定したセルのどれ...
-
Excelで数式内の文字色を一部だ...
-
Excelでのコメント表示位置
-
【Excel】 セルの色での判断は...
-
エクセルのセルの枠を超えて文...
-
対象セル内(複数)が埋まった...
-
セルをクリック⇒そのセルに入力...
-
エクセルの一つのセルに複数の...
-
枠に収まらない文字を非表示に...
-
Excel 例A(1+9) のように番地の...
-
エクセルの書式設定の表示形式...
-
エクセル 足して割る
-
エクセル “13ヶ月”を“1年1ヶ月...
-
エクセル オートフィルタで絞...
-
エクセルで住所と建物名を分け...
-
EXCEL VBA セルに既に入...
-
excelの特定のセルの隣のセル指...
おすすめ情報