Excel VBA 質問スレ Part66

レス数が1000を超えています。これ以上書き込みはできません。
11000
垢版 |
2020/05/10(日) 13:43:45.00ID:Nkoph0aj
ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

※前スレ
Excel VBA 質問スレ Part65
https://mevius.5ch.net/test/read.cgi/tech/1584430040/

※デフォルト設定
2020/06/23(火) 18:21:08.83ID:coVE1fyX
>>967
グラフ自動生成するときとかに使ってる
2020/06/23(火) 18:22:23.82ID:z7FZNG3t
usedrangeはファイルの中身を検査する時に使うな
個人情報が入ってないかとか
2020/06/23(火) 18:28:15.83ID:X4/0OZ1g
UsedRangeは普通に使うぞ。
寧ろ、一番使うかも。

Excelの固定じゃない範囲を取得する場合、これでOKというようなものが無い。
都度考えることになる。
2020/06/23(火) 21:35:23.31ID:LvHFRgi0
値化とか
2020/06/23(火) 21:40:15.53ID:LvHFRgi0
2次元の動的配列にバックデータを突っ込むときに使う
2020/06/23(火) 22:16:19.70ID:zDUcrbEK
やっと念願の夢かなって生産現場に異動できそう
PCをあまり使わなくなる職場にいけるから
マクロ組んだりもほとんどしなくて済むから嬉しすぎる
そしてここで教えてくれた人たちへの恩も忘れられんよ
2020/06/23(火) 22:27:25.32ID:UicElvK7
ひでぇなぁ忘れられちゃうのかぁ残念
汗だくの梱包現場からエアコン効いた部屋に行きたいよ
976デフォルトの名無しさん
垢版 |
2020/06/24(水) 10:22:12.41ID:XfIA0IcT
Sub Sample1()
Dim Target As Range
Set Target = Range("P:P").FiVBA エラー 91
これで
オブジェクト変数または With ブロック変数が設定されていません。t.Offset(0, 1)
End Sub

何がだめ?
2020/06/24(水) 10:26:15.72ID:7kmsZdqz
FiVBAって命令あるの？
2020/06/24(水) 13:23:42.08ID:hNjrAS7L
tってなんだよ
宣言してないオブジェクト変数が動くわけないだろ
2020/06/24(水) 13:58:43.39ID:LpqCs0qI
なにがだめって聞かれても全てがとしか
2020/06/24(水) 14:29:06.16ID:jVCudKEf
ちゃんと内容を確認しないのが駄目
981デフォルトの名無しさん
垢版 |
2020/06/24(水) 14:58:07.29ID:ec8khzg7
ごめん間違えた
これです
Sub Sample1()
Dim Target As Range
Set Target = Range("P:P").Find(What:="田中")
MsgBox Target.Offset(0, 1)
End Sub
2020/06/24(水) 15:31:45.69ID:7kmsZdqz
>>981
https://www.moug.net/tech/exvba/0050116.html

ここでも参考にしな

まず確実に言えるのは、Nothingのエラー対処ができてない
2020/06/24(水) 16:03:07.42ID:A95Qwidx
>>981
田中がないんだろどうせ
984デフォルトの名無しさん
垢版 |
2020/06/24(水) 16:11:20.98ID:ec8khzg7
Set Target = Range("P:P").Find(What:="田中")

この田中を変数というか特定のセルの値にしたい場合どうしたらいい？
A1のセル内容を参照したいとする
985デフォルトの名無しさん
垢版 |
2020/06/24(水) 16:18:53.01ID:ec8khzg7
あ、できた
ごめん自分は京都大学霊長類研究所のジェームズという7歳のチンパンジーだからVBAよくわからないんだ
皆さんありがとございまうす
986デフォルトの名無しさん
垢版 |
2020/06/24(水) 16:21:57.07ID:4/s69xMY
>>985
解決内容を書けチンパンジー
2020/06/24(水) 17:53:24.17ID:A95Qwidx
自己紹介や自分語りはいらん
2020/06/24(水) 19:08:49.57ID:Ra7WLueW
>>984
Nothingのエラ―対処が出来て無いってのはみんなが通る道だ。
989デフォルトの名無しさん
垢版 |
2020/06/24(水) 19:26:45.24ID:aYj5R9EO
自分で使う分にはエラー終了でも正常終了でも変わらんし
990デフォルトの名無しさん
垢版 |
2020/06/25(木) 14:24:07.38ID:UL1INOQI
In Range("R:R")
というのがあるとして
R列全体を選択するのはマストなんだけど
ホントはR7からソレ以下全部にしたい
In Range("R7:R")ではうまく行かないみたいだしこういう場合ってどうしたらいいんだろう
991デフォルトの名無しさん
垢版 |
2020/06/25(木) 14:52:26.82ID:fOnLoXil
usedrangeじゃ駄目なんですか？
2020/06/25(木) 15:35:07.92ID:eDJAI9Nl
テーブルにすれば？
2020/06/25(木) 15:38:48.25ID:emOdy//g
cellsでそこから最終行まで指定すればいいじゃない
2020/06/25(木) 16:00:07.27ID:eepaDL1r
colmns.countが最終桁番号だしApplication.Intersectで指定２範囲の重複部分だせるし
2020/06/25(木) 16:24:03.44ID:oGWS7APt
直感的にやるならRange(Range("R7"),Range("R7").End(xlDown))でいいんじゃない
2020/06/25(木) 17:54:02.59ID:xz2BRr37
>>990
何故最終行までという指定を省こうとするのか？
先に真っ当な手順で実現できてないのに想像で勝手に省いてうまくいかないってどういうつもりなのか？
2020/06/25(木) 17:54:59.62ID:orhJfehX
きたこれ
VBA歴2ヶ月なのに俺は職場のPCの先生から神様扱い
998デフォルトの名無しさん
垢版 |
2020/06/25(木) 18:26:51.87ID:BKkovaqh
何そのダメ先生
2020/06/25(木) 18:32:44.98ID:0L1EfJ/H
おだてられて浮かれてるだけだなw
2020/06/25(木) 18:45:05.09ID:goJhPQKd
うー
10011001
垢版 |
Over 1000Thread
このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 46日 5時間 1分 20秒
レス数が1000を超えています。これ以上書き込みはできません。
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。
ニューススポーツなんでも実況