onlyromのプロフィール

エクセル2000です。 A列（A1～A10）に飛び飛びに文字列が表示されているとき、 仮にC1に =LARGE(INDEX((($A$1:$A$10)<>"")/ROW($A$1:$A$10),),ROW(A1))　と入れてフィルドラッグすると、C列にA列のうち文字が表示されたセルの行番号の逆数を取得できるようです。 これはどのような理屈によるものでしょうか？ LARGEやINDEXなど組み合わされた関数それぞれの意味は理解しているはずなのに、先ほどから式とにらめっこしていますが何故こうなるのかわかりません。 ご教示いただければ幸いに存知ます。

エクセル2000です。 A列（A1～A10）に飛び飛びに文字列が表示されているとき、 仮にC1に =LARGE(INDEX((($A$1:$A$10)<>"")/ROW($A$1:$A$10),),ROW(A1))　と入れてフィルドラッグすると、C列にA列のうち文字が表示されたセルの行番号の逆数を取得できるようです。 これはどのような理屈によるものでしょうか？ LARGEやINDEXなど組み合わされた関数それぞれの意味は理解しているはずなのに、先ほどから式とにらめっこしていますが何故こうなるのかわかりません。 ご教示いただければ幸いに存知ます。

sheet1に2つのプルダウンリストを作ります。 1つは人名、もう１つは年月を選択できます。 人名をa,b,c 年月を2009年5月、2009年6月、2009年7月 とします。 またa09.5、a09.6、a09.7、b09.5、b09.6、b09.7、c09.5、c09.6、c09.7というシートを用意します。 例えば人名をa、年月を2009年5月と選択し、 ボタンクリックすると a09.5 というシートに移動し、 人名をc、年月を2009年7月と選択し、 ボタンクリックすると c09.7 というシートに移動するようにしたいです。 この時、 Private Sub CommandButton1_Click()と End Sub の間にどう入力すべきか教えていただきたいです。 よろしくお願いします。

仮にA1：B10という範囲内で、空白のセルだけを一つずつ順番に選択しようと思い、以下のコードを書いてみました。 実行してみると、範囲内がすべて空白の場合にはA1→B1→A2→B2→・・・と、選択してくれます。 しかし、空白と空白以外のセルが混在していると、最初の空白セルから下に、範囲内の空白セル数分だけ、空白であると否とを問わず選択してしまいます。 （￣□￣；）！！ myRngには空白セルだけを指定され、myRng.Cells.Countでもちゃんと空白セル数がカウントされます。 でも、myRng.Cells(i).Select　では正しく選択されないのはなぜでしょうか？ Cells(i)を使用せず、ループを For Each c In myRng c.Select Application.Wait Now + TimeValue("0:00:01") Next c で回せば選択できるのに・・・・・。 Sub test01() Dim x As Long, i As Long, myRng As Range With ActiveSheet Set myRng = .Range("A1:B10").SpecialCells(xlCellTypeBlanks) x = myRng.Cells.Count For i = 1 To x myRng.Cells(i).Select Application.Wait Now + TimeValue("0:00:01") Next i End With Set myRng = Nothing End Sub ご教示くださいませ。　(o。_。)oペコッ.

仮にA1：B10という範囲内で、空白のセルだけを一つずつ順番に選択しようと思い、以下のコードを書いてみました。 実行してみると、範囲内がすべて空白の場合にはA1→B1→A2→B2→・・・と、選択してくれます。 しかし、空白と空白以外のセルが混在していると、最初の空白セルから下に、範囲内の空白セル数分だけ、空白であると否とを問わず選択してしまいます。 （￣□￣；）！！ myRngには空白セルだけを指定され、myRng.Cells.Countでもちゃんと空白セル数がカウントされます。 でも、myRng.Cells(i).Select　では正しく選択されないのはなぜでしょうか？ Cells(i)を使用せず、ループを For Each c In myRng c.Select Application.Wait Now + TimeValue("0:00:01") Next c で回せば選択できるのに・・・・・。 Sub test01() Dim x As Long, i As Long, myRng As Range With ActiveSheet Set myRng = .Range("A1:B10").SpecialCells(xlCellTypeBlanks) x = myRng.Cells.Count For i = 1 To x myRng.Cells(i).Select Application.Wait Now + TimeValue("0:00:01") Next i End With Set myRng = Nothing End Sub ご教示くださいませ。　(o。_。)oペコッ.