[過去ﾛｸﾞ] Excel総合相談所 141 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
30: 2020/10/09(金)12:28 AAS
=COUNTIF(A1:A10,NOT(B1))
これが動作しないんですが、どうすればいいですか？
31(1): 2020/10/09(金)12:41 AAS
"<>B1"
32: 2020/10/09(金)13:08 AAS
>>31
いえ、式を変えたいのではなく、=COUNTIF(A1:A10,NOT(B1)) を動作させたいんです
33: 2020/10/09(金)13:17 AAS
動作はしてるんじゃ
34: 2020/10/09(金)13:33 AAS
NOT(B1)の戻り値は、B1が0かFALSEならTRUE , 0以外の数値ならFALSE , 文字列なら #VALUE , 他は省略
TRUE , FALSE を数値に変換すると、 1 , 0
これがCOUNTIFの条件になるだけだから、おそらく動作はしてるぞ
例えば、B1に A A2に=INT("A") とでもすれば、A2はカウントされる
希望する動作にならないだけ
35(3): 2020/10/09(金)14:44 AAS
Workbooks.Open ThisWorkbook.Path & "\hogehoge.xlsm"
で同ディレクトリのブックを開くときに、同時に
ActiveSheet.Unprotect Password する方法教えてください。
36: >>35 2020/10/09(金)14:55 AAS
Workbooks.Open ThisWorkbook.Path & "\hogehoge.xlsm",Password:="hogehoge"
自己解決しました
37: 2020/10/09(金)19:52 AAS
【1 OSの種類 .】 Windows8.1
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
EXCELファイルをデスクトップにコピーしたと思ったら、マンインザミラーだったら目が点になるわ!
38: 2020/10/09(金)21:56 AAS
＿＿＿＿＿＿＿＿＿＿＿
＼1 OSの種類 ＼
＼2 Excelのバージョン. ＼＿＿／￣￣＼_
／3 VBAが使えるか .／ ＼＿|￣＼|
／4 VBAでの回答の可否 ／
￣￣￣￣￣￣￣￣￣￣￣
新しいテンプレのデザインを考えてみたんだが、
6行も使ってしまい実用的ではないし、
内容を書くスペースもない
39(1): 2020/10/09(金)22:55 AAS
【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可
マクロ初心者です。
このような形で氏名のは入っている行に新規登録を追加していきたいと考えております。
ここまでは表示することができましたが、.Range("4:4")の次の値をSetする際にどうしてもうまくできません。
ご教授をお願いします。
Sub 検索()
With Worksheets("30年（当月）")
省10
40: 2020/10/09(金)22:56 AAS
ここまでは思うように動かすことができました。
Sub 検索()
With Worksheets("30年（当月）")
Dim noRng As Range
Dim nameRng As Range
Dim namelRng As Range
Set nameRng = .Range("4:4").Find(what:=.Range("氏名").Value, lookat:=xlWhole)
Set namelRng = Range("i15").End(xlDown)
Cells(namelRng.Row + 1, nameRng.Column) = "新規氏名"
End With
省1
41(1): 牧野 ◆Vbs7gX72NY 2020/10/09(金)23:08 AAS
>>39
=.Range("番号")
は恐らく
:=.Range(番号)
その下の
"氏名"
も
氏名
のような気がする
これで動かないならコード全体を見ないと難しい
42(2): 2020/10/09(金)23:36 AAS
>>41
39です。
ダメでした。
書いたコードは39がすべてです。
43(1): 2020/10/09(金)23:42 AAS
>>42
後半の方のCellsとかRangeに.が付いてないのは原因としてあるかもしれない
それと、エラーの内容を書いてくれ
恐らくSetしたnoRngがNothingだからかと思うが
44: 2020/10/09(金)23:47 AAS
>>42
まさか、こういうこと？
誤 Set namelRng = Range("i15").End(xlDown)
正 Set namelRng = .Range("i15").End(xlDown)
45: 2020/10/09(金)23:59 AAS
>>43
実行時エラー’1004’
アプリケーション定義またはオブジェクト定義のエラーです。
この行に問題があるようで、ここから先に進めません。
Set noRng = .Range("4:4").Find(what:=.Range("番号").Value, lookat:=xlWhole)
46(1): 牧野 ◆Vbs7gX72NY 2020/10/10(土)00:15 AAS
.Range("番号").
は、どこかのセルr範囲に「番号」という名前が付けられていないとエラーになるぞ
https://i.imgur.com/qoS31Ub_d.webp?maxwidth=728&fidelity=grand
47(1): 2020/10/10(土)00:41 AAS
>>46
名前は付けてないですが、このような形でデータ入力しています。
＞＞40についてはうまく入力できるのですが・・・。
https://imgur.com/iANDte4
48: 2020/10/10(土)03:36 AAS
エラーで中断したときにイミディエイトウインドウで
? .range("番号").valueを実行して検索する番号が表示されるか試してみて
49(1): 2020/10/10(土)05:38 AAS
セルの名前じゃなくて内容で何列目か検索したいってことか？だとしたら
正 What:="名前"
誤 What:=Range("名前").Value
上下前次1-新書関写板覧索設栞歴
あと 953 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.053s