10/06/24 23:47:11
【1 OSの種類 .】 Windows95
【2 Excelのバージョン 】 Excel2000
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 】 ペイント
スクリーンショットとbmpファイル出力とセルドット化できるブックを作ったんですが
あと何か機能をつけるとしたら何が必要ですかね
632:名無しさん＠そうだ選挙にいこう
10/06/25 00:09:08
シベリアよりレス代行お願いしています。
【1 OSの種類 .】 WindowsXP
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 】 オートフィル 一方のみ 同じ Ａ１＊Ｂ１ Ａ２＊Ｂ２
検索キーワードでどうひいていいかわからず、詰まってしまいました。
Ｂ３に適当な数値が入れてあり、その下の表に
Ｆ６＊Ｂ３
Ｆ７＊Ｂ３
Ｆ８＊Ｂ３
・
・
・
と、Ｆの数値にひたすらＢ３の数値をかける式を入れている列があります。
いちいち手打ちするのが面倒なので、オートフィルでやろうとしたところ、
Ｆ６＊Ｂ３
Ｆ７＊Ｂ４
Ｆ８＊Ｂ５
・
・
・
となってしまいます。どうすれば上のように片方だけの数値を変化させてオートフィルさせることができますか？
633:名無しさん＠そうだ選挙にいこう
10/06/25 00:16:32
>>631
個人的に本気で欲しいのはpdfファイルの編集機能
（pdfの作成じゃないよ）
これは作れるなら需要あるとおもう
後は・・大概あるんじゃないかな
Excelでらき☆すたOPを再現してみた
URLﾘﾝｸ(www.nicovideo.jp)
（エクセルのセルにドットを当てはめドット絵ムービー）
他ライフゲームなど
URLﾘﾝｸ(www.nicovideo.jp)エクセル?sort=v
URLﾘﾝｸ(www.nicovideo.jp)
ファミコンエミュなんてのもあったはずだけど見つからないな
634:名無しさん＠そうだ選挙にいこう
10/06/25 01:45:54
>632
=F6*B3 と入力したセルを編集状態にして、B3 を選択した状態で[F4]キーを押してみてください。
=F6*$B$3 というふうに変わったはずです。
これをオートフィルすると $B$3 は変わりません。
参考 Excel豆知識6-1:エクセル:絶対参照・相対参照
URLﾘﾝｸ(www11.plala.or.jp)
635:名無しさん＠そうだ選挙にいこう
10/06/25 02:11:26
>>634
ありがとうございます！これで作業がかなり楽になりました。
参考サイトも明日（今日？）ゆっくり見て勉強させていただきます。
636:名無しさん＠そうだ選挙にいこう
10/06/25 02:13:42
just basic
637:名無しさん＠そうだ選挙にいこう
10/06/25 02:49:50
通常
「A」と入力すると「A 1101」
「B」と入力すると「A 1102」と表示されるように辞書登録しており
この後、各数字を色変更するのですが
「A」と入力すると「A 1101」が表示された際
数字のみを自動的に所定の色に変更してくれる方法は無いですか？
638:637訂正
10/06/25 05:17:26
エクセル2007を使用
通常
「A」と入力すると「A 1101」
「B」と入力すると「A 1102」と表示されるように辞書登録しており
この後、各数字を色変更するのですが
「A」と入力すると「A 1101」が表示された際
数字のみを自動的に所定の色に変更してくれる方法は無いですか？
後、特定のセルに何らかの数字が入力された場合のみ
色変更するにはどうしたらいいですか？
639:名無しさん＠そうだ選挙にいこう
10/06/25 06:50:38
【1 OSの種類 .】 WindowsXP
【2 Excelのバージョン 】 Excel2003 2007
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 】 ユーザーフォーム
セルをクリックするとユーザーフォームが開きコマンドボタンに登録されている文字が入力され隣のセルに移動るようになっているのですが、特定の文字だけ入力時にフォントのサイズが変わるようにしたいのですが、よろしくお願いいたします。
640:複乳
10/06/25 09:49:57
>>637
Private Sub Worksheet_Change(ByVal Target As Range)
For i = 1 To Len(Target)
If IsNumeric(Mid(Target, i, 1)) Then
Target.Characters(Start:=i, Length:=1).Font.ColorIndex = 3 '3は赤色
End If
Next
End Sub
>>638
Sub a()
Dim unko
unko = "うんこ" '変えたい文字
Dim unkolen
unkolen = Len(unko)
If Selection.Row = 1 And Selection.Column = 1 Then 'とりあえずA1セル限定
For i = 1 To Len(Cells(1, 1))
If Mid(Cells(1, 1).Value, i, unkolen) = unko Then
ActiveCell.Characters(Start:=i, Length:=unkolen).Font.Size = 15 'フォントサイズ
End If
Next
End If
End Sub
641:複乳
10/06/25 11:09:31
おおっと
>>640下のコードは>>639宛だ
642:名無しさん＠そうだ選挙にいこう
10/06/25 12:04:09
>If Mid(Cells(1, 1).Value, i, unkolen) = unko Then
ひでぇｗ
643:642
10/06/25 12:08:17
>639,複乳
つInstr
644:複乳
10/06/25 12:41:58
>>642>>643
ありがとうございます
645:複乳
10/06/25 12:51:44
こんな感じかねぇ。でも文字列が二箇所以上にあるとだめなんだよなぁ
>>639
Sub a()
Dim unko
unko = "うんこ" '変えたい文字
Dim unkolen
unkolen = Len(unko)
tempstr = InStr(ActiveCell.Value, unko)
If tempstr Then
ActiveCell.Characters(Start:=tempstr, Length:=unkolen).Font.Size = 15 'フォントサイズ
End If
End Sub
646:名無しさん＠そうだ選挙にいこう
10/06/25 14:09:40
>645
>でも文字列が二箇所以上にあるとだめなんだよなぁ
応用もできんのか？
半年ROMってろ。
647:名無しさん＠そうだ選挙にいこう
10/06/25 22:29:51
【1 OSの種類 .】 WindowsXP
【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
Ｏ列 Ｐ列
５ Ｖ
３
１０ Ｖ
８ Ｖ
４
６
１ Ｖ
１５
７ Ｖ
↑のような場合
＊Ｐ列に「Ｖ」がある行のＯ列の数値で最大の数値
を求める関数教えていただけないでしょうか
宜しくお願いします
648:名無しさん＠そうだ選挙にいこう
10/06/25 22:56:53
>>647
数値がプラスの値だけなら=MAX((P1:P9="V")*O1:O9)の配列数式。
分からなければ作業列のQ1:Q9に=IF(P1="V",O1,"")として=MAX(Q1:Q9)
649:名無しさん＠そうだ選挙にいこう
10/06/25 23:01:40
見出しありならDMAXでもできる。
650:名無しさん＠そうだ選挙にいこう
10/06/25 23:11:24
B3セルに入れた文字をファイル名にして保存するんだけど、
/ とか : を使う人がいて、保存できないと騒ぐ人がいます。
また、海外に送るので半角英数字にしたいんですが、
全角のアルファベットを使う人がいます。
これらが入ってたら「ダメぽ」ってメッセージを出すには
どうすればいいですか？
651:647
10/06/25 23:15:42
>>648
ありがとうございます。
この表は下にどんどん追加されるものなのですが
常にＭＡＸが更新されるようにするにはどうすれば良いでしょうか？
652:647
10/06/25 23:35:13
自己解決しました。ありがとうございました
653:名無しさん＠そうだ選挙にいこう
10/06/26 00:01:17
>>650
If Range("B3").Value Like "*[!A-Za-z0-9]*" Then
MsgBox "ダメぽ"
End If
654:名無しさん＠そうだ選挙にいこう
10/06/26 00:04:16
>650
=IF(B3=ASC(B3),"OK","NG")
655:名無しさん＠そうだ選挙にいこう
10/06/26 00:07:59
>647,651
O1:O9 を O1:O256 とか O1:O65535 などとする
P1:P9 も同様
Excel2007からは O:O のように列全体も指定できるそうだけど、扱うセル数が極端に多くなるからやめといた方が吉。
656:650
10/06/26 00:40:39
>>653
うぉーすごいぃぃ、
ありがとうです。
"*[!A-Za-z0-9]*"って、英数字だったらOKってこと？
!はどんな意味が？
>>645
/ とか : だとダメですた。
653氏のを使わせてもらいます。
657:名無しさん＠そうだ選挙にいこう
10/06/26 00:57:43
>>650
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub
ここでStrConv関数で
if 変換前<>変換後 then
msgbox "ふじこ"
かな。
658:653
10/06/26 00:57:58
>>656
詳細はHelpの Like演算子をみてね
ちなみに ! はそれ以外だったらってことで
今回は英数字(A-Za-z0-9)※以外※が何処かにあると
メッセージを表示
659:名無しさん＠そうだ選挙にいこう
10/06/26 06:11:50
エクセル2007を使用。
①
１日目（D35～51 N35～50） ２日目（X35～51 AH35～50） 10日目（GB35～51 GL35～50）
11日目（D86～102 N86～101） 12日目（X86～102 AH86～101） 20日目（GB86～102 GL86～101）
21日目（D137～153 N137～152） 22日目（X137～153 AH137～152） 31日目（GV137～153 HF137～152）
上記の各セルに数字が含まれると
自動的に 数字のみを 青に色変更させる。
例えば
D35「Ａ 1101」 D36「C 1103」 N35「A 1101」 N36「X」だとすれば
1101 1103の部分だけ色変更させるってことです。
②
そして数字の色変更した数を、
１日目（N51） ２日目（X51） 10日目（GL51）・・・31日目（HF153）の場所に
自動的表示。
例えば
１日目がD35「Ａ 1101」 D36「C 1103」 N35「A 1101」 N36「X」だとすれば
数字のあるとこだけ抽出して、１日目のN51は３というわけ。
660:名無しさん＠そうだ選挙にいこう
10/06/26 06:12:45
③
１日目（E35～51 O35～50） ２日目（Y35～51 AI35～50） 10日目（GC35～51 GM35～50）
11日目（E86～102 O86～101） 12日目（Y86～102 AI86～101） 20日目（GC86～102 GM86～101）
21日目（E137～153 O137～152） 22日目（Y137～153 AI137～152） 31日目（GW137～153 HG137～152）
に一番上から連続で数字を入力していき
２つ以上続けて数字が入力された場合、数字を最後に入力した次のセルに自動でオートシェルし、その数字を色変更させる。
一番上からの数字が連続です
１つだけの場合、オートシェルは発動させないが、自動で色変更はさせる。
間が開いた数字はオートシェルも色変更もさせない。
例えばE35=5000 E36=2000 E37＝4000だとするなら
自動的にE38に11000と表示され、その11000のセルは自動的に色変更される。
O35＝8000 O36＝7000 O40＝5000ならば
連続した数字のO35・O36の次のセルであるO37には
自動的に15000と表示され、色変更も自動でされるが
間が開いているO40＝５０００の数字は
５０００そのままで、色変更もされない。
661:名無しさん＠そうだ選挙にいこう
10/06/26 06:14:44
④
１日目（O51） ２日目（Y51） 10日目（GM51）・・・31日目（HG153）の場所に
①で数字が書いてある右横の数字だけ合計し
数字が書かれてない右横の数字はマイナスしたものを自動表示にする。
例えば
D35「Ａ 1101」 E35「5000」
D36「C 1103」 E36「2000」
D37「D 1104」 E37「4000」
N35「A 1101」O35「2000」
N36「X」 O36「10000」
N40「2101」 O40「500」だとするなら
051の数字は5000+2000+4000+2000+500-10000となる。
662:名無しさん＠そうだ選挙にいこう
10/06/26 08:42:19
>>647,651
どのように自己解決したか知らんが、配列数式で>>655みたいに範囲を広く取るのは重くなるのであまり良くないが
DMAXなら範囲を広くとってもほとんど重くならない。
O列の見出しが金額で、P列の見出しが旗で条件がR1:R2で
R1に旗、R2にVと書いてあれば
=DMAX(O:P,"金額",R1:R2)
=DMAX(O:P,O1,R1:R2)
など。
663:名無しさん＠そうだ選挙にいこう
10/06/26 18:32:26
EXCELのブックを開いたときに中身が何もない状態になる。
枠だけは見えるけど、真ん中がPCのデスクトップと同じ柄になって、
セルも何もないのです。VBAを色々実験していたら、普通に開かなくなりました。
どうしたらいいでしょう？説明が下手ですみません。
【1 OSの種類 】 WindowsXP
【2 Excelのバージョン 】 Excel2002
【3 VBAが使えるか 】 少し
【4 VBAでの回答の可否】 可
664:名無しさん＠そうだ選挙にいこう
10/06/26 19:16:49
>663
状況がわからないので、いくつかおたずねします。
Ｑ１ ブックが開いているのは間違いないか？
（タイトルバーに Microsoft Excel-Book1 などアクティブなブック名が表示されているか）
（プログラムを閉じる × とは別に、ブックを閉じる × は見えるか）
Ｑ２ 列名や行番号は表示されているか？
（すべての行を非表示にすると列名だけ表示されるが行番号は見えなくなる、すべての列を非表示に
すると行番号だけ表示されて列名は見えなくなる）
Ｑ３ ＞真ん中がPCのデスクトップと同じ柄 とは、バックのデスクトップの状態が透けて見えるということ？
（デスクトップ上のアイコンの並びも見えるのか）
Ｑ４ 問題は当該ブックだけなのか？ 当該ブックを他のＰＣで開いたときも同じ状況なのか？
（他の既存ブックや、新規ブックのときはどうなのか）
答えていただいたからといって自分が適切な回答できるとは思いませんが、詳しい方にはピンとくるかも。
665:名無しさん＠そうだ選挙にいこう
10/06/26 19:48:44
>>664
レスありがとうございます。
Q1 ブック名は表示されています。内側の×は表示されていません。
Q2 列名、行番号は表示されていません。
Q3 バックのデスクトップの状態が透けて見えるということです。
デスクトップ上のアイコンの並びも見えます。
Q4 新規ブックむ含め、全てのエクセルが同じ状態です。
ACCESSでVBAを書いているのですが、EXCELもACCESSも一旦閉じて、
再度立ち上げると普通に開くようです。
ACCESSを開いたままでEXCELが開けないと、何かと不自由なので質問してみました。
666:名無しさん＠そうだ選挙にいこう
10/06/26 23:09:49
Sub mojiiro2()
Dim RE, c
Dim myRng As Range
Dim myStr As String
Dim i As Integer
Set RE = CreateObject("VBScript.RegExp")
With RE
.Pattern = "[0-9]" '----パターンを設定
.IgnoreCase = True
.Global = False
For Each myRng In Selection
For i = 1 To Len(myRng)
myStr = Mid(myRng.Value, i, 1)
If .Test(myStr) Then
With myRng.Characters(Start:=i, Length:=1).Font
.ColorIndex = 42
End With
End If
Next i
Next myRng
End With
Set RE = Nothing
End Sub
0-9の半角だけでなく
０－９の全角も変換されるようにしたいのですが
どうしたらいいですか？
コピペしてきただけなんで、よく判らないんです。
667:名無しさん＠そうだ選挙にいこう
10/06/26 23:16:57
"[0-9,０-９]"でどうかね しらんけど
668:名無しさん＠そうだ選挙にいこう
10/06/26 23:18:44
>>667
出来ました
ありがとうございます。
(*'ε`*)ﾁｩ
669:666
10/06/26 23:41:27
すいません。
.ColorIndex = 42
ってのは、もっと細かく設定できませんか？
R49 G134 B155ってのにしたいんです。
670:666
10/06/26 23:45:38
事故解決しました。
671:名無しさん＠そうだ選挙にいこう
10/06/27 19:42:10
【1 OSの種類 】 WindowsXP
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか 】 少し
【4 VBAでの回答の可否】 可
A列 ・・・ N列
100 56
100 32
100 40
103 69
103 35
104 9
104 35
104 9
104 23
A列に重複した値が複数行（1行だけのもあるかも）まとまってある中で
A列が同じの行のN列の値を比較して最小値を調べて隣のP列のセルに○を入れたいです。
例 100→32○
103→35○
104→二つの9の隣に○
672:671
10/06/27 19:43:02
ありゃ、103のところから数字がずれました。。
ゴメンナサイ
673:名無しさん＠そうだ選挙にいこう
10/06/27 21:03:07
>>671
A1からだとして
=IF(MIN(IF(ISERROR(MATCH($A$1:$A$10,A1,0)),10^10,$N$1:$N$10))=N1,"○","")
CTRL+SHIFT+ENTERの同時押しで確定させて式の前後に ｛ ｝をつける（配列数式）
674:名無しさん＠そうだ選挙にいこう
10/06/27 21:20:20
>>673
ご親切にありがとうございます！
これからちょっとやってみます！！！
675:名無しさん＠そうだ選挙にいこう
10/06/27 21:33:11
配列の関数って下にオートフィルしたらがうまくいかないですね。
ぐぐってきます！
676:名無しさん＠そうだ選挙にいこう
10/06/27 21:39:23
>>675
え？できるよ？(´・ω・｀)
677:名無しさん＠そうだ選挙にいこう
10/06/27 21:40:12
A1に 2000と入れて、それをB1に反映させる場合は
B1に =A1 と入力すれば良いのは分かるのですが
B1に 料金合計額（●円）とあって
●のとこにA1を反映させるにはどうしたらいいですか？
678:名無しさん＠そうだ選挙にいこう
10/06/27 21:42:32
【1 OSの種類 .】 WindowsXP
【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
='950'!$X"INDIRECT($K$12)"
あるセルに他のシート（シート名：950）のＸ列のある行の数値を表示させたいのですが
その行の部分のみK12セルでコントロールしたいのですが上記でエラーが出ます
どなたか間違い部分をご指摘いただけないでしょうか
宜しくお願いします
679:名無しさん＠そうだ選挙にいこう
10/06/27 21:45:01
>>675
え？で、出来るぞ？
680:名無しさん＠そうだ選挙にいこう
10/06/27 21:48:05
>>677
一番簡単なのはセルの表示形式で、ユーザー定義で
料金合計額（0円）
と入れればＯＫ
681:名無しさん＠そうだ選挙にいこう
10/06/27 21:51:57
>>678
=INDIRECT("950!$X"&$K$12)
ってことかい？
682:675
10/06/27 21:53:59
あれ、なんでだろ？
上の例でA列100の行の間はうまく表示されるんですが、
A列が103の行になった途端、ブランクのまんまなんです。。
でも考え方を教えていただきましたのでこれでなんとかやってみます！
ありがとうございました！
683:名無しさん＠そうだ選挙にいこう
10/06/27 21:55:38
>>682
なんとなく、配列数式になっていない予感？
684:名無しさん＠そうだ選挙にいこう
10/06/27 21:56:31
>>681
できました！ありがとうございました！
685:682
10/06/27 21:58:45
>>683
そうですかね、数式の両脇に｛｝つけてるんですけどね。。。
でもやっぱどっかおかしいと思いますので成功するまでやってみますね！
686:名無しさん＠そうだ選挙にいこう
10/06/27 22:00:22
>>677
"料金合計額("&A1&"円)"
687:名無しさん＠そうだ選挙にいこう
10/06/27 22:02:18
>>682
100行の間はうまくいくのなら
100行を超えるとその数式が破綻する様なものになっているってことだろ
688:677
10/06/27 22:11:54
ありがとうございます。
出来ました。
もう１つ質問なのですが
金額（数字）を入れた場合だけ、別のセルで合計額を反映して
金額（数字）を入れない場合は、無表記にすることって出来ますか？
A1（2000） B1（料金合計額（2000円）
A2（1000） B2（料金合計額（3000円）
A3 B3（料金合計額）・・・金額が入力されない時は合計額を表示させない。
A4（2000) B4料（金合計額（5000円）
って出来ますか？
689:名無しさん＠そうだ選挙にいこう
10/06/27 22:15:07
>>688
>>680を使った場合
=IF(A1<>"",SUM($A$1:A1),"")
690:名無しさん＠そうだ選挙にいこう
10/06/27 22:15:39
あ、下にコピーって書くの忘れた
691:名無しさん＠そうだ選挙にいこう
10/06/27 22:23:38
=IF(A1="","",SUM()）
俺はわかりやすいからこう書くようにしてる
692:682
10/06/27 22:23:45
>>687
ありがとうございます！出来ました！
私の例の書き方が10行しかなくて教えて頂いた下の数式の10の値を本来の最後の行の値にしたら
出来ました！どうもみなさん色々ありがとうございました!助かりました！
=IF(MIN(IF(ISERROR(MATCH($A$1:$A$10,A1,0)),10^10,$N$1:$N$10))=N1,"○","")
693:名無しさん＠そうだ選挙にいこう
10/06/27 22:39:33
いまエクセル見られないから検証できないけど、これでよくない？
=IF(MIN(IF(COUNTIF($A$:$A$,A1),$N$:$N$,10^10))=N1,"○","")
694:名無しさん＠そうだ選挙にいこう
10/06/27 23:51:22
初心者ですが、質問です。
例えば
a 2 3 8 1 14
b 1 5 9 1 16
c 2 3 1 2 8
x
となっていて、xでこの合計を出すためにはどのような式なりますか？
695:名無しさん＠そうだ選挙にいこう
10/06/28 00:04:50
全部を範囲指定すりゃいいじゃん
SUM(A1:E3）とか
696:688
10/06/28 01:09:51
=IF(H31>=1,"料金 (合計"&H31/1000&"千円）","料金")
=IF(AD31>=1,"料金 (合計"&(H31+AD31)/1000&"千円）","料金")
=IF(AZ31>=1,"料金 (合計"&(H31+AD31+AZ31)/1000&"千円）","料金")
=IF(BV31>=1,"料金 (合計"&(H31+AD31+AZ31+BV31)/1000&"千円）","料金")
=IF(BV31>=1,"料金 (合計"&(H31+AD31+AZ31+BV31+CR31)/1000&"千円）","料金")
=IF(BV31>=1,"料金 (合計"&(H31+AD31+AZ31+BV31+CR31+DN31)/1000&"千円）","料金")
=IF(BV31>=1,"料金 (合計"&(H31+AD31+AZ31+BV31+CR31+DN31+EJ31)/1000&"千円）","料金")
=IF(BV31>=1,"料金 (合計"&(H31+AD31+AZ31+BV31+CR31+DN31+EJ31+FF31)/1000&"千円）","料金")
=IF(BV31>=1,"料金 (合計"&(H31+AD31+AZ31+BV31+CR31+DN31+EJ31+FF31+GB31)/1000&"千円）","料金")
=IF(BV31>=1,"料金 (合計"&(H31+AD31+AZ31+BV31+CR31+DN31+EJ31+FF31+GB31+GX31)/1000&"千円）","料金")
としたのですが
コード？をもっと短くできる方法は無いですか？
これが限界でしょうか？
697:名無しさん＠そうだ選挙にいこう
10/06/28 01:14:56
=IF(AD31>=1,"料金 (合計"&SUM(H$31$:AD31)/1000&"千円）","料金")
て感じでどう？
698:688
10/06/28 01:18:18
>>697
すいません
３つ目の=IF(AZ31>=1,"料金 (合計"&(H31+AD31+AZ31)/1000&"千円）","料金")
だとどうなるのでしょうか？
>>697の例だと、あまり変らないように見えたので。
699:名無しさん＠そうだ選挙にいこう
10/06/28 01:19:41
>>698
最初のH31だけ絶対参照してるから、オートフィルで勝手にSUMの範囲が伸ばされる
どんなシートにしてるかわからんけど、ちゃんと同じ列に金額を入れてるならこれでできるはず
700:688
10/06/28 01:25:17
>>699
出来ませんでした。
=IF(AD31>=1,"料金 (合計"&SUM(H31:AD31)/1000&"千円）","料金")
とすれば出来ましたが
何故か、小数点が表示されます。
701:688
10/06/28 01:53:58
すいません。コードの省略は諦めます。
シート２にシート１の結果を反映させるには
どうしたらいいですか？
シート１ の最終合計額が10000円で
シート２のH31が2000だとするなら、シート2のP1には料金（12千円）と表示させたいんです。
702:７０１
10/06/28 02:14:21
=IF(H31>=1,"料金 (合計"&(H31+'シート1'!H31+'シート1'!AD31+'シート1'!AZ31+'シート1'!BV31+'シート1'!CR31+'シート1'!DN31+'シート1'!EJ31+'シート1'!FF31+'シート1'!GB31+'シート1'!GX31)/1000&"千円）","料金")
一応、こうすれば出来ましたが
もっとコード？を短くできる方法は無いですか？
無視しないで(´・ω・｀)
703:名無しさん＠そうだ選挙にいこう
10/06/28 02:16:26
よくわからん状況になってきたからデータうｐしてもらったほうが回答しやすそう
704:名無しさん＠そうだ選挙にいこう
10/06/28 02:35:11
単純に式を短くするアイデア
シート1のどこかで合計を出しておいて、それを参照するだけにする
705:７０１
10/06/28 02:52:32
>>704
こちらにうｐしました。
シート１ シート２（最初の３つ目だけ作成）があります。
URLﾘﾝｸ(opainyan.hp.infoseek.co.jp)
706:名無しさん＠そうだ選挙にいこう
10/06/28 03:03:25
>>705
埋めてみたからこれ参考にして
URLﾘﾝｸ(www.dotup.org)
707:７０１
10/06/28 03:09:18
>>706
ありがとう。
試してみます。
708:７０１
10/06/28 03:19:51
シート１の2つ目を
=IF(AD31>=1,"料金 (合計"&SUM($H$31:AD31)/1000&"千円）","料金")
としたところ
料金 (合計3.036千円）と表示されます。
.036は不要なんですが消せないんでしょうか？
709:名無しさん＠そうだ選挙にいこう
10/06/28 03:23:21
>>708
何でそうなるのかわからんけど、ROUNDDOWN関数使えば切り捨てできる
桁数は-3でいけるはず
710:７０１
10/06/28 03:31:29
>>709
うｐしたファイルは、あくまで例で
実際のファイルには他にも数字が記入されてるからでしょうか？
711:７０１
10/06/28 03:34:33
>>709
すいません。
実際のファイルには
31と5が料金の横のラインに記入されています。
これが原因かと思われます。
712:７０１
10/06/28 03:37:59
>>711を考慮すると
やはり>>705の最初のやつしか方法は無いのでしょうか？
713:名無しさん＠そうだ選挙にいこう
10/06/28 06:07:38
件数がいくらであろうと自動的にオートSUMしてくれる方法は無いですか？
3000
2000
5000
と入力したら、オートSUMを押さずとも
自動的に10000と表示され
3000
5000なら
自動的に8000と表示されるみたいな。
714:名無しさん＠そうだ選挙にいこう
10/06/28 06:27:30
>>713
バージョンにもよるけど普通にテーブル使えばいいんじゃね？
715:名無しさん＠そうだ選挙にいこう
10/06/28 08:32:45
>713
つIndirect
716:名無しさん＠そうだ選挙にいこう
10/06/28 11:32:32
>>714
2003ならリスト
集計行が恐ろしく便利
717:名無しさん＠そうだ選挙にいこう
10/06/28 21:45:02
毎日、不定期な費名（ランダム）と金額があり、それを記入すると
項目の合計金額に自動的に反映するようにしたいんですが
どうしたらいいですか？
例えばＡ３～Ａ１０に費名（その都度違う）を入力し、費名に対する金額を入力すると
自動的にＧ３～Ｇ１０に合計金額として出したいんです。
ファイルをうｐしました。
URLﾘﾝｸ(opainyan.hp.infoseek.co.jp)
718:名無しさん＠そうだ選挙にいこう
10/06/28 22:18:15
>717
SUMIF関数でできますよ。
参考 SUMIF関数ならただの合計ではなく、条件に合うものだけを合計できます！Excel・エクセル関数技！
URLﾘﾝｸ(kokoro.kir.jp)
719:718
10/06/28 22:29:07
>718の追加
参考に挙げた例だと検索条件に直接文字列を入れていますが、セルを指定するといいです。
それと、計算式を下へコピーする前に計算範囲を絶対指定に変更する必要があります。
なので、>717の場合だとＧ１８セルに =SUMIF($A$18:$A$25,E18,$C$18:$C$25)と入れて
下へフィルコピーになります。
720:名無しさん＠そうだ選挙にいこう
10/06/29 20:49:11
>>718-719
ありがとうございます。
できました（´∀｀ ）
お手数ですが、現在の状態だと常に０が表示されてますが
加算された時だけ数字が表示され
加算されない限り、無表記としたいのですが「
どうしたらいいですか？
721:名無しさん＠そうだ選挙にいこう
10/06/29 20:59:46
プロパティで０を非表示
見た目だけならこれでOK
722:名無しさん＠そうだ選挙にいこう
10/06/29 21:07:59
解決できました。
ありがとうございます。
723:名無しさん＠そうだ選挙にいこう
10/06/30 12:07:50
教えてください
引用元の帳票が12桁あり
VLOOKUPで戻り値を右側6桁で返したいのですが
セルの書式設定以外で何か方法ありますでしょうか？
関数の組み合わせで何か宜しくお願いします。
724:名無しさん＠そうだ選挙にいこう
10/06/30 12:11:11
>>723
right関数
725:７２３
10/06/30 12:14:31
>>724
有難うございます
具体的にどんな数式になるか
教えていただけると助かります
VLOOKUPのが先なのは判るんですが
726:名無しさん＠そうだ選挙にいこう
10/06/30 12:24:29
=right(vlookup(a1,a1:b2,2,true),6)
みたいなかんじ
727:７２３
10/06/30 12:47:45
>>726
出来ました!
有難うございます。