10/01/29 01:46:22
>>540
ROW()
542:名無しさん＠そうだ選挙にいこう
10/01/29 01:47:14
=COUNTIF($A$1:$A100,<-ROW())
=COUNTIF($A$1:$A100,<-ROW())
=COUNTIF($A$1:$A100,<-ROW())
543:名無しさん＠そうだ選挙にいこう
10/01/29 02:03:41
う。動かない号泣
544:名無しさん＠そうだ選挙にいこう
10/01/29 03:13:19
お願いします！！！！
A1
A2
A3
A4
のデータをBの列に逆に並べ替えたいのですがどうすればいいですか？
B１－B4 に
=B4
=B3
=B2
=B1
って感じで
お願いします！！！
545:名無しさん＠そうだ選挙にいこう
10/01/29 06:57:21
>>544
=A4
=A3
=A2
=A1
とすればおＫ。
546:名無しさん＠そうだ選挙にいこう
10/01/29 08:18:49
=ROW(A$5)-ROW()
547:複乳
10/01/29 09:17:28
>>532
ないと思う
メリケンはインチ大好きだからインチ基準になるし
日本人ほど枠線にこだわる民族も少ないらしい
Oooでも使うか他のソフト使うか、図で挿入してみてはどうでしょう
>>535
頭の0がなくなるってことなら、
標準にした辞典で9012341234というデータになる。頭の0は消え去る
その状態でどんな書式にしても0は戻らない
>>543
rowは行番号だから変化しなくて良いよ
どうしても気になるなら=row(a1)にしてみては
>>544
C列に4,3,2,1と入力。4,3と入力して下にオートフイルだな
その後C列で並び替えとか
548:名無しさん＠そうだ選挙にいこう
10/01/29 09:58:42
>>540
一旦文字列にしてからオートフィルすればいいよ。
д=countif($a$1:$a100,"<-1")
とか。んで置換で頭の文字を消す。
row()を使うなら
=countif($a$1:$a100,"<"&-row())
549:名無しさん＠そうだ選挙にいこう
10/01/29 10:33:02
>532
色を変えて濃淡で表現してみれば？
550:名無しさん＠そうだ選挙にいこう
10/01/29 11:25:15
>>548
かなり勉強になりました
ありがとう！！！！！
551:名無しさん＠そうだ選挙にいこう
10/01/29 16:31:53
>>544
=INDEX(A$1:A$4,ROW(A$5)-ROW(),)
552:名無しさん＠そうだ選挙にいこう
10/01/29 19:08:54
質問します
【1 OSの種類 .】 WindowsＸＰ
【2 Excelのバージョン 】 Excel２０００
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
A
1 愛
2 愛子
3 愛
4 愛子
5 愛
Moji = InputBox("名前")
Moji = "*" & Moji & "*"
この場合、「愛」と入力しても「愛」「愛子」と両方になってしまうのですが
「愛」と入力して「愛」だけにする方法を教えて下さい。
553:名無しさん＠そうだ選挙にいこう
10/01/29 19:11:14
表がずれてました
A
1 愛
2 愛子
3 愛
4 愛子
5 愛
554:名無しさん＠そうだ選挙にいこう
10/01/29 19:12:26
まただ…
見にくいですがよろしくお願いします
555:名無しさん＠そうだ選挙にいこう
10/01/29 19:14:36
前後に＊をつけると文字列中に「愛」を含む文字列がヒットする
＊をつけなければよろしい
556:552
10/01/29 19:26:15
>>555
ありがとうございます
説明が悪く申し訳ない
A
1 愛あああ
2 愛子ああ
3 愛あああ
4 愛子ああ
5 愛あああ
というデータなんですよ
この場合で「愛」と入力したら「愛あああ」だけになる方法を
悩んでいます
557:名無しさん＠そうだ選挙にいこう
10/01/29 19:29:46
moji&"あああ" で検索すればよろしい
558:552
10/01/29 19:35:38
度々申し訳ない
A
1 kjhg愛tyii
2 dede愛子lo
3 ssii愛lggc
の場合でお願いします
559:名無しさん＠そうだ選挙にいこう
10/01/29 19:57:51
無理ｗ
560:名無しさん＠そうだ選挙にいこう
10/01/29 20:07:16
フィルターの範囲にカーソルがある状態で
Sub test1()
moji = InputBox("文字列は？")
crit1 = "*" & moji & "*"
crit2 = "like [!" & moji & "子]"
Selection.AutoFilter Field:=1, _
Criteria1:=crit1, _
Operator:=xlAnd, _
Criteria2:=crit2
End Sub
561:名無しさん＠そうだ選挙にいこう
10/01/29 21:14:02
訂正
Sub test1()
moji = InputBox("文字列は？")
Selection.AutoFilter Field:=1, _
Criteria1:="=*" & moji & "*", _
Operator:=xlAnd, _
Criteria2:="<>*" & moji & "子*"
End Sub