Excel VBA 質問スレ Part66

**1000** · 2020/05/10(日) 13:43:45.00

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

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

※デフォルト設定

**デフォルトの名無しさん** · 2020/06/23(火) 22:16:19.70

やっと念願の夢かなって生産現場に異動できそう
PCをあまり使わなくなる職場にいけるから
マクロ組んだりもほとんどしなくて済むから嬉しすぎる
そしてここで教えてくれた人たちへの恩も忘れられんよ

**デフォルトの名無しさん** · 2020/06/23(火) 22:27:25.32

ひでぇなぁ忘れられちゃうのかぁ残念
汗だくの梱包現場からエアコン効いた部屋に行きたいよ

**デフォルトの名無しさん** · 2020/06/24(水) 10:22:12.41

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.72

FiVBAって命令あるの？

**デフォルトの名無しさん** · 2020/06/24(水) 13:23:42.08

tってなんだよ
宣言してないオブジェクト変数が動くわけないだろ

**デフォルトの名無しさん** · 2020/06/24(水) 13:58:43.39

なにがだめって聞かれても全てがとしか

**デフォルトの名無しさん** · 2020/06/24(水) 14:29:06.16

ちゃんと内容を確認しないのが駄目

**デフォルトの名無しさん** · 2020/06/24(水) 14:58:07.29

ごめん間違えた
これです
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.69

>>981
https://www.moug.net/tech/exvba/0050116.html

ここでも参考にしな

まず確実に言えるのは、Nothingのエラー対処ができてない

**デフォルトの名無しさん** · 2020/06/24(水) 16:03:07.42

>>981
田中がないんだろどうせ

**デフォルトの名無しさん** · 2020/06/24(水) 16:11:20.98

Set Target = Range("P:P").Find(What:="田中")

この田中を変数というか特定のセルの値にしたい場合どうしたらいい？
A1のセル内容を参照したいとする

**デフォルトの名無しさん** · 2020/06/24(水) 16:18:53.01

あ、できた
ごめん自分は京都大学霊長類研究所のジェームズという7歳のチンパンジーだからVBAよくわからないんだ
皆さんありがとございまうす

**デフォルトの名無しさん** · 2020/06/24(水) 16:21:57.07

>>985
解決内容を書けチンパンジー

**デフォルトの名無しさん** · 2020/06/24(水) 17:53:24.17

自己紹介や自分語りはいらん

**デフォルトの名無しさん** · 2020/06/24(水) 19:08:49.57

>>984
Nothingのエラ―対処が出来て無いってのはみんなが通る道だ。

**デフォルトの名無しさん** · 2020/06/24(水) 19:26:45.24

自分で使う分にはエラー終了でも正常終了でも変わらんし

**デフォルトの名無しさん** · 2020/06/25(木) 14:24:07.38

In Range("R:R")
というのがあるとして
R列全体を選択するのはマストなんだけど
ホントはR7からソレ以下全部にしたい
In Range("R7:R")ではうまく行かないみたいだしこういう場合ってどうしたらいいんだろう

**デフォルトの名無しさん** · 2020/06/25(木) 14:52:26.82

usedrangeじゃ駄目なんですか？

**デフォルトの名無しさん** · 2020/06/25(木) 15:35:07.92

テーブルにすれば？

**デフォルトの名無しさん** · 2020/06/25(木) 15:38:48.25

cellsでそこから最終行まで指定すればいいじゃない

**デフォルトの名無しさん** · 2020/06/25(木) 16:00:07.27

colmns.countが最終桁番号だしApplication.Intersectで指定２範囲の重複部分だせるし

**デフォルトの名無しさん** · 2020/06/25(木) 16:24:03.44

直感的にやるならRange(Range("R7"),Range("R7").End(xlDown))でいいんじゃない

**デフォルトの名無しさん** · 2020/06/25(木) 17:54:02.59

>>990
何故最終行までという指定を省こうとするのか？
先に真っ当な手順で実現できてないのに想像で勝手に省いてうまくいかないってどういうつもりなのか？

**デフォルトの名無しさん** · 2020/06/25(木) 17:54:59.62

きたこれ
VBA歴2ヶ月なのに俺は職場のPCの先生から神様扱い

**デフォルトの名無しさん** · 2020/06/25(木) 18:26:51.87

何そのダメ先生

**デフォルトの名無しさん** · 2020/06/25(木) 18:32:44.98

おだてられて浮かれてるだけだなw

**デフォルトの名無しさん** · 2020/06/25(木) 18:45:05.09

うー

**1001** · Over 1000

このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 46日 5時間 1分 20秒