[過去ﾛｸﾞ] Excel総合相談所 136 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
390: 2019/08/25(日)15:21 AAS
>>389
forで回すとか、WorksheetFunctionでやるとか
On Error Resume Next
hage = WorksheetFunction.Match(i, Range("A1:A30"), 0)
On Error GoTo 0
If hage > 0 Then
MsgBox "OK"
Else
MsgBox "NG"
End If
391: 2019/08/25(日)15:21 AAS
findか何かを使えばいいんだろうけど構文を調べるのが面倒だから
ForEachで作ってしまう僕が通るだけで後はまかせますよ
392: 2019/08/25(日)16:15 AAS
>>389
if range("A1:A30").find(i) is nothing then debug.print "NG"
393: 2019/08/25(日)16:18 AAS
間違えたわ
if range("A1:A30").find(i) is nothing then debug.print "OK"
394: 2019/08/25(日)16:20 AAS
findは文字列・数値で見つからないのが微妙に怖い
395: 2019/08/25(日)16:22 AAS
見つからないことが困るか困らないかは仕様と目的による
396(1): 2019/08/25(日)16:29 AAS
findって対象の値が二つ以上あったらどういう挙動なんだっけ？
397: 2019/08/25(日)16:32 AAS
はじめのrangeオブジェクト
398: 2019/08/26(月)12:52 AAS
>>396
最初に見つけたところで検索終了
ただどこまで検索したのかの位置は内部的に記録してあって
それ以降のを検索するには
FindNextメソッド使って終わりまでループさせる
正直面倒な仕様だと思われ
399: 2019/08/26(月)14:50 AAS
vbaでIEを動かす際、テキストボックスへのfocusが、成功するときと成功しない（で次の処理に移行しエラーが出る）ときがあります
安定させるのに何か方法はないでしょうか？
400(2): 2019/08/26(月)16:01 AAS
エクセラーってちょっと響きかっこよいですよね
ワード…
401(3): 2019/08/26(月)19:23 AAS
【1 OSの種類 .】 Windows8.1
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
10シートのうち，「作業用」，「転記用」という名前が入っているシートがいくつかあります。
通常は非表示にしてあり，現在は，担当者が再表示する場合は「校閲」→「ブックの保護」→「パスワード入力」と行っています。
これを，例えば「シートの再表示」というマクロを実行すると，
1．「校閲」→「ブックの保護」→「パスワード入力」 まで自動で進む。
2．パスワードを入力する。
3．「作業用」，「転記用」という名前が入っているシートのみが再表示される。
省7
402: 2019/08/26(月)19:25 AAS
>>400
エクセラだとインスタントコーヒーになってしまうので、エクセリストが推奨されています
403: 2019/08/26(月)19:31 AAS
>>400
ワードナー
404(2): 2019/08/26(月)19:35 AAS
>>401です。追記です。
パスワードなしの場合は，以下のように記述しています。
Sub 転記用シート一括非表示()
Dim s As Worksheet
For Each s In Worksheets
If InStr(s.Name, "転記用") > 0 Then
s.Visible = False
End If
Next s
End Sub
省8
405: 389 2019/08/26(月)22:49 AAS
アドバイスありがとうございました。
とても勉強させて頂きました。
私もいつかは回答者さん側になれるよう精進したいと思います。
406(3): 2019/08/26(月)23:01 AAS
A1をリスト入力に設定し、リスト候補をセル範囲指定に
している場合で、セル範囲（縦一列に入力）の下部セル
にリスト候補を追加入力しただけで、リスト候補として
追加される方法はありますか？
407: 2019/08/26(月)23:14 AAS
オートコンプリートじゃだめなんかい。
408(1): 2019/08/26(月)23:24 AAS
>>406
C列に候補を入れているとした場合にデータの入力規則でリスト、
元の値のとこを↓にすれば出来る
=OFFSET(C1,0,0,COUNTA(C:C),1)
409: 2019/08/26(月)23:24 AAS
入力セルがA列、リスト候補の列が別のとこに設けている
ようにしています。
新しいリスト候補ができると、都度入力規則を設定し直
しているのを省略したいです。
上下前次1-新書関写板覧索設栞歴
あと 593 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.013s