Excel総合相談所 64at BSOFTExcel総合相談所 64 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト481:名無しさん＠そうだ選挙にいこう 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どちらでも何か良い方法がありましたら、ご助言の程お願い致します。 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch