08/01/30 10:12:04
>>478
分割円グラフを作って、グラフを選択、ドラッグすると離したりくっつけたりできる
そして一つの要素をクリックして、ドラッグすると一個だけ切り離せして移動できる
・・分かりにくいな
A1-A3に東京、大阪、名古屋(なんでもいいけど)
B1-B3に1,2,3と入れて下のマクロを実行してみ
sub あ()
Charts.Add
ActiveChart.ChartType = xl3DPieExploded
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:B3"), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
ActiveChart.HasTitle = False
ActiveChart.SeriesCollection(1).Select
Selection.Explosion = 0
ActiveChart.SeriesCollection(1).Points(2).Select
Selection.Explosion = 41
End Sub
482:名無しさん＠そうだ選挙にいこう
08/01/30 10:59:38
【1 OSの種類 .】 WinXP
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか 】 少し（初心者）
【4 VBAでの回答の可否】 可
【5 検索キーワード 】 入力 格納
少し前にもお世話になりましたが、またお世話になります。
ユーザーフォームで（セルへの直接の入力でも）担当者ごとに複数の情報を入力します。
それを担当者で識別して担当者ごとのワークシートへ格納するようなものを作成したのですが、
なんともうまくまとめられません･･･。
担当者ごとのシートへの格納とそれとは別に全て担当者の情報が入っているシートの
両方に情報を入れたいのです。
A B C D
佐藤 1月6日 みかん りんご
伊藤 1月9日 メロン みかん
佐藤 1月10日 りんご ぶどう
とすべて繋がっているシートと
A B C D
佐藤 1月6日 みかん りんご
佐藤 1月10日 りんご ぶどう
と佐藤シートにも自動的に振り分けられるように。
複数条件を入力するユーザーフォームからセルへの入力は大丈夫なのですが、
振り分けがうまくいきません（というか思いつかない）。
関数、VBAどちらでも何か良い方法がありましたら、ご助言の程お願い致します。
483:名無しさん＠そうだ選挙にいこう
08/01/30 11:41:46
全ての担当者が入ってるシートに通し番号の列を挿入して、
vlookup使うのが早いと思う
仮に全てのデータが入ってるシートのA列を番号の列とし、A1から1、A2が2・・と入力
そのシートをまるごとコピーしてA列と2行目以降をクリア、シート名は担当者名かな
B2に
=IF(VLOOKUP(全て!$A2,全て!$A$1:$E$100,2)="佐藤",VLOOKUP(全て!$A2,全て!$A$1:$E$100,2),"")
B3もそんな感じで入力して、下までオートフィル
B列を名前でオートフィルタすればいと思う
新しいシートはマクロで作れるけど、その辺は割愛
シート名を関数で取得できたら楽なんだがなぁ
484:名無しさん＠そうだ選挙にいこう
08/01/30 12:14:36
>>482
一度ピボットテーブルで担当者別に集計します。
その集計表で佐藤さんの集計値をダブルクリックすれば佐藤さんだけの
明細データが別のシートに出てきますよ。
485:名無しさん＠そうだ選挙にいこう
08/01/30 13:25:06
1 OSの種類 .】 Windows vista/xp
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 否
【5 検索キーワード 】 リンク 削除 セル
セル内のリンクを切りたいのですが、
例えば「=A1」のようなものは残して、
「=SUM(A1:A2）」のような関数の入ったセルだけを消すにはどうすればいいのでしょうか？
486:名無しさん＠そうだ選挙にいこう
08/01/30 14:12:38
>>485
リンク？？
何を残して、何を消したいのか、よくわからん。
SUM関数が入ったセルだけを消したいなら編集→置換で
検索する文字列 「*SUM(*」
置換後の文字列 「」
にする。
487:名無しさん＠そうだ選挙にいこう
08/01/30 14:15:35
>>485
Ctrl+Fで"("を「すべて検索」して
下に出てくる検索結果でCtrl+Aして検索窓閉じてDelete押せばいいんじゃね？
488:名無しさん＠そうだ選挙にいこう
08/01/30 15:52:43
ファイルを開く、あるいは保存をしようとすると
画面が変なかんじの表示になり(きちんと通常の画面にならずあちこち虫食い
状態にみえる)、エラーメッセージがでてしまいます。
「メモリ不足で開けない」というようなメッセージです。
ファイルサイズ：5Ｍ
メモリ：734Ｍ
ドライブの空き容量は10Ｇ以上ある
仮想メモリ？を330程度だったのを500まで増やしてみたりしても一向に
解決しません。
つい最近急にこういう状態になったのですが、どうしたら直りますか？
489:名無しさん＠そうだ選挙にいこう
08/01/30 17:05:22
オプション→計算方法にある
「表示桁数で計算する」はデフォルトでオンになっているのでしょうか?
490:名無しさん＠そうだ選挙にいこう
08/01/30 17:17:22
>>488
とりあえず再インストールをしてみたほうがいいかと
解決しなきゃエラーメッセージ全文のせないとわからんよ
491:名無しさん＠そうだ選挙にいこう
08/01/30 20:00:35
こんにちは
HTMLを含む文書をエクセルに貼り付けてコードを編集したいと思ってます。
改行をtabに変換したソースを貼り付けると文字としてではなくHTML文書（リンクや画像）が現れてしまいます；；；；
単なる文字としてペーストどこで設定したらよいのれしょうか？？
492:名無しさん＠そうだ選挙にいこう
08/01/30 20:13:35
エクセル‐ＨＴＭＬでぐぐったら 解決できました(^_^;)
すんません
493:名無しさん＠そうだ選挙にいこう
08/01/30 21:10:10
【1 OSの種類 .】 WindowsXP
【2 Excelのバージョン 】 Excel2003
人の名前とその横に金額が書かれている１０枚くらいのシートがあるのですが
全てのシートから同じ名前の人の金額だけを抜き出して合計したものを
一番最後のシートに表示させるにはどうすればいいでしょうか？
494:名無しさん＠そうだ選挙にいこう
08/01/30 21:57:53
>>493
統合かピボットテーブルでどうぞ
495:名無しさん＠そうだ選挙にいこう
08/01/30 23:08:02
やった事がある人は解ると思いますが、
VBAを使って複数のジョブに分かれた印刷を行うと、
印刷の合間に数十秒の時間が掛かる事があります。
これはどうにかして回避出来ないでしょうか？
496:名無しさん＠そうだ選挙にいこう
08/01/30 23:10:46
>>486
要するに関数が入っているものは消して、関数が入っていない「=A1」などは残したいのです。
>>487
明日やってみます。ありがとうございます。
497: ◆adhRKFl5jU
08/01/31 00:08:30
>>482
挿入 － 名前 － 定義
名前に 「シート名」
参照範囲に =REPLACE(CELL("filename",!$A$1),1,FIND("]",CELL("filename",!$A$1)),"")
名前に 「行番号」
参照範囲に =SMALL(IF(全て!$A$1:$A$100=シート名,ROW(!$A$1:$A$100),""),ROW())
「佐藤」シート
A1=IF(COUNTIF(全て!$A:$A,シート名)<ROW(),"",INDEX(全て!A:A,行番号))
右、下へ必要数コピー
その後は「佐藤」シートをコピーしてシート名を変えてください。
でも、折角ユーザーフォームを使っているのならセットの時に他のシートにもデータが
入力されるようにした方がいいかもしれませんね。
498:名無しさん＠そうだ選挙にいこう
08/01/31 00:32:27
【1 OSの種類 .】 WindowsXp
【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか .】 いいえ
おしえてください。
B列とC列、どちらかに１または空欄が入っている表があります（１はダブらない）
これを1列にまとめるにはどうすればよいですか？
D列に、「となりのBかCに1があったら１を返す」というような式を入れる方法でもいいのですが
IFでやろうとしたら式が違うといわれました。
499:名無しさん＠そうだ選挙にいこう
08/01/31 00:41:05
=IF(OR(A1=1,B1=1),1,"")
500:名無しさん＠そうだ選挙にいこう
08/01/31 01:51:04
>>498
=B1&C1
501:498
08/01/31 03:43:24
>499
ありがとうございます！
実はこのあと、3列、4列…で同じ操作をしたかったのですが
それでもできたので助かりました！
>500
そ、そんなシンプルな式があったとは･･･
ありがとうございます。