【関数】エクセル質問スレ【VBA】

ビジネスソフト板のエクセルスレはテンプレ嫁とか
聞き方勉強しろとか一々うるさいので

VBで今アクティブにしてるシートによって処理変えたいんだけど
シートが例えば("うんこ")と("ちんこ")と("まんこ")があって

select case シート名

case1 アクティブシートが("うんこ")
worksheets("まんこ").range("A1").select

case2 アクティブシートが("ちんこ")
worksheets("まんこ").range("C1").select

case else
exit sub

End Select

こういう感じのを作りたいんだけど。アクティブワークシートの部分のコードを教えて

ぶっちゃけ今はVIPいってコテ外して質問した方が早い。

そういうなよ

まぁでも、おっとりしてるからこっちもいいかも。

ただ、俺は力になれない。すまんね。

http://l.pic.to/5zdva

あとVLOOKUP使ったらたまに意味不明な数字でてくるけどアレ何

暇だったらgoogleとか使って調べてきて

エクセル詳しい人いないのか

今ね。フォーム作ってテキストボックス(txtUnko)をrange("A3")に書いたあと
数式が入ってる一行上のB列からD列のセルを3行目のセルに貼り付けて
一行下のセルを洗濯するみたいな事やってんだけど

毎回毎回、書き込む度にコピペしてたら
遅すぎるから何とかしたいんだけど

Excelノート項目一覧
http://www2.hornet.co.jp/tomoko/MikoNotes/default.htm

すぐに役立つエクセルVBAマクロ集
http://www.sk2.aitai.ne.jp/~happy/

Excelファンクラブ
http://www.fuji.ne.jp/~excelyou/

モーグ
http://www.moug.net/

俺の弟ならエクセル詳しかったはずだな
死んだけど

Dim ShStr As String
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　゛ミ;;;;;,_
　ShStr = ActiveSheet.Name　　　　　　　　 　　　　　ミ;;;;;;;;、;:..,,.,,,
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　i;i;i;i; '',',;^′..ヽ
　Select Case ShStr　　　　　　　　　　　　　　　　　　゛ゞy、、;:..、）　　｝
　 　Case "うんこ"　　　　　　　　　　　　　　　　　　　　　.¨.、,_,,、_,,r_,ノ
　　 　Worksheets("まんこ").Activate　　　　　　　/;:;":;.:;";i; '',',;;;_~;;;′.ヽ
　　 　　Range("A1").Select　　　　　　　　　　　　　゛{y、、;:...:,:.:.、;:..:,:.:.　._　
　　　　 　Worksheets("うんこ").Activate　　　　　".¨ー=v ''‐ .:v、,,、_,r_,ノ
　　 　　　　　　　　　　　　　　　　　　　　　　　 　　/;i;i; '',',;;;_~⌒¨;;;;;;;;ヾ.ミ゛´゛^′..ヽ
　 　Case "ちんこ"　　　　　　　　　　　　　　 　 ゛{y、、;:...:,:.:.、;、;:.:,:.:.　._　　.、）　　、
　　 　Worksheets("まんこ").Activate　　　 　　".¨ー=v ''‐ .:v、冫_._ .、,_,,、_,,r_,ノ
　　　 　Range("C1").Select　　　　　　　　　 　/i;i; '',',;;;_~υ⌒¨;;;;;;;;ヾ.ミ゛´゛^′.ソ.ヽ
　　　　 　Worksheets("ちんこ").Activate　 　゛{y、、;:..ゞ.:,:.:.、;:.ミ.:,:.:.　._υ゜o,,'.、）　
　　 　　　　　　　　　　　　　　　　　　　　　　　 　ヾ,,..;::;;;::,;,::;):;:;:; .:v、冫_._ .、,_,,、_,,r_,ノ
　　 Case Else　　　　　　　　　　　　　　　　　
　　 　MsgBox ("僕は専務の机の上でオナニーをしたことがあります　byホテル色")
　　 　　Exit Sub
　End Select

〜''⌒'〜''⌒'〜'⌒'〜'〇'⌒'〜'⌒'〜''⌒'〜'⌒
　　　　　　　　　　　　O
　　　　　　　　　　ｏ
　　　　　　　　。
　　　　∧∧
　　　　(｀∀)y-~＜>>2ｺﾚであってると思うZE〜？えぇ？
　　　/　 ヽ　　　　 え？もー解決済み？
　〜（＿⌒)　　　　　そりゃねーZEぇ〜ﾗﾌﾞちゃぁﾝ〜

おぉ！それで解決したぜ！
サンクスローソン！

Nameとかあんまつかわねーしピンとこねーよ

エクセルには詳しいが、1の例えだとまんこのことばかりに気がいって
質問の内容を理解できない。

質問に答えてくれる人いますか？

はい。

Dim i As Long
Dim k As Long
'----------------------------------------------------------------------------
'iは現在のページ数×39
i = Range("B1") + 5
'画面更新をOFF、シートの保護を解除
Application.ScreenUpdating = False
ActiveSheet.Unprotect
'B1-A1=0で無い場合は、１ページの行数が39行に満たない。
'よって１ページが39行になるまで3行ずつ追加する。
If Range("B1") - Range("A1") > 0 Then
For k = 0 To (i - 5)
'kは現在の行数の一つ下
k = Range("A1") + 5
'ひな型の3行をコピー
Range("AH5:BH7").Copy
'最終行の一つ下のセルに貼り付け
Range("A" & k).Select
ActiveSheet.Paste
Next k
'印刷範囲を指定
ActiveSheet.PageSetup.PrintArea = "D1:W" & i - 1
'シートを保護、画面更新をON
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.ScreenUpdating = True
'新規ページの左上を選択
Range("D" & i - 39).Select

Else
'ひな型をコピー
Range("AH5:BH43").Copy
'２ページ目に貼り付け
Range("A" & i).Select
ActiveSheet.Paste
'印刷範囲を指定
ActiveSheet.PageSetup.PrintArea = "D1:W" & i + 38
'シートを保護、画面更新をON
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.ScreenUpdating = True
'新規ページの左上を選択
Range("D" & i).Select
End If
End Sub

これはRange("AH5:BH7")にひな型貼ってて
実行した時に１ページの行数が39行だったらページ追加して
それ以下だったら１ページが39行になるまでひな型を3行ずつ追加してんだけど
メチャメチャ遅いんだよ。何か無駄な事やってるみたいだけど
よくわかんない

Range("AH5:BH7").Copy
Range("A" & k).Select
ActiveSheet.Paste

コピーはセル選択しなくても直接できるのに
なんで貼り付けはRange("A" & k & ":W" & k + 3).Paste
みたいにできないんだ

後さ、ユーザーフォームを表示したまま
セルの編集をする事は可能？
操作感はｴｸｾﾙ2000以降(だったと思う)みたいに
検索窓は常に前に表示して、
セルを触ると窓が単に非アクティブになるだけって奴

: : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : :　: : : : :
.. . . . しょ. . . . . . . . . . . . . . . . . . . . . . . . . . .　: : : : :　
　;　;;　;　:ん　べ
　　　　　　　　　　　ん　　　　＿＿＿＿　;　　;;
.　　く　　　う　んこ　　;　　　{　生ゴミ　};　　;　;;
　 .そ　　λ　λ　　　） 　 　 ￣￣￣￣　　　ﾎﾟｲｯ;　　　　　　;　;;
;;;:: れ　（:.`.:ж::）Vー　　　　 ＿_;＿＿　:　　 ⌒ ヽ
:: す　／::　　　　＼:　　　 ／＿／ ⌒ヽつ　;;;　::　:<・＋+＜　　　　　　　;　;;
＿＿＿＿＿＿_＿＿＿_ |;;　;;　 (　　　 ）〜＿＿＿＿＿＿＿＿＿＿＿
　　　　　　　　　　 　　'"".|＿＿＿(/"ヽ)／... ,,,.. ,,.... ,,,.. ,　
　　　　　.... ,,,　.. ,,... ／ｶｧ〜〜ｼｹてﾝなぁ〜＼. ,,...　　. ,,,.. ,
　　.... ,.,.. ,,　　　　／　ｵｨ〜えぇ〜？　　　　　　＼.　　 ,,....　 ,,　,.　. ,,

ｵｩ〜〜
>>22
If Range("B1") - Range("A1") > 0 Then
　　※Range("AH5:BH7").Copy※　←──────┐
　　For k = 0 To (i - 5)　　　 　　 　　 ..　　　　　　　 　_|
　　　　　k = Range("A1") + 5　 　　　　　　　　　 　　_|
　　　　　"　　移動　　→　　　" 　───────┘
　　　　　　　 Range("A" & k).Select
　　　　　　　 ActiveSheet.Paste
MsgBox ("僕は専務の机の上でオナニーをしたことがあります(^^)v byホテル色")
　　　　・・・・・・・・・・・・・・・・・・・・・(以下略

　〜''⌒'〜''⌒'〜''⌒'〜'⌒'〜'〇'⌒'〜'⌒'〜''⌒'〜'⌒
　　　　　　　　　　 　.　　　　　O
　　　　　　　　　　　　　　　。
　　　　＿＿＿
:.　　 　{　生ゴミ　};　ﾌﾟ〜ﾝ ∫　・〜
:.　　　 ￣￣￣￣∫∧∧　;　;;
;::　　　 　＿_＿＿　:(｀;∀)ｙ−~＜こうしてみたらﾄﾞｰﾀﾞｲ？
;:.　　　／:::・：：_ .＜ﾉ; 　:ヽ　;;;　::　ｺﾋﾟｰﾒｿｯﾄﾞは一回だけで
;＿___.|￣;￣￣ 〜（;　　　）＿＿＿OKに思えるからYO〜ｵｩ〜
.　　　|＿＿ ＿ .. :::し'"ヽ)　　　...でもこれがｸｿ遅い処理の原因かどうか.
　　.... ,,,.. ,　　,.... ,,,.. 　,'"　' "　　　ﾎﾟﾚにもわからないけどNE〜
　　　,　　,　,.. ,　　,.　　　　.　　　>>20-21周辺を取り巻くｺｰﾄﾞ群やら
　　　　　　　　　　　　　　　　ｼｰﾄそのもの自体がｸｿ煩雑にできてるとか、、
　　　　　　　　　　　　　　　　ﾏ、脳ﾐｿがｳﾆになるくらい
　　　　　　　　　　　　　　　　試行錯誤してみるこったぁ〜ﾅｧ？

>>23
Worksheets("うんこ").Paste (Worksheets("うんこ").Range("A" & k))
'MsgBox ("僕は専務の机の上でオナニーをしたことがあります(^^)v byホテル色")

これでOKだZE〜ｵｩ〜

>>24
　ﾌｫｰﾑﾌﾟﾛﾊﾟﾃｨの"ﾓｰﾀﾞﾙ"をFalseでOK〜
　　　　　　　　　　　　　↓
　　　　　　　　　　"ShowModal"　NE〜
　〜''⌒'〜''⌒'〜''⌒'〜'⌒'〜'〇'⌒'〜'⌒'〜''⌒'〜'⌒
　　　　　　　　　　 　.　　　　　O
　　　　　　　　　　　　　　。
　　　　＿＿＿＿
:.　　 　{　生ゴミ　};　ﾌﾟ〜ﾝ ∫　・〜
:.　　　 ￣￣￣￣ .∧∧ヾ　;　;;
;::　　　 　＿_＿~-ｖ(｀∀) ＜後、蛇足NE〜。
;:.　　　／:::・：：_ 　 .ﾉ;⊂ヽ　;;;　「Range("A" & k)」
;＿___.|￣;￣￣￣ （　 ... .,,）＿＿この番地表記は初めて知った
.　　　|＿＿ ＿ .. :::(ノ^"ヽ)）)　　..できるんだNE、ｺﾚで。
　　.... ,,,.. ,　　,.... ,,,.. 　,'"　' "　 ,ﾎﾟﾚはOFFSETやらCell()で
　　　　　　　　　　　　　　　　　　　位置指定しとったからSA〜

　　　　＿＿＿＿
　　　 {　生ゴミ　};　;;;
　　　　￣￣￣￣　
　:::　　 ＿_;＿＿＿ｶﾞｻｶﾞｻ　:
　　 ／＿／ ⌒ヽ／|　;;;　:::
＿_ |;;　;;　 (　　　 ）〜＿＿＿＿,
　　 |＿＿＿(/"ヽ) )）
　 ／　　　　　　　　　 　　　　＼. ,,...　　. ,,,
／あ、ｺﾋﾟﾍﾟﾒｿｯﾄﾞの件だけども＼.
　このﾒｿｯﾄﾞを使用するよりも　　
　AUTOFILLﾒｿｯﾄﾞあたりがいいかも
しれんYO〜憶測だけどNE〜
　ま、がんばんNA〜ｵｩ〜〜〜

分かり辛いコードをきっちり読んでくれて嬉しいね。
>>26
Range("AH5:BH7").Copyの処理を複数回行ってる事が
そもそも無駄だったわけか。

Range("AH5:BH7").Copy
k = Range("A1") + 5
Range("A" & k).Select
ActiveSheet.Paste
Next k

他のコードも勘違いしてコピー何度も行ってるから書き直してみる。

>>27
でけたでけた。体感できるくらい早くなった。

ちなみに、俺はオフセットより
i = Activecell.Column
j = Activecell.Row

Range( i & j)ってやる事が多い。
nextとかifとかで条件によって色々変えたりできるから。
見やすい気がするし。

>>28
AutoFillメソッドは扱った事ないから調べてみよう。

あと、オートフィルを初期化すんのに。
with Selection.AutoFilter
Field:=1
Field:=2
Field:=3
.....
ってやるより


Selection.AutoFilter 'オートフィル解除
Range("C3").Select　'「セルを選択して下さい」というエラー回避の為
Selection.AutoFilter 'オートフィル発動

こっちの方が遥かに早かった

そんな高次なとこから始められても全然わからんねん。
せめてエクセル入門講座スレにしてくれ。

入門と言われても表の作り方か関数から色々あるから
どれを書いていいかわかんねえよ。
聞いてくれたら何でも答えるよ。

エクセルでエロゲーを作るにはどうしたらいいのでしょうか？

エクセルできると彼女できますか

死ね、と言いたい所だけど
俺の少ない知識の中でならテキストのみのエロゲくらいなら作成はできると思う。

できるかボケ

エクセルに関して一言どうぞ

就業時間にも関らず2chへ書き込むことに罪悪感はありますか？

初心者です、エクセルで家計簿作ってます。
足し算しません！
コマンドに再計算ってでてるのは何ですか？
どなたか教えてください

>>37
エクセレント
>>38
業務に支障の無い範囲内なので問題は無いと思います。
>>39
ツールのオプションを開いて計算方法のタブをクリック
その中の計算方法を自動(A)にチェック

＞＞３９
いきなりの質問ですいませんでした！
できました〜
もっと質問いいですか？

いいですよ！質問ドンドン受け付けます！
ちなみに奥さんはどんなパンツはいてるんですか？

べたですね！
ふんどしです！
足し算をドラッグしてコピーしたいのですが同じ数字がコピーされてしまいます。
無理なのでしょうか？

あっ！
できました！
ごめんなさい！
さっきできなかったのに〜

なんか急に数字打ち込んでも年月表示されて、計算できず再起動しなくちゃならなくなる事があるんだけど
対処法はあるの？　四則演算が出来なくなるし
例　　　1110　→　11月10日

>>33だと例えば

Dim Answer As Long
Answer = MsgBox ( "俺(そろそろ挿入してやるか･･･)" , vbYesNo)
Select Case Answer

Case vbYes
MsgBox "由香「んくっ！！おにいちゃんのおち○ぽおっきいぉぉぉ！」"

Case vbNo
MsgBox "由香「はっ、はやくぅ！が、がまんできないよぉぉ！」"
MsgBox "俺「クックック･･･まだまだ・・夜は長いんだぜ？」

Call ローター弄り　"←ローター弄りのプロシージャを呼び出す
End Select

とか

>>45
セルの上で右クリック押したらセルの書式設定ってでるでしょ。
それ選んで表示形式の分類を「数値」にしたらええよ

標準だったら11/20って打ち込んだら勝手に日付にしやがるから
リストとかは表示形式をちゃんと設定した方がいいと思う

>>43-44
おめでとう

ありがとう
頭のいいエロさんですね！
もしかしてオフィスから？

あとエクセルで良く使う数式の技なんだけど

=「A1+B1」って文字をC1に打ったら
A行に文字はいってなくても「0」って出てしまう
これを避けたかったら

=IF(A1="","",A1+B1)とすれば

A1が空白の時は空白を返す、それ以外は計算する
ってできる。多分めっちゃ使う。

もしSUM(E20:E26)とかの数式なら
どんな式になりますか？

エクセルで=IFって打ったらでるけどIF文は
=IF(条件,条件に合ってる時、条件に合って無い時)だから

=IF(E20="","",SUM(E20:E26))
こうかね。
これだとE20に文字が入って無いと合計しない。

＞＞５１
今からやってみます！
で、０って数字をいれたのを数式を消さないで空白とかにできますか？

ほんで

=IF(COUNTA(E20:E25)=6,SUM(E20:E25),"")
これだったらE20〜E25全てに数字はいってると計算する

=IF(COUNTA(E20:E25)>0,SUM(E20:E25),"")
これだったらE20〜E25のどれかに数字がはいってると計算する

=COUNTA("範囲")はデータが入ってるセルの個数を返す式

>>52
=IF(OR(E20="",E20=0),"",SUM(E20:E25))
こうしたらええよ

OR(E20="",E20=0)
これはE20が「空白」、または「0」の時って意味

AND(E20="",E20=0)
だったらありえんけどE20が「空白」、かつ「0」の時って事です

悩んでた事ができそう！ありがとうございます！
でもむずかしそうやから
メモしとこうっと！

補足

http://www.happy2-island.com/excelsmile/smile03/capter01106.shtml
これによると、セルを単純にペーストする場合
>>27の方法より

Range("AH5:BH7").Copy Destination:=Range("A" & k)
の方が早いみたいです。

実際にやってみたら、確かに早くなった。
コピーを何度も行う事になるが、
単純貼り付けならCopy Destination:=を使う方が良いみたい。

でもCopyの後に改行するとエラーがでるので
一行が長くなって読みづらい。

たくさん教えていただいてありがとうございました。
また教えてください
さようなら

クロス集計の事で質問です。
アンケートの複数回答のまとめ方が分かりません。誰か分かる人いますか？

画像をエクセルに貼り付けて、メールで添付してくるヴァカはどうしたらいいですか？

>>58
それだけじゃよくわからんけど
http://www.geocities.jp/lovehoteliro/Book1.xls
複数回答のまとめ方だったらこうするのは？

>>59
しらん

If txtHinban.Value = "" Then
Else
Selection.AutoFilter Field:=3, Criteria1:=txtHinban.Value
End If
If txtSeikyuu.Value = "" Then
Else
Selection.AutoFilter Field:=4, Criteria1:=txtSeikyuu.Value
End If
If txtTanka.Value = "" Then
Else
Selection.AutoFilter Field:=5, Criteria1:=txtTanka.Value
End If
If opbSagakuOn.Value = True Then
Selection.AutoFilter Field:=13, Criteria1:="<>0", Operator:=xlAnd
Else
Selection.AutoFilter Field:=13
End If
If opbKuhakuOn.Value = True Then
Selection.AutoFilter Field:=12, Criteria1:="<>"
Else
Selection.AutoFilter Field:=12
End If
If opbGaitouOn.Value = True Then
Selection.AutoFilter Field:=14, Criteria1:="該当無し"
Else
Selection.AutoFilter Field:=14
End If

>>61はSelection.AutoFilterが何個も書いてあって凄くウザイから
省略したくて

Dim SelectFill
Set SelectFill = Selection.AutoFilter

If opbSagakuOn.Value = True Then
SelectFill Field:=13, Criteria1:="<>0", Operator:=xlAnd
Else
SelectFill Field:=13
End If

ってやったんだけど。エラー出た。
SetはRangeオブジェクトにしか使えないのか？

Set SelectFill = Selection.AutoFilter
みたいな使い方はできないの？
できるならば方法は？

個人の趣味でエクセル使えて便利なことってある？

家計簿とか競馬、パチスロの収支、データ取り
後はTRPGの時に使う為のもんとか。


データ収集が趣味だったら使えるんじゃない？
スロのデータカウンターを毎日収集して
設定予想に使うとか

その程度じゃ額もたいしたことないし電卓とメモ帳あれば十分だな

収支だけなら使う必要ないけど
データ取りするんなら使った方がいいかもしれんね。

でも最近のは総当たり回数じゃ設定なんてわからんから
花火百景とかの純Ａタイプじゃないと意味ないかもしれん

保守

＞＞LOVE。ホテル色 ◆Ohn8SeonVA
＞＞ｸｿﾚｽ家族 ◆nC/FaMilyQ
コテの現状調査中です。ご協力お願いします！
回答はリアルでもネタでも構いません。

【名前】
【性別】
【年齢】
【住まい】
【活動時間】
【趣味】
【特技】
【騎乗位】

上の事項を埋めて↓に貼ってくださいませ。
おまえらそろそろ現役コテをまとめてみるか
http://etc3.2ch.net/test/read.cgi/entrance/1137738001/

エクセル2000とエクセル2003の違いを具体的に
教えてください！！

エクセルで新規作成をクリックしたら
今まで開いてたファイルがどっかに行きました〜
どこをクリックすれば戻れますか？
たぶん、レベルの低い質問ですいません！
ダラカ教えて下さい

学校の宿題で、以下のキーワードを使ってデータ予測のための統計と検定について
150字程度で説明しなければならないんですが、いまいちよくわかりません。
誰か教えてください。

キーワード：基本統計量，検定
ポイント：
データを予測するまでの流れ
分析手法としての統計量
検定と予測の関係

>>69
知ってる範囲内ならツールの中にリストって機能が追加された
会社の2002には無くて、家のに入ってるから2003からだと思う。

これが結構便利で、例えば1行目が表題で
2行目以降は項目の羅列
A行からC行が入力欄で、D行からF行に数式が入ってるリストに対して
ツールのリストを選んでA1からF2を選択する。

すると3行目は空白で、4行目に集計欄が入る。
この集計欄はセル上で右クリックすれば、合計や平均値、個数等を
各列ごとで変更ができる。
しかもこれらはサブトータルなので、オートフィルターで
項目を絞れば、表示されてる部分のみの合計を表示する。

これだけなら、わざわざ機能を使わなくても関数を入れてやれば
済む話。

一番良い点は3行目の、何も書かれていない部分に入力すると
集計欄が一行さがり、新規の空白欄が追加される。

今までなら、こういう作業を行う為には
予め、未入力欄を沢山作っておくか、未入力行をコピー→セルの挿入→入力・・・
という行程を踏む、もしくはマクロを組む以外に方法は無かったと思う。

しかし、このリスト機能。かなり重い。
入力を延々とこなす様なリストには若干不向きと思う。
マクロを組めるなら、そっちでやった方が良い。

>>70
1.ファイル(F)開く
2.一番したの>>(←が下向きになったやつを押す)
3.メニュー欄の一番下に最近開いたファイルが表示される
4.開きたいファイルをクリック

>>71
しらんがな

>>73
ありがとうございます！
できました！
返事が遅くなりました！
すごく助かってます！
まだ家計簿と格闘中です〜
また教えて下さいね

どういたしまして

SUMIF とか COUNTIF のように "VARIF" のようなことをしたいんですけど
どうすればいいのですか？

配列を勉強すればできるかも

http://pc21.nikkeibp.co.jp/special/hr/

エクセルの質問です。

350個のキーを使って行方向に並べ替えを行う方法ってありますか？
列方向なら"超！並べ替え"を使えばできました。コピー⇒形式を選択して貼り付けを使って行と列を入れ替えようとしましたが、255個以上は貼り付けできませんでした。

2回コピーすればいいんじゃない？

質問です。
エクセルで、実際の日付を利用して「○○まであと○日」というのが
エクセルを開いたときに自動的に表示する方法ってありますか？

=date(2006,2,28)-today()

みたいな感じでできるかな？

>>80
ヒント：DATEDIF

質問です。

「0123456」って入力すると、頭の「0」が消えて「123456」ってなっちゃう。
どすればよいですか？

>>83
'0123456
ってやると、数値でなく文字列になる

>>77
すげえなコレ。しらんかったよ

VB関数一覧
http://t_shun.at.infoseek.co.jp/My_Page/Excel-VBA/vba_page24.htm#「D」

基本的なコード集
http://t_shun.at.infoseek.co.jp/My_Page/Excel-VBA/vba_menu.htm

ものすごく初歩的な質問で申し訳ないんだけど、教えてください
関数バーを表示するにはどうすればいいですか？
ｆｘ＝　というやつです。。　表示、ツールバーから探してもなくて分かりません。
本当にくだらない質問ですみません。お願いします。

０を表示しないのはゼロ値のチェックでいいんじゃ

q

A B C
1 01 200 130
2 10 150 110
3 09 300 500
4 30 150 630
Aは文字列、他は数値の時。
Aの値が、9〜29に該当するBの合計450とかってだせるの？
また、BCの合計だせるの？

>>88
ツール→オプション→表示の
数式バーにチェック

>>91
>>77の配列数式使ったらできた。
B行だけだったら
{=SUM(IF((A1:A4>1)*(A1:A4<29),B1:B4,""))}
BC行なら
{=SUM(IF((A1:A4>1)*(A1:A4<29),B1:C4,""))}

または
DE行を隠しセルにして
D行 =Ax+Bx
E行 =AND(Ax>1,Ax<29)
{xは行番号}

合計セルに
=SUMIF(E1:E4,TRUE,D1:D4)とか
こっちは配列使わないけど、使うセルが増える

>>92
ありがとうございました！
仕事上、エクセルを勉強しなくてはいけなくなった超初心者なので、
これからも宜しくお願いします。

#VALUE!がでます。

数式のところでALT+SHIFT+ENTER押してみ
数式の初めとケツを｛｝でくくるから
配列数式だからそうせんといかんみたい

並び替えをしたいのですが、範囲を選択して、データ＞並び替えとすると
ダイアログボックスが出ますが、その時に選択した範囲が１行下にずれて
しまいます。どうすればいいでしょうか？　
　
　１行上も選択範囲に含めると並び替えをした後にその行が一番下に来て
好ましくありません。

>>97
データ→並べ替え→範囲の先頭行で、タイトル行にチェック

エクセルで教えてください
　　　
A B
111 　2
112 　2
113 3
114 　4
115　 5
116　 8
ー---------------
　　 11←関数で　？

上記のようなデータベースを作っています。
『一番左の数を3で割って2余る数値の行の、A列の数値を
足した数値を一番したに出す』ということをしたいのですが
どういう式を？部分にどういう関数を使って、どう表せば
いいか分かりません。どうか教えてください。

>>99
A　　　B
111　　2
112　　2
113　　3
114　　4
115　　5
116　　8
ー---------------
　　　　11←関数で　？

『Ａ列を3で割って2余る行の、Ｂ列の数値を
足した数値を一番したに出す』


こういうことか？

=SUM(IF(MOD(A1:A6,3)=2,B1:B6,""))

って書いてCtrl+Shift+Enter

配列がよくわらかんかったら
隠し行を使って(MOD(A1:A6,3)=2をAND関数てくくって
余り2をTRUE、それ以外をFALSEで返せばいい

それをSUMIFの条件をTRUE、範囲を隠し行全体、合計は合計したい行を指定してやれば
同じ事はできる。


>>100が一番効率は良いけど、数式の意味がわからずに
コピペするのは編集の時に難儀する