Excel総合相談所 62 - 暇つぶし2ch

Excel総合相談所 62 ..

113:名無しさん＠そうだ選挙にいこう
07/11/20 19:49:11
>>107
月末にまとめて一月分入力です

114:名無しさん＠そうだ選挙にいこう
07/11/20 19:50:49
>>109
こういう書き方も出来る。式や命令をコロンで区切る。この場合はEnd Ifは書かない。

If A = B Then C = D : E = E + 1 : F = 100

115:名無しさん＠そうだ選挙にいこう
07/11/20 20:05:43
【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ

エクセルでB4用紙に横に印刷された表をA4で縦に印刷しなおしたいのですが
ページ設定で位置を縦にして％を小さくしてみたのですが
縦になっても上半分で切れてしまったり１枚に収まってもA4の上半分
ぐらいの小さな表になってしまったりと上手く出来ません。
どうすれば綺麗におさまるでしょうか？

116:名無しさん＠そうだ選挙にいこう
07/11/20 20:09:53
>>115
＞A4の上半分ぐらいの小さな表になってしまったり
・・・これで正解だから

大きく印刷したいならA4【横】で印刷しなさい

117:名無しさん＠そうだ選挙にいこう
07/11/20 20:43:06
>>113
それならVBAでやった方が早いかな。
Sheet2からSheet1へ、順番を変えながらデータをコピーする

Sub TimeCardCopy()
Dim Person, Day1, Col1

Application.ScreenUpdating = False ' 画面更新を一時的に止める
Application.Calculation = xlCalculationManual ' 再計算を一時的に止める

For Person = 1 To 50 ' 50人分
For Day1 = 1 To 31 ' 31日まで
For Col1 = 1 To 3 ' 3マスずつコピー
Worksheets("Sheet1").Cells(Person, Day1 * 3 + Col1 - 3) = Worksheets("Sheet2").Cells(Day1, Person * 3 + Col1 - 3)
Next Col1
Next Day1
Next Person

Application.ScreenUpdating = True ' 画面更新する
Application.Calculation = xlCalculationAutomatic ' 再計算する

End Sub

118:名無しさん＠そうだ選挙にいこう
07/11/20 21:12:40
>>117
ありがとうございます！
これでうまくいきそうです

119:115
07/11/20 21:30:37
>>116
会社で上司に頼まれたのですが私も最初A4横で印刷したら「こうじゃなくて縦長にA4用紙に
納めて」と言われてしまいました。どうやっても、縦にすると横が半分ぐらいきれてしまいます。
印刷設定ではここまではできないのでしょうか。。。

120:名無しさん＠そうだ選挙にいこう
07/11/20 21:36:54
excelを買おうと思って価格comで調べたんですが、（AC）ってのはなんでしょうか？
（UPG）はアップグレード版だとわかるのですが。
無印の　Office Excel 2007　って言うのを買えばいいのでしょうか？
OSはwinです。
よろしくお願いします。

121:名無しさん＠そうだ選挙にいこう
07/11/20 21:38:18
>>119　ページ設定で　縦？ページ×横？ページに収めるって設定がある　１X1にすればおｋ

122:名無しさん＠そうだ選挙にいこう
07/11/20 21:39:07
>>120
あかでみっく？

123:名無しさん＠そうだ選挙にいこう
07/11/20 21:43:23
>>119
無理やりA4におさめたいのなら、
印刷したいセルを選択して、「印刷範囲の設定」を選ぶ。
次に、印刷プレビューを見る。設定で余白を狭めたり、
拡大率を変更し、ページ枚数が一枚になるようにする。

分かりにくい説明だと思うが、これでできるはず。

124:115
07/11/20 22:02:52
>>116,121,123
ありがとうございます。明日また挑戦してみます。

125:名無しさん＠そうだ選挙にいこう
07/11/20 22:04:38
>>122
あっ、なるほどー
ってことは学生さん用ですね。
レスありがとうございます。

126:名無しさん＠そうだ選挙にいこう
07/11/20 22:12:43
=SUMPRODUCT((A1:A10)="AAA")*(B1:B10="EEE")*(C1:C10))

上記は、A列が"AAA"で、B列が"EEE"の行の対応するC列の値を合計する
式ですが、例えばA列に"BBB"と"CCC"が存在し、これらもOR条件で集計
したい場合のスマート書き方がありましたら教えてください。
気持ちとしては、下記のような式を作りたいと思っています。

=SUMPRODUCT((A1:A10)="AAA"or"BBB"or"CCC")*(B1:B10="EEE")*(C1:C10))

127:名無しさん＠そうだ選挙にいこう
07/11/20 22:26:13
配列とVBA、実務で比較的役に立つのはどちらでしょうか？

128:名無しさん＠そうだ選挙にいこう
07/11/20 22:35:00
>>127
VBA。VBAの中には配列も含まれるし。

仕事の内容にもよるけど、Excelそのものの使い方よりも計算に対する一般常識をたくさん知っていた方がいい。

129:名無しさん＠そうだ選挙にいこう
07/11/20 22:37:07
>>125
別に学生でなくとも教職関係者であればアカデミック版は購入可能だと思うが

130:名無しさん＠そうだ選挙にいこう
07/11/20 22:41:26
>>126
条件の and は * に、or は + に置き換えればいい。
+は*よりも優先順位が低いからカッコでまとめること。

=SUMPRODUCT(((A1:A10="AAA")+(A1:A10="BBB")+(A1:A10="CCC"))*(B1:B10="EEE")*(C1:C10))

131:名無しさん＠そうだ選挙にいこう
07/11/20 22:47:33
【1 OSの種類　　　　 .】 Windowsxp
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】可
【5 検索キーワード　　】 excel 自動　ファーム　入力

URLﾘﾝｸ(toi.kuronekoyamato.co.jp)

発送管理と発送状態をすぐわかるように
このクロネコヤマトのお問い合わせに自動でお問い合わせを入力して、お問い合わせボタンを押してくれるようなの希望です。

相手方の　名前　　住所　メモ　　の横にお問い合わせ番号を書いといて、その番号のリンクをダブルクリックすると上記のように
クロネコのサイトが開いて、自動で書いてあるお問い合わせ番号入力、お問い合わせボタンを押してくれたら感激です。

132:名無しさん＠そうだ選挙にいこう
07/11/20 22:51:52
>>128
どもっす

133:名無しさん＠そうだ選挙にいこう
07/11/20 23:34:25
>>131
検索したらこういうのがありました。応用できそうです。
URLﾘﾝｸ(q.hatena.ne.jp)

134:名無しさん＠そうだ選挙にいこう
07/11/21 12:22:22
そこの回答者も大変だな、けんもほろろ。

135:名無しさん＠そうだ選挙にいこう
07/11/21 12:27:42
クロネコの問い合わせページは暗号化されたアクセス日時が隠しフォームに入ってて、
いきなりリクエストだけ送ってもダメだからちょっと面倒だね。

136:名無しさん＠そうだ選挙にいこう
07/11/21 18:01:44
初心者です！　
次のエクセルの式の情報関連のレポートの宿題ですが、

＝IF（A1+B1＊（１+C＄１＞１００，IF（＄D1＜＞"X"，"あ"，"い"），"う"）
の式についてどういう意味かできれば具体的にお教え願います。

①特に、+と＊のどちら先に計算されるのか
②IF関数とその入れ子についてと、
③"あ"　"い"　"う"と表示されるのはどのような場合か

どうぞ宜しくお願いします。

137:名無しさん＠そうだ選挙にいこう
07/11/21 18:16:09
>>136
おめーのようなのは、おれはスルーだ

138:名無しさん＠そうだ選挙にいこう
07/11/21 18:27:00
>>136
宿題は自分でやれ！

一言だけ教えてやると、その式、たぶん一箇所　）　を写し間違えてるぞw

139:名無しさん＠そうだ選挙にいこう
07/11/21 20:00:29
使い始めたばかりのど素人ですがよろしくおねがいします。
データ分析の回帰分析から回帰直線y=a+bxのaとbを求めたものと、
データを散布図にプロットして線形近似した式と比べてみたのですが
式が一致しませんでした。線形近似は回帰直線にならないのでしょうか。

140:名無しさん＠そうだ選挙にいこう
07/11/21 20:05:18
>>131
これで一応希望の動作はできるから、あとは自分の作ったブックに合わせてカスタマイズしてね。
VBAは「いいえ」になってるけど、ブラウザの操作はVBAを使わないと無理だから、がんばって勉強してね。

Sub Kuroneko_check()

' IEオブジェクトのインスタンス化
Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True ' ブラウザを開く

' クロネコのサイトに飛ぶ
objIE.Navigate "URLﾘﾝｸ(toi.kuronekoyamato.co.jp)
Do While objIE.Busy = True 'ページが表示されるまで待つ
DoEvents
Loop

' 伝票番号をセルA1から取得してフォームにセット
objIE.document.all.number01.Value = Range("A1").Value

' テスト用仮データをセット (動作確認用)
objIE.document.all.number01.Value = "1111-2222-9993"

' 問い合わせボタンをクリック
objIE.document.all.sch.Click

End Sub

141:名無しさん＠そうだ選挙にいこう
07/11/21 20:11:59
>>136
そういうのはまず、自分で実際にエクセルの画面に入力して確かめてみるところから始めるといい。
そうすると入力ミスしていないかどうかも確認できるし。

1つだけヒント
+ は足し算
* はかけ算。×のかわりに * と書く決まり。どっちを先に計算するかは小学校で習ったよね？

142:名無しさん＠そうだ選挙にいこう
07/11/21 20:41:27
>>136
宿題なら教科書をみて自分で考えれ

143:名無しさん＠そうだ選挙にいこう
07/11/21 20:56:45
>>131

個人相手ではどうか知らんが、法人ならばやり方教えてくれるかもよ>クロネコ
131が物流と言う言葉にピンと来れば、そこに聞いてみるといい。

144:名無しさん＠そうだ選挙にいこう
07/11/21 21:21:00
初歩的な質問ですみません。

Excel2007の単独導入を考えているのですが、
Excel2007にMS数式3.0は付いてきますか?

145:名無しさん＠そうだ選挙にいこう
07/11/21 23:44:32
VBAでデスクトップにある<aaa>フォルダーの<bbb.csv>ファイルを開きたい。
Workbooks.Open Filename:= の続きを教えてください。

146:名無しさん＠そうだ選挙にいこう
07/11/21 23:51:48
>>145
これでいいの？Windowsのバージョンによってはパスが違うことも…

Workbooks.Open Filename:="C:\Documents and Settings\ユーザー名\デスクトップ\aaa\bbb.csv"

147:145
07/11/22 00:01:46
サンクスです。
できました。

148:名無しさん＠そうだ選挙にいこう
07/11/22 00:04:52
>>145
デスクトップのフォルダ名は以下のようなメソッドで取り出すことが出来ます。

CreateObject("WScript.Shell").SpecialFolders("desktop")

これを応用して書き換えるとこうなります。

Workbooks.Open Filename:=CreateObject("WScript.Shell").SpecialFolders("desktop") & "\aaa\bbb.csv"

これならユーザー名が変わってもWindowsのバージョンが変わってもそのまま使えます。

149:145
07/11/22 01:00:50
サンクス。
それいいですね。

150:リース
07/11/22 09:32:12
URLﾘﾝｸ(successmix.xsrv.jp)
ってビジネスどう思う？
これなら、できる？

151:名無しさん＠そうだ選挙にいこう
07/11/22 09:49:08
>>150
全然、欲しいとも思えない商品ばかり。悪質なマルチ商法

152:名無しさん＠そうだ選挙にいこう
07/11/22 11:46:29
【1 OSの種類　　　　 .】 WindowsXP-HE
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
【5 検索キーワード　　】（Google）Excel　VBA　セル　選択　不連続　グラフ

不連続（飛び飛び）のセルの数値を使ってグラフを作成したく思っています。

例えば、URLﾘﾝｸ(www.imgup.org)　で、土地の行のAさん～Cさん
の2006年のデータを円グラフにする際には、どのような記述になるのでしょうか？
この場合だと、対象の数値は、100，150，500　となります。

153:名無しさん＠そうだ選挙にいこう
07/11/22 12:21:18
不連続の表を連続の表に変換してからグラフにしたほうが簡単だな

154:名無しさん＠そうだ選挙にいこう
07/11/22 15:32:32
>>151
おまえいいやつだな。単なる広告コピペにわざわざレスつけるなんて。

155:名無しさん＠そうだ選挙にいこう
07/11/22 15:45:03
>>152
フィルターかけてからグラフを作成。非表示のセルを空白に。

あるいはデータの範囲を
=Sheet1!B4,Sheet1!D4,Sheet1!F4
みたいにコンマで区切って並べれば飛び飛びのセルを指定できる。
Ctrl押しながらクリックして複数のセルを選択してからグラフを作っても同じこと。

156:名無しさん＠そうだ選挙にいこう
07/11/22 17:08:01
>>153，155
さんきゅうです。やってみます。

157:名無しさん＠そうだ選挙にいこう
07/11/22 19:48:18
【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】
【5 検索キーワード　　】小数点　揃え　セル等々

かなり初歩的な質問だと思うのですがお願いします。

URLﾘﾝｸ(image13.bannch.com)
このように縦に数字の桁をそろえるにはどうしたらいいのでしょうか？

158:名無しさん＠そうだ選挙にいこう
07/11/22 20:17:40
ちょっとちがうかもしれないけど書式を　???.?? としてみる　（？が３つ　ピリオドが１つ　？が２つ）

159:名無しさん＠そうだ選挙にいこう
07/11/22 20:42:17
横からスマソ
その???.??は書式→セル等、どうやっていれるか教えてくれ

160:名無しさん＠そうだ選挙にいこう
07/11/22 20:52:09
書式と言うか書式設定の中の表示形式､更にその中のユーザー定義
Excelでは書式と言うと､セルの文字色や背景色､罫線などまで含めたものを指す

それと???.??より0.??の方が良いだろうな
まぁ､どちらにしろ整数でも小数点が表示されるのが嫌だとか言い出しそうだがな
その場合はVBA使うとかセル分けするとかかな

161:名無しさん＠そうだ選挙にいこう
07/11/22 21:00:52
>>159
こうやるの。基本中の基本だからしっかり覚えておくように
URLﾘﾝｸ(www.wanichan.com)

162:名無しさん＠そうだ選挙にいこう
07/11/22 21:27:31
>>157
(1) ここで説明する方法はExcel2003以前では使えないので、まずExcel2007に乗り換える
(2) セルを右クリックして「セルの書式設定」→「書式」→「ユーザー定義」を開いて「??0.??」と入れる
(3) 同じく「セルの書式設定」の中の「配置」タブを開き、横位置を「左詰め (インデント)」にしてインデントを1にする
(4) 条件付き書式を開き、「新しいルール」→「数式を使用(r」を選ぶ
(5) 数式のところに「=A1=INT(A1)」と書き、書式をユーザー定義で「??0」にする

このとおり
URLﾘﾝｸ(pict.or.tp)

163:名無しさん＠そうだ選挙にいこう
07/11/22 21:29:28
へー　2007買おうかな

164:名無しさん＠そうだ選挙にいこう
07/11/22 21:38:15
MS　ゴシック　のような等幅フォントにして小数点以下がないものは半角スペースを3つ
小数点以下が一桁ある場合は半角スペースを1つ入れる
配置を右詰めにしたらできあがり
2003以前でも対応可

俺って天才

165:164
07/11/22 21:41:45
値の最初に「'」をつけるのを忘れずに＾＾

166:名無しさん＠そうだ選挙にいこう
07/11/22 21:49:23
それじゃ式に使えないじゃない

167:名無しさん＠そうだ選挙にいこう
07/11/22 22:16:11
前スレで、=MAX(0,)を教えてもらったものです(Excel9007使用)m(_ _)m

Ｈ３に、
=MAX(0,(F3-F2-G2)*0.05)という計算式を入れてますが、ここに小数点以下は切り捨てという条件も入れるにはどうしたらよいでしょうか？
Ｈ４にINT関数入れれば出来るのは知っているのですが、一つにまとめたいので。

168:名無しさん＠そうだ選挙にいこう
07/11/22 22:24:45
>>167
式全体をINT(　)のカッコの中に入れればいいんだよ。

=INT(MAX(0,(F3-F2-G2)*0.05))

169:名無しさん＠そうだ選挙にいこう
07/11/22 22:35:36
>>168
ありがとうございましたm(_ _)m

170:名無しさん＠そうだ選挙にいこう
07/11/22 23:16:04
9007　いいなあ

171:名無しさん＠そうだ選挙にいこう
07/11/22 23:55:23
>>157
VBA使っていいならThisWorkbookに
Private Sub autochange(ByVal Target As Range)
Dim c As Range, f As String, s As String, e As String
On Error Resume Next
Application.EnableEvents = False
For Each c In Target
f = c.NumberFormat
If Right(f, 7) = "AUTO1""@" Then
s = Mid(f, InStr(1, f, """", vbTextCompare) + 1, Len(f))
s = Left(s, InStr(1, s, ";AUTO1""", vbTextCompare) - 1)
If Int(c.Value) = c.Value Then
e = Left(s, InStr(1, s, ";", vbTextCompare) - 1)
c.NumberFormat = e & ";""" & s & ";AUTO1""@"
Else
e = Mid(s, InStr(1, s, ";", vbTextCompare) + 1, Len(s))
c.NumberFormat = e & ";""" & s & ";AUTO1""@"
End If
End If
Next
Application.EnableEvents = True
End Sub
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
autochange Sh.UsedRange
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
autochange Target
End Sub
こんな感じにして表示形式を
0.00;"0_._0_0;0.00;AUTO1"@
にする

172:名無しさん＠そうだ選挙にいこう
07/11/23 02:32:11
WindowsXP
Excel2000
VBA使えません。

y軸に普通の値を、x軸に乗数を含む数値を入れた滑らかなグラフを作りたいのですが、どうすればいいんでしょうか。
折れ線で試したのですが、x軸の値が乗数表示できず、10-6のように表示されてしまい、
また、滑らかなグラフになりません。

173:名無しさん＠そうだ選挙にいこう
07/11/23 03:34:19
>>172
自動的に乗数を出すことはできないので、データラベル用の列か行を自分で作っておく必要がある。
例えば10のマイナス6乗を書きたい場合は、まず「10-6」と入力してから「-6」の部分だけを選択して、
書式→セルを開いて「上付き」をチェックする。
先に1つだけ作って、それをコピーしてから数字だけを修正していった方が早くできる。

グラフをなめらかな曲線にするには、まず折れ線グラフを作ってからプロパティ→系列→書式を選んで
「スムージング」にチェックを入れる。

174:173
07/11/23 03:40:56
あ、スマン。たしかに書式が無視されるね。これは気が付かなかった。

175:172
07/11/23 04:05:44
>>173
セル上はちゃんと乗数になってるのに、グラフの数値では書式が戻ってしまうんですよね。
これはどうしようもないんでしょうか…。

176:名無しさん＠そうだ選挙にいこう
07/11/23 04:10:13
指定した文字があるセルにジャンプすることはできる？
「E」と入力すると「English」というセルに飛べるか

177:名無しさん＠そうだ選挙にいこう
07/11/23 04:37:37
>>175
VBAでできないか調べてみたけど、軸ラベルは単純な文字列じゃないんだね。
オートシェイプのテキストボックスを重ねるしかないかなあ。

178:177
07/11/23 05:04:20
>>175
とりあえずオートシェイプで誤魔化してみた。俺の頭じゃこれが限界だ。
URLﾘﾝｸ(upsurusuru.hp.infoseek.co.jp)

179:172
07/11/23 05:24:40
>>177
わざわざスクショまでうｐしていただいて、ありがとうございます。
やってみます。本当にありがとうございました!

180:名無しさん＠そうだ選挙にいこう
07/11/23 07:47:28
>>130
遅ればせながらできました。ありがとうございました！

181:名無しさん＠そうだ選挙にいこう
07/11/23 08:39:20
>>176　検索

182:名無しさん＠そうだ選挙にいこう
07/11/23 19:05:37
>>176
ブックやシートには標準ではKeyPressイベントが公開されてないから、
どっかからオーバーライドしてくるか、別のプロセスでイベントハンドラを用意しないとダメかも。
不可能ではないけど、けっこうめんどくさい。

183:名無しさん＠そうだ選挙にいこう
07/11/24 01:50:45
【1 OSの種類　　　　 .】 WindowsXP SP2
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】関数　検索　lookup 空白　無視　...等

　　　A　　　　 B　　　　 C
　
1　 01A01 　02A02 　03A03
2　　　　　　02B02 　03B03
3　 01C01 　02C02 　03C03
4　
5　　　　　　02D02 　03D03
6　
7　 01E01 　02E02

という表で、たとえば
A10に01A01と打ち込むとその行の一番右列にある03A03を返す
A10に02D02と打ち込めばその行の一番右列にある03B03を返す
A10に01E01と打ち込めばその行の一番右列にある02E02を返す

という関数を作りたいのですが上手くいきません。何かいい方法はないでしょうか？
空白の行・セルはソートはできません。

184:名無しさん＠そうだ選挙にいこう
07/11/24 03:05:39
>>183
ちょっと長くなるけど

=IF(ISERROR(VLOOKUP(A10,A1:C7,3,FALSE)),IF(ISERROR(VLOOKUP(A10,B1:C7,2,FALSE)),"",
VLOOKUP(A10,B1:C7,2,FALSE)),IF(VLOOKUP(A10,A1:C7,3,FALSE)="",
VLOOKUP(A10,A1:B7,2,FALSE),VLOOKUP(A10,A1:C7,3,FALSE)))

185:名無しさん＠そうだ選挙にいこう
07/11/24 09:20:36
>>183
一番左に１列挿入して次の式を入力
=LEFT(B1&C1&D1,5)
この列を検索範囲に入れて
=VLOOKUP(A10,A1:D7,4,1)

186:名無しさん＠そうだ選挙にいこう
07/11/24 11:14:17
すみませんが教えて下さい。

PCの買替え（→vista）を検討中ですが、Excel2000で作成したファイルは
いきなりExcel2007で作業することは可能ですか？

【1 OSの種類　　　　 .】 Windows98SE
【2 Excelのバージョン　】 Excel2000

187:名無しさん＠そうだ選挙にいこう
07/11/24 11:27:58
【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】可

セル内の文字の中から、指定の文字を数える方法はありませんかね？
たとえばセル内に aaaabcd と書いてある場合、a の数が4個だと分かるような関数はありますか？Len関数を使えば、上記の場合7と答えが出ますが、文字の指定はできなかったはずです。

188:名無しさん＠そうだ選挙にいこう
07/11/24 12:42:10
>>187
釣りじゃないよね？
=LEN("aaaabcd")-LEN(SUBSTITUTE("aaaabcd","a",""))
「元の文字数」－「指定文字を除いた文字数」
簡単だろ。

189:名無しさん＠そうだ選挙にいこう
07/11/24 13:23:47
うぜー

190:名無しさん＠そうだ選挙にいこう
07/11/24 14:40:09
エッ！　難しかったの？

191:名無しさん＠そうだ選挙にいこう
07/11/24 15:46:44
お尋ねします
【1 OSの種類　　　　 .】 WindowsVista
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】可

セル内の二色を使った文字列のうち1色だけを他の色に置き換えることはできないんでしょうか
「置換」を使うとセル内すべての文字色が置き換わってしまうのですが

赤黒→青黒にしたいところ
赤黒→青青になってしまいます

192:名無しさん＠そうだ選挙にいこう
07/11/24 17:20:32
【1 OSの種類　　　　 .】 Windows Vista
【2 Excelのバージョン　】 Excel2007
【3 VBAが使えるか　　 .】いいえ

2003で作成したものを2007で読むとウインドウ枠の固定ができません。
ページによってはできるのですが、そこが白黒表示でできません。
同様の方はいらっしゃるでしょうか。
また、解決法などあるでしょうか。

193:名無しさん＠そうだ選挙にいこう
07/11/24 17:59:00
【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否

会計ソフト(市販のモノです)からエクスポートしてきたデータ(エクセル形式)を貼る付けと同時に加工することは可能でしょうか？
例えば貼りつけるとすぐに「売上債権回転率」や「流動比率」などを計算させる、などです。
貼りつけた数値の位置が毎回同じなら良いのですが、月次によって勘定科目の増減がありますので、
貼る付ける位置が常に同じとは限りません。
何か良い方法はありませんでしょうか？

194:名無しさん＠そうだ選挙にいこう
07/11/24 21:08:13
【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2000
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否

既に打ち込まれてある数値（少数）をセルごと100倍するにはどうすればいいでしょうか。
ググルと関数でできるような事が書いてありますが、できませぬ。。
お助け願います。

195:名無しさん＠そうだ選挙にいこう
07/11/24 21:19:45
なんか回答がないようだがレベルが高いのか？低いのか？

196:名無しさん＠そうだ選挙にいこう
07/11/24 21:26:20
どうしたいのか今一わからぬ。
もう少しわかりやすどうしたいか書くとイイかもね。

例えば>>194
=A1*100みたいに計算したらだめなん？
関数を使いたいの？

197:名無しさん＠そうだ選挙にいこう
07/11/24 21:29:48
>>195
このスレって質問者が中級で回答する人が初中級というヘンなスレです。
前から見ててそう思ってます。

198:名無しさん＠そうだ選挙にいこう
07/11/24 21:35:10
>>193
情報が足りない。張り付けるのは数値だけなのか数値と項目名なのか。縦一列なのか表形式なのか。
数値だけなら無理だな。項目名もあるならDSUMあたりでなんとかなるだろう。

199:名無しさん＠そうだ選挙にいこう
07/11/24 21:42:37
>>197
で、あんたのレベルは？

200:名無しさん＠そうだ選挙にいこう
07/11/24 21:44:28
>>199
図星だね。
そういうレスが来るのがその証拠だ。　笑

201:名無しさん＠そうだ選挙にいこう
07/11/24 21:58:19
>>188
トンクス
釣りじゃないよ、まだ慣れていないんだ

202:183
07/11/24 22:16:47
>>184
ありがとうございます。
しかし実際使う表が800行ぐらいあるので厳しいです。。。

>>185
ありがとうございます。
01A01でやると０が返ってきたり、02B02でやると03C03がきたりしてちゃんとできませんでした。。。

203:名無しさん＠そうだ選挙にいこう
07/11/24 22:25:43
>>202
＞しかし実際使う表が800行ぐらいあるので厳しいです。。。
８００回記入しなくても、式をコピーできるのは知ってる？

204:183
07/11/24 22:38:57
>>203
書き方が悪かったですすいません
制限文字数以上いきそうです・・・。

205:名無しさん＠そうだ選挙にいこう
07/11/24 22:40:51
>>183 >>202
各行の最左項をキーに最右項のデータを検索するって事でいいのなら

「１８５改造案」

Ｄ列に：=LEFT(A1&B1&C1,5)
Ｅ列に：=RIGHT(A1&B1&C1,5)
検索式は：=VLOOKUP(A10,D1:E7,2,0)　最後の項は１じゃなくて０の間違い

206:183
07/11/24 22:47:56
>>205
途中で0にしてみて、できた！と思ったんですがだめでした
最左項だけではなく、最右項以外（>>183　１行目でいうと、01A01か02A02）がキーだったら最右項の03A03を返すです
空白行や空白セルがある＆頭に数字が付いてるのが厳しい。。。

207:名無しさん＠そうだ選挙にいこう
07/11/24 22:50:49
>>197
残念､ハズレ

質問者も回答者も初級以下から上級まで様々です
ただし､質問者にはPCやExcelのレベルに関係なく
日本語出来てなかったり､要領を得ない質問してたりする奴が多い傾向にはあるけどね
その為に回答が滞りがちではある

208:名無しさん＠そうだ選挙にいこう
07/11/24 22:57:36
>>206
後から条件を追加しちゃダメだよ

209:名無しさん＠そうだ選挙にいこう
07/11/24 23:06:02
>>191
ひとくちに赤、青と言っても、明るかったり暗かったりいろんな色があるから
標準以外の色を使っていた場合にはこのVBAは使えないので注意。

Sub test() ' 呼び出しサンプル
ChangeColor ("A1") ' 置き換えたいセルを指定する
End Sub

Sub ChangeColor(R) '指定されたセルの赤い文字だけを青に変える
For I = 1 To Len(Range(R))
If Range(R).Characters(Start:=I, Length:=1).Font.Color = vbRed Then Range(R).Characters(Start:=I, Length:=1).Font.Color = vbBlue
Next I
End Sub

210:名無しさん＠そうだ選挙にいこう
07/11/24 23:12:38
>>193
行数の増減があったとしても、下から数えて必ず同じ位置に同じ項目が来るなら
VBAなどを使って処理することは可能。

211:名無しさん＠そうだ選挙にいこう
07/11/24 23:32:01
>>207
残念。
回答者に上級レベルなど居ません。
それでもあると仰るのであれば具体的な指摘をお願いしたい。

212:名無しさん＠そうだ選挙にいこう
07/11/24 23:32:02
>>206
最大何列まであるの？行数はどんだけあっても関係ないから。
あと、800行あるなら検索するデータの入力先もA10じゃないよね。
ありのままの条件を書いて。

213:名無しさん＠そうだ選挙にいこう
07/11/24 23:36:19
>>183
そういった変則的な検索条件になるって事は
データベースのフィールドの作り方が間違ってるって事だよ
後々複雑な式になって編集や変更がしにくくなる前に
根本的に表の設計をやりなおしたほうが得策だよ

214:名無しさん＠そうだ選挙にいこう
07/11/24 23:43:26
>>194
質問の意味が今ひとつわからないので勝手に解釈するぞ。

まず、適当に使っていないセルに100と入力し、そのセルを選択、コピーする。
次に、100倍にしたいセル(範囲)を選択して右クリック、形式を選択して貼り付け、を開く。
演算の下の「乗算」のラジオボタンをチェック、OKを押すと、選択したセルが一度に100倍される。

215:名無しさん＠そうだ選挙にいこう
07/11/24 23:45:24
>>210なんかは回答者だけど日本語読めてないよね。
これなんかはどうよ？>>207

216:名無しさん＠そうだ選挙にいこう
07/11/25 00:21:15
的外れだったらすり合わせればいいだけ。
それができない回答否定＝人格否定＝ボク悪くないお前が馬鹿なのが悪い
っつーお子様が粘着して貼りついてしまってるだけ。

217:名無しさん＠そうだ選挙にいこう
07/11/25 00:22:23
焦るなよ
曖昧な質問に無理やり答えようとするからおかしな回答になるんだろ

不明な点、曖昧な点を明らかにするよう誘導くらいはしようぜ

218:名無しさん＠そうだ選挙にいこう
07/11/25 00:31:30
>>216
それ自分に言い聞かせてるの？

219:名無しさん＠そうだ選挙にいこう
07/11/25 00:39:44
悪い質問には悪い回答しかつかないんだからそれでいいじゃん

220:名無しさん＠そうだ選挙にいこう
07/11/25 01:26:25
【1 OSの種類　　　　 .】 Windows XP SP2
【2 Excelのバージョン　】 Excel 2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】excel 関数　で検索して関数を調べたりしました。

説明がややこしいのでサンプルを作ってみました。

URLﾘﾝｸ(hilala-web.hp.infoseek.co.jp)

このように、個人ごとの注文表があったとします。
この注文を1つにまとめて、それぞれ鉛筆何本、シャーペン何本という合計の表を
作るのにはどのようにすればいいでしょうか？

個人注文表で品物と個数を選ぶと、別の表ですべての合計が表示される、といった感じにしたいです。

よろしくお願いします！

221:名無しさん＠そうだ選挙にいこう
07/11/25 02:00:14
>220
俺あんまり頭良くないから長ったらしい式書いちゃうけど

例えばA10に商品の名前を入れておいて
B10=SUMPRODUCT((G$2:G$7=A10)*(H$2:H$7)+(D$2:D$7=A10)*(E$2:E$7)+(A$2:A$7=A10)*(B$2:B$7))
と入れれば集計は出来ると思う

あとは応用してみて

222:名無しさん＠そうだ選挙にいこう
07/11/25 03:46:46
>221
{=SUM((G$2:G$7=A10)*(H$2:H$7),(D$2:D$7=A10)*(E$2:E$7),(A$2:A$7=A10)*(B$2:B$7))}
=SUMIF(A$2:A$7,A10,B$2:B$7)+SUMIF(G$2:G$7,A10,H$2:H$7)+SUMIF(D$2:D$7,A10,E$2:E$7)
=SUMPRODUCT((G$2:G$7=A10)*(H$2:H$7)+(D$2:D$7=A10)*(E$2:E$7)+(A$2:A$7=A10)*(B$2:B$7))

223:名無しさん＠そうだ選挙にいこう
07/11/25 03:58:16
>>191
それは仕様なのではないでしょうか。
自分は、Excelでは置換をしない、と決めています。

224:名無しさん＠そうだ選挙にいこう
07/11/25 06:23:36
>>211
新参だと知らないかもしれないが､ゴッホ氏とかhoge氏とか
最近は来ないけど､このスレに居た事実は変わらないし
コテ無しでもこのレベルの奴は偶に来てる

(君にとって)残念ながら､(俺にとっては)残念ではなかった

225:名無しさん＠そうだ選挙にいこう
07/11/25 09:20:52
>>209
>>223
皆さんありがとうございます
ちょっとVBA勉強してきます

226:220
07/11/25 10:18:11
>>221, >>222
ありがとうございます、その式でとりあえずは集計することができました。
ただ、実際作るものは、山田、田中、鈴木、のように3つではなくもっと多くなってしまいそうです。

かなり長い式を書けばできなくもないんですが、もう少し効率的な方法はないでしょうか？
できれば可変にも対応させたいのですが・・・
(最悪ずっと右のほうまで計算するように作っておけばいいので、あまり重視しません)

よろしくお願いします。

227:名無しさん＠そうだ選挙にいこう
07/11/25 10:25:05
>>220
>>213氏が別の質問に対して答えてる内容と同じになるのですが、
マスターとなる表自体の作りを変えた方が良いですよ。
この例だったら、
A列：注文者名
B列：注文品名
C列：注文品の個数
みたいな感じ。

人間にとって見易い表から機械で処理し易い表を作るのは
大変ですが、逆は簡単ですから。

228:名無しさん＠そうだ選挙にいこう
07/11/25 10:38:12
そういうのはピボットテーブルで集計するのが楽だね

229:名無しさん＠そうだ選挙にいこう
07/11/25 11:34:16
ピボット使う奴は雑魚

230:名無しさん＠そうだ選挙にいこう
07/11/25 11:47:47
ん？　くやしかったの？

231:名無しさん＠そうだ選挙にいこう
07/11/25 11:55:42
>>219
だな。
お前のような質の悪い人間が混じってくる。

232:永遠の初心者 ◆adhRKFl5jU
07/11/25 12:13:02
>>229
ピボットを使う奴は決して雑魚ではない

>>220
例えば
商品表のC2に

=SUMIF(個人注文表!$A$2:$I$7,A2,個人注文表!$B$2:$J$7)

を下にコピーする。

233:220
07/11/25 15:56:34
みなさんレスありがとうございます。

>>227
なるほど。
しかし実際はもっと複雑なのでなかなか簡単にはいかないのです・・・
そして実際に数値を入れるのは他の人(不特定多数に近い)にやってもらうので、
多少式が複雑でも見た目がわかりやすいほうがいいのでこの形にしました。

>>228
ピボットは使ったことないのでまた調べて見ます。

>>232
おお、すばらしい！
これはシンプルでいいですね。

SUMIFの検索範囲、合計範囲が複数列になっていますが、この場合
検索範囲が$A、合計範囲が$Bから始まっているので、検索に合致したセルの
右のセルの値が合計される、という意味になるのでしょうか？
(説明がややこしいですが･･･)

234:名無しさん＠そうだ選挙にいこう
07/11/25 17:12:22
>>233
不特定多数が入力するんなら、入力フォームを使ったほうがいいぞ。
集計しやすいように表を作ることも出来るし、入力する位置の間違いなんかも防ぐことが出来る。

商いの規模にもよるけど、ExcelよりAccessを使った方がいいかもよ。
Accessなら複雑な集計がExcelよりは楽に出来ることのが多い。

235: ◆adhRKFl5jU
07/11/25 18:24:04
>>233
＞検索範囲が$A、合計範囲が$Bから始まっているので、検索に合致したセルの
＞右のセルの値が合計される、という意味になるのでしょうか？

右のセルの値とは限らないです
今回は検索範囲と合計範囲の大きさ（範囲の形）を同じにしています
選択した検索範囲と同じ形の合計範囲が同じならば、イメージとしては検索範囲と合計範囲を
重ねた時に一致したセルの値が合計されます

例えば　=SUMIF(A1:C5."条件",X21:Z25)　という式では
B2とC5に"条件"という文字が入っていた場合Y22とZ25の値が合計されます

236: ◆adhRKFl5jU
07/11/25 18:31:18
書き忘れました
＞今回は検索範囲と合計範囲の大きさ（範囲の形）を同じにしています
ヘルプより
「合計範囲に含まれるセルの個数と形状は、必ずしも対応するセルと一致している必要はありません。
加算の対象となる実際のセルは、合計範囲の左上のセルを基準にして決定されます。」

でも一致させた方がわかりやすいので今回は一致させました

237:名無しさん＠そうだ選挙にいこう
07/11/25 18:58:06
また出てきたのか>>◆adhRKFl5jU
なんでそんなに自己主張したがるの？
無名で回答すれば､単なる初級回答者として多少は有り難がられるのに
酉付きで出てくると､過去の暴走を知ってる人達から叩かれるだけだよ

238:220
07/11/25 19:45:04
>>234
ありがとうございます。

詳しく説明するとかなり長くなってしまうのでやめときますが、
今回の場合はフォームよりはこっちのほうがよさそうです。

不特定多数といっても、1人1つこのファイルに入力してもらう感じで、
入力者は全部のシートを見て全体をみながら考える・・・といった感じなのです。
わかりにくいかもしれませんがどうでもいいので気にしないでくださいｗ

>>235
なるほど、そういう事ですか。
かなり参考になりました、ありがとうございます！

239:名無しさん＠そうだ選挙にいこう
07/11/25 20:04:24
期間中にクリック数の一番多い国が優勝！
URLﾘﾝｸ(www.clickclickclick.com)　（戦場はこちら）
ルールは簡単（＾ω＾）認証文字を打ち込んだら、あとはクリックボタンを連打連打！！！
おまえさんたちのクリック魂を見せてくれ！

◇新規さんや古参帰還兵さんへ
初めまして、そして久しぶりです。この熱き戦いももう半年を迎えました。
現在GAME29(11/26-11/30まで)に突入、我らが日本は強豪ハンガリーに苦戦を強いられています。
世界が総力を挙げて競っているこの戦いに、あなたの力を貸してください！

ClickJapanポータルサイト→　URLﾘﾝｸ(www.clickjapan.jp)
初めての方はこちらのwikiを→　URLﾘﾝｸ(www37.atwiki.jp)
久しぶりに参戦の方へ→　URLﾘﾝｸ(www33.atwiki.jp)

わからない事はこのスレ（落ちてたら↓から）で聞いてね！(ポータル内のフォーラムでもＯＫ！)
URLﾘﾝｸ(www.clickjapan.jp)

【砲台ランキング】一番クリックした国が優勝【はじめました】
ｽﾚﾘﾝｸ(news4vip板)

240:194
07/11/25 23:34:04
>>214
うをを、簡単にできました。
どうもありがとうございました。

こんなの本に載ってないし、ググっても出てこないのでまいります。

241:名無しさん＠そうだ選挙にいこう
07/11/25 23:52:08
２００３使ってます。

セルで列または行に
例　(列)
TEL１２３－４５６－７８９
TEL１２３－４５６－７８９
TEL１２３－４５６－７８９
TEL１２３－４５６－７８９
TEL１２３－４５６－７８９
並んでいるときにTELの文字だけ一気に消したいのですが
どうしたらいいのでしょうか？

242:名無しさん＠そうだ選挙にいこう
07/11/25 23:55:23
>>241
置換で空白にするとか

243:名無しさん＠そうだ選挙にいこう
07/11/25 23:59:38
>>242
天才ですね！！！！！！！！！！！
ありがとうございます！！！！！！！！！！！！！！！！

244:名無しさん＠そうだ選挙にいこう
07/11/26 00:20:42
>>220
関数を使わずに、「データ」メニューから「統合」を使うのも良いのでは？
左端列をチェックすれば、集計出来ます。

245:名無しさん＠そうだ選挙にいこう
07/11/26 08:14:24
>>237
自己紹介乙ｗ

246:名無しさん＠そうだ選挙にいこう
07/11/26 11:10:22
方向キーを押すとカーソルが移動しないでシート全体が移動してしまいます。
カーソルを移動するようにするにはどうすればいいでしょうか？

247:名無しさん＠そうだ選挙にいこう
07/11/26 11:53:21
ScrollLock

248:名無しさん＠そうだ選挙にいこう
07/11/26 11:55:15
>>245
せんせー､おはようございます

249:名無しさん＠そうだ選挙にいこう
07/11/26 13:31:16
>>247
できました。ありがとうございます。

250:あ～
07/11/26 18:51:21
エクセルで、グラフとかどう作るの？
途中までできるんだけど、完全にできない。

251:名無しさん＠そうだ選挙にいこう
07/11/26 20:09:32
あなたにはできないので、諦めてください。

252:名無しさん＠そうだ選挙にいこう
07/11/26 22:43:12
ひどい質問だ。
この聞き方じゃリアルでもどうにも答えられんよな。。。

253:名無しさん＠そうだ選挙にいこう
07/11/26 23:50:49
教えてください。

シート１のセル「A2」に何か入力（文字種は問わない）があれば、

シート２のセル「B3」に、

シート１のセル「A1」に入力されている文字（例えば人の名前とか）をそのまま表示する。

シート１のセル「A2」に何も入力がなければ、シート２のセル「B3」は空白のままにしておく

ということをするために、シート２のセル「B3」に入力する書式がわからなくて困っています。

どなたかご教授いただけないでしょうか？

よろしくお願いいたします。

254:テスト ◆WBRXcNtpf.
07/11/26 23:51:04
sage

255:253
07/11/26 23:53:06
書き忘れました、すいません

【1 OSの種類　　　　 .】 Windows XP SP2
【2 Excelのバージョン　】 Excel 2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】よくわかりません
【5 検索キーワード　　】excel 関数を調べてみましたがよくわかりませんでした

よろしくお願いいたします。

256:名無しさん＠そうだ選挙にいこう
07/11/26 23:56:19
>>253
=if(シート１!A2<>"",シート１!A2,"")

257:名無しさん＠そうだ選挙にいこう
07/11/27 00:18:52
>>255
どんな関数でも数式でも、別のシートを参照するにはセル指定の前にシート名とびっくりマークを書けばいいだけ。
=IF(Sheet1!A2<>"",Sheet1!A1,"")