エクセルの学校：全文検索：Hyper Estraier：ケン配列数式

Results of 1 - 1 of about 60 for ケン配列数式 (0.005 sec.)

ケン (1883), 配列数式 (1840)

[[20031024134118]]: #score: 6415; @digest: 946ad31fcd4c56b2bee05edc36336769; @id: 3839; @mdate: 2003-10-24T11:02:25Z; @size: 3950; @type: text/plain; #keywords: 中空 (10375), saigo (9894), 行ap (8898), 丿引 (7815), ド丸 (6309), 付日 (4885), 新ス (3750), 合間 (3524), つ= (3303), 日現 (3162), myrange (2838), 値] (2408), れ弥 (2399), 列範 (2382), 号日 (2144), 弥太 (1672), 列式 (1457), 本日 (1408), 途中 (1302), 丸投 (1055), な.. (1034), 白が (888), jun53 (764), 期間 (753), 反映 (738), ケン (712), 太郎 (657), スレ (654), で配 (652), 空白 (633), 日付 (624), activecell (609); 『1行の中で最後に入力があるセルを反映したい』（まきりん）
いつも、お世話になっております。 1行の中で、右に連続して値を入力して、最後に入力があるセルを反映させるにはどのように、考えればいいでしょうか? 具体的には番号日付日付日付日付日付【本日現在】 1 A B C C 2 D E E 3 F F ↑このように表示したい!! 入力を増やしても、ちゃんと連動して常に、本日現在のセルにその行の一番右に入力されているセルを反映するにはど〜考えていいのか・・・。知恵をお貸し下さい。宜しくお願いします。 ---- こんにちは =INDEX(A1:E1,COUNTA(A1:E1)) でどうでしょうか。（jun53）失礼しました、途中空白があると駄目みたいです。 ---- こんにちは〜。早速、試してみました!! 確かに、途中空白があると0が返ってきます。途中に空白がある場合は、ハイフンを入力する事で対応し、無事思った通りの値が返ってくるようになりました(^o^)丿引数にCOUNTAを使うという発想が、なかなか思いつかないんですよねぇ〜。言われてみれば、なるほどぉ〜。と思うんですが・・・。もっと、頭が柔らかくなりたい今日この頃です。（笑） (jun53）さん、回答ありがとうございました。とっても助かりました。（まきりん） ---- はい、こちらは途中空白があっても大丈夫でっせ。ただし、関数ではおまへんねんで、えぇ。関数まがいのマクロですわ。その拾い出したい列っちゅうのがわかりまへんさかい、適当に書いてまっけど、中身をいじったら対応でけますさかい、いっぺん試してみておくんなはれ。 '------------- Sub test()'→このマクロを実行 Application.OnKey "‾", "main" End Sub '---------------- Sub main() t = ActiveCell.Column If t > 9 Then Exit Sub 'この数字で列範囲を指定 n = ActiveCell.Row i = Cells(n, 9).End(xlToLeft).Column'この9も変更すべし Cells(n, 10) = Cells(n, i).Value 'この数字は出力列 End Sub '------------------ Sub stp()'→メソッド終了、データ以外（列範囲内の）の入力時実行 Application.OnKey "‾" End Sub テンキー ↓キーには対応してまへん、念のため。ほな...（おいぼれ弥太郎） ---- もう解決しているようですが、私も途中空白がある場合で1つ =INDEX(B2:E2,MATCH(10^17,CODE(B2:E2)))でCtrl+Shift+Enterで配列式にします。（ケン） ---- それでは、ついでにもう一つ =INDIRECT(ADDRESS(ROW(),MAX(IF(B2:E2<>"",COLUMN(B2:E2),"")))) でケンさん同様にCtrl+Shift+Enterで配列数式に。但し、日付は無視しているので、本日以降に予定などが入力されていても反映されます。日付を条件に入れる式は、考え中・・・余計なお世話ですが、表示するセル（列）は、データの左端が良いのでは (sin) ---- わたしも作ってみました Function Saigo(rng As Range) Dim myRange As Range For Each myRange In rng If myRange.Value <> "" Then Saigo = myRange.Value End If Next End Function =Saigo(A1:F1) のように普通の関数と同じように使用してください（りな） ---- あらまぁ空白対策を用意してきたら四人もの方が・・・よくよく比べてみたら私のは人前に出せるものじゃない。。。遅れて良かった。弥太郎さんや、りなさんのコード他で流用出来そうですね。弥太郎さんにお願いがあるんですけど、私が以前、偉そうに書いたコード丸投げ依頼になるのですが、、、聞いて頂けますでしょうか? OK でしたら新スレッドで改めて書きますが如何でしょうか。（jun53） ---- 上の書き方では OK もなにも出来ないですね。簡単な内容は A B 1 02/03/20 540 2 02/03/21 260 3 02/03/22 380 1年半くらいの期間から指定期間内の [最大値] [最小値] [日数] を求めたいというものです。（jun53） ---- junちゃん、こんばんわ。任せておくんなはれ。但し、仕事の合間合間になりますさかい、期限を切られると困りますけどな。なんたってマクロやったら知らん事以外ぜ〜んぶ知ってる程の物知り博士ですさかいな。大舟に乗ったつもりでスレ立てておくんなはれ。「今日耳日曜」っちゅうて逃げる手もおますしな、へへっ。又リードされてまんねんで、はよ応援せな。ほな...（おいぼれ弥太郎） ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200310/20031024134118.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ