Excel2007で必要でないデータを可視化する方法
- Excel2007で必要でないデータを可視化する方法について質問させて頂きます。
- セルU3~AF3には記号として扱われるアイウエオカキクケコ、または空白が入ります。
- セルAH3から始まり、余った記号を右に向かって各セルに1つずつ入れていきます。
- ベストアンサー
Excel2007で必要でないデータ
必要でないデータを可視化したいとおもいまして質問させて頂き御協力お願いします。 (1)、まずU3~AF3のセルを空にします。U3~AF3のセルの1つずつに記号として扱われるア、イ、ウ、エ、オ、カ、キ、ク、ケ、コ、と空白のいずれかが入ります。 (2)、(1)でU3~AF3に入ったそれらの記号を利用して記号のアイウエオカキクケコの中から消します。 (3)、(2)で消されずに余った記号をセルAH3から右に向かって各セルに1つずつ入れます。 (4)、(1)に戻り違う記号が入ります。(2)にいき(3)についたらセルAH3の下のセルAH4から右に向かって…をマクロボタンを押す度に繰り返したいです。
- 961awaawa
- お礼率85% (391/460)
- Excel(エクセル)
- 回答数7
- ありがとう数8
- みんなの回答 (7)
- 専門家の回答
質問者が選んだベストアンサー
>.borders.LineStyle = xlContinuousの所が黄色くなります。 何故かWith ステートメントを使うとエラーが出るのですね? Sub Test4() Dim n As Long, Spoint As Range, i As Long Set Spoint = Cells(Rows.Count, "AH").End(xlUp).Offset(1) If Spoint.Row < 3 Then Set Spoint = Range("AH3") For n = 0 To 9 If IsError(Application.Match(n, Range("U3:AF3"), 0)) = True Then Spoint.Offset(, i).Value = n Spoint.Offset(, i).Borders.LineStyle = xlContinuous Spoint.Offset(, i).HorizontalAlignment = xlCenter i = i + 1 End If Next End Sub
その他の回答 (6)
- watabe007
- ベストアンサー率62% (476/760)
>これに格子とセンター揃えにしたいですが何処・・・ Sub Test3() Dim n As Long, Spoint As Range, i As Long Set Spoint = Cells(Rows.Count, "AH").End(xlUp).Offset(1) If Spoint.Row < 3 Then Set Spoint = Range("AH3") For n = 0 To 9 If IsError(Application.Match(n, Range("U3:AF3"), 0)) = True Then With Spoint.Offset(, i) .Value = n .Borders.LineStyle = xlContinuous .HorizontalAlignment = xlCenter End With i = i + 1 End If Next End Sub
お礼
こんばんはwatabe007さん。大分日にちが過ぎてしまいました。やっとスマホに変えてぎこちなく返事を書いてます。作って頂いたソースを試したのですが実行時エラー424となりオブジェクトが必要ですとなり .borders.LineStyle = xlContinuousの所が黄色くなります。またヘルプをお願い致します。
- watabe007
- ベストアンサー率62% (476/760)
>このカタカナ記号を数字記号の1、2、3、4、5、6、7、8、9、0に >変えたいんですがどこを変えればよろしいでしょうか? Sub Test2() Dim n As Long, Spoint As Range, i As Long Set Spoint = Cells(Rows.Count, "AH").End(xlUp).Offset(1) If Spoint.Row < 3 Then Set Spoint = Range("AH3") For n = 0 To 9 If IsError(Application.Match(n, Range("U3:AF3"), 0)) = True Then Spoint.Offset(, i).Value = n i = i + 1 End If Next End Sub
お礼
できましたー!!!! これに格子とセンター揃えにしたいですが何処にどのようにしたらよろしいでしょうか?
- watabe007
- ベストアンサー率62% (476/760)
>教えて頂いた通りやってみたのですがAH3から右に向かって >アイウエオカキクケコと標示される形になっております。 それってU3~AF3に1つもデータが無いって事では そとも U3~AF3 と AH3 のシートは別々なのですか?
お礼
ご返答ありがとうございます。watabe007さん。 sheetは同じなんですが、U列までに色々とデータが入ってたりします。 その場合はダメなんでしょうか?
補足
カタカナやひらがなではできましたが数字ではできません。出来るようにするにはどうしたらよろしいでしょうか?不思議です。
- mt2015
- ベストアンサー率49% (258/524)
ANo.1 です。 色々読み違えていました。 記号を入れるのはAH3からでしたね。 また、履歴が必要なのですね。 マクロで作り直す必要が有りますので、先の回答は無視してください。
お礼
mt2015さん、ありがとうございます。
- watabe007
- ベストアンサー率62% (476/760)
参考に Sub Test() Dim myArr As Variant, myStr As Variant, i As Long, Spoint As Range myArr = Array("ア", "イ", "ウ", "エ", "オ", "カ", "キ", "ク", "ケ", "コ") Set Spoint = Cells(Rows.Count, "AH").End(xlUp).Offset(1) If Spoint.Row < 3 Then Set Spoint = Range("Ah3") For Each myStr In myArr If IsError(Application.Match(myStr, Range("U3:AF3"), 0)) = True Then Spoint.Offset(, i).Value = myStr i = i + 1 End If Next End Sub
お礼
昨年はお世話になりました。今年もよろしくお願いいたします。 教えて頂いた通りやってみたのですがAH3から右に向かってアイウエオカキクケコと標示される形になっております。
補足
すみませんwatabe007さん。 このカタカナ記号を数字記号の1、2、3、4、5、6、7、8、9、0に変えたいんですがどこを変えればよろしいでしょうか?
- mt2015
- ベストアンサー率49% (258/524)
説明が解りづらいのですが、(1)は人なり他の処理が行うのですよね? マクロではなく、セル関数でやってみました。 添付の図でAI6:AR7を作業エリアとして使用しています。 まず、AI7:AR7にア~コまでの文字列を1つづつ入れます。 次にAI6に以下の式を入れ、AR6までコピーします。 =IF(COUNTIF($U$3:$AF$3,AI7)=0,MAX($AH6:AH6)+1,"") そして、AI3に以下の式を入れ、AR3までコピーします。 =IFERROR(HLOOKUP(COLUMN()-34,$AI$6:$AR$7,2,FALSE),"")
お礼
昨年はありがとうございました。今年もよろしくお願いいたします。
関連するQ&A
- Excel2007で質問です
U3~AF3のセルの1つずつにアイウエオカキクケコのいずれかがランダムに入ります。 ランダムに入ったそれらを利用してアイウエオカキクケコの記号から消して残った記号をセルAHから右に向かって各セルに1つずつ入れます。 先程の残った記号の入ったAHから右のセル群を今度はsheet1に行きましてA1から下に向かって入れたいです。 誰か教えて下さい。
- ベストアンサー
- Excel(エクセル)
- Excel2007で抜き取り?
ア、イ、ウ、エ、オ、カ、キ、ク、ケ、コの記号のいずれかがセルA3~J3の各セルにダブルことなく適当に入ってます。L3とM3に1~10までのどれかを入れて、 (1)L3に1が入ると、A3に入った記号がO3にコピーされ (2)M3に5が入ると、A3から5番目のE3に入った記号がP3にコピーされる という仕組みにしたいです。 今は例えで3行目を使いましたが、4行目、5行目.....とできるようにしたいです。 誰かよろしくお願いいたします。
- ベストアンサー
- Excel(エクセル)
- エクセル セルデーターの統合
エクセルのセル(行)にあるデーターを統合したいのですが・・・。 列も行もかなりあり、共通のデーターは何個かあります。下の例では、ア01とイ01です。 その他は、ア02とイ02という具合にセットになってます。 どちらかの行(ここでは1と3)にデーターをまとめる。 【例】 ***A列|B列|C列|D列|E列|F列| 1|ア01|イ01|ウ*|空白|エ*|空白| 2|ア01|イ01|空白|カ*|空白|キ*| 3|ア02|イ02|ク*|空白|ケ*|空白| 4|ア02|イ02|空白|コ*|空白|ナ*| 【完了後】 ***A列|B列|C列|D列|E列|F列| 1|ア01|イ01|ウ*|カ*|エ*|キ*| 3|ア02|イ02|ク*|コ*|ケ*|ナ*| このような、データーの簡単な結合方法は、ありませんか?
- ベストアンサー
- オフィス系ソフト
- たんぱく質の代謝の問題について
炭水化物はブドウ糖などの「ア」になり吸収され「イ」に運ばれ「ウ」として蓄えられる。一部のブドウ糖は血液中に入り「エ」などの組織に運ばれ、肝臓と同様にウに合成され、蓄えられる。このウはエを動かすときの「オ」供給に使われる。 ウは「カ」においてビルビン酸となり。その後「キ」を経て酸化され「ク」と水に分解される。 エで消費されたブドウ糖は「ケ」によって全身に補給される。血糖値が低下すると肝臓に蓄えられていた「ウ」が分解されて「コ」になり血液中に放出される。 の空欄を埋めろという問題です。 ア: イ:肝臓 ウ:グリコーゲン エ: オ: カ: キ: ク: ケ: コ: とまだ分らないところが沢山あります。 ビルビン酸が何なのかも分りません。 よろしくお願いします。
- ベストアンサー
- 生物学
- 3次関数y=x^3-2ax^2+a^2x (a>0)の0≦x≦1におけ
3次関数y=x^3-2ax^2+a^2x (a>0)の0≦x≦1における最大値を求めたい。 まず、yはx=(ア)のときに極大値(イ)をとり、x=(ウ)のとき極小値(エ)をとり、さらに(ア)以外にy=(イ)となるようなxの値はx=(オ)である。 そこで、求める最大値をaの関数と考えてM(a)で表すと次のようになる。 a≧(カ)のとき M(a)=(キ) (カ)>a≧(ク)のとき M(a)=(ケ) (ク)>a>0のとき M(a)=(コ) という問題なんですが、(ア)~(オ)までは分かったんですが、 場合わけする部分がどうすれば解答にたどり着くか分かりません。 分かる方解説よろしくお願いします。 解答 (ア)a/3(イ)(4a^3)/27(ウ)a(エ)0(オ)4a/3 (カ)3(キ)a^2-2a+1(ク)3/4(ケ)(4a^3)/27(コ)a^2-2a+1
- ベストアンサー
- 数学・算数
- この問題の回答お願いします。
数学のマークです。 四面体OABCにおいて、AO⊥BO、AO⊥CO、BO⊥CO、∠ABO=45° ∠CAO=60°、OB=2であるとき OA=ア CO=イ√ウ であり、四面体OABCの体積は エ√(オ)/カ △ABCの面積は キ√ク 頂点Oから△ABCに下ろした垂線の長さは ケ√(コサ)/シである。 ア= イ√ウ= エ√(オ)/カ= キ√(ク)= ケ√(コサ)/シ= という問題がよくわかりません。 どうか回答お願いします。
- 締切済み
- 数学・算数
お礼
できました!ありがとうございました。また、是非ともご協力お願いします。