Gizport
1 回答
0
Share (facebook)
222
view
全般

エクセル2010 VBAの初心者質問です。よろしくお願いします。下記...

エクセル2010 VBAの初心者質問です。よろしくお願いします。下記、プログラムを作ったのですがうまくいきません。やりたいことは、 a で行数を求めて下の For z =1 to a でつかいたいのです。できませんでした。For k = 1 To 5 a = Worksheets(k).Cells(Rows.Count, 10).End(xlUp).Row For z = 1 To a y = Application.Match(Worksheets(k).Cells(z, 10), Worksheets("sheet10").Range("A1:A100"), 0)NextNextこのような使い方はダメなのでしょうか?どのようにすればうまくできますか。教えてください。お願いします。
Yahoo!知恵袋 4688日前
コメントする
お気に入り
1
質問者が選んだベストソリューション
サンプルの一つです。1列目1~10行まで1セルずつチェックして、「○」がないかチェックするものです。あれば、その『セルを選択』して、そのセルのアドレス(番地)をMsgBoxに表示させています。一度試してみてください。Alt+F11の標準モジュールに貼り付けますが・・・コードの上にカーソルを当てステップイン(F8を押したり離したりして)し、エクセルの表紙を左に出してコードの動きと、表面のエクセルの動きを見るのも参考になると思います。Sub 一列目の一行目から最終行までチェック() Dim i As Long, LstR As Long LstR = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row 'LstRを一列目の最終行にする For i = 1 To LstR '1行目~最終行まで1行ずつ移動 If Cells(i, 1) = "〇" Then 'もし〇があれば Cells(i, 1).Select 'そこのセルを選択 MsgBox Cells(i, 1).Address(0, 0) '〇のセルのアドレスをMsgBoxに表示 End If Next iEnd Sub
Yahoo!知恵袋 4673日前
シェア
 
コメントする
 

参考になったと評価
  このQ&Aは参考になりましたか?

Share (facebook)
その他の解決方法を知っていますか?
回答する
全般
86
Views
質問者が納得家電売ってる者です。タイガーの機種、この値段なら交渉してもらえば出せますから、特別安くないです。そして機種ですが、象印とタイガーは圧力IH、パナソニックはIHです。象印は、7段圧力で炊き分けできますから、冷えても美味しいと感じるお好みの炊き方にしやすいのもあります。タイガーですと極うま炊きが良いです。ただ、タイガーの機種は炊きたてを食べるのが一番良いので、時間おいて冷えると、いまいちという話は聞きます。パナソニックは、ちょっと炊きあがりも硬めになります。IHなので若干水分少なめなんです。ですから、冷めるとさ...
4571日前view86
全般
67
Views
質問者が納得A101に=COUNTIF(A1:A100,"〇")/100をコピーして貼り付けて下さいセルの書式設定で「分数」→「分母を100に設定」を選択してください
4562日前view67
全般
58
Views
質問者が納得やっと式を立てましたので、もっとスマートな方法は多分あるはずです(^^);;E2:=COUNT($A$2:$A$8)-SUM(INDEX((MATCH($A$2:$A$8&$B$2:$B$8&$C$2:$C$8,$A$2:$A$8&$B$2:$B$8&$C$2:$C$8,0)=ROW($1:$7))*1,))と入力してください//〔補足へ〕① 提示した式はデータが2-8行目の7件の場合のみに有効ですこの言をもとに式を眺めればキーワードが見えてくると思います->① $8-...
4599日前view58
全般
70
Views
質問者が納得・A100:A200にランダムに文字列が入っている。・A100:A200の中で、「A4と全く同じ」セルがあるとき、そのセルの「番地」をA5に表示する。という条件の時、A5=ADDRESS(MATCH(A4,A100:A200,0)+99,1,4)となります。「MATCH(A4,A100:A200,0)+99」は、「A100からA200の間にあるA4と同じセルの行番号」です。列番号は1(A列)と決まっているので、この2つの値をADRESS関数を使ってセル番地にしています。もし条件の二つ目が、・A100:A20
4632日前view70
全般
60
Views
質問者が納得サンプルの一つです。1列目1~10行まで1セルずつチェックして、「○」がないかチェックするものです。あれば、その『セルを選択』して、そのセルのアドレス(番地)をMsgBoxに表示させています。一度試してみてください。Alt+F11の標準モジュールに貼り付けますが・・・コードの上にカーソルを当てステップイン(F8を押したり離したりして)し、エクセルの表紙を左に出してコードの動きと、表面のエクセルの動きを見るのも参考になると思います。Sub 一列目の一行目から最終行までチェック() Dim i As Long,...
4688日前view60

取扱説明書・マニュアル

1440view
http://fujifilm.jp/.../ff_a100_mn_j101.pdf
もっと見る

関連製品のQ&A