tom04 の回答履歴
![](https://gazo.okwave.jp/okwave/images/contents/av_nophoto_100_3.gif)
- Excelvba表に空白行があれば上に詰める重い
いつもお世話になっております。 列がD列からK列で、行が4行目から23行までの表があります。 その表で1行まるまる空白の時(4行目にには数式が入っていますがそれは除く) 上の行に詰めるようにしてあります。行はそのまま空白のまま残して、値のみ上に詰めるようにしています。 このような表が同じ列に4か所×3=12か所あるので、今はそれぞれ下のコードの行、列を変更して処理しています。 上の表と下のの表の間隔は、上が4~23行までで、下は30~49、と6行間隔です。結合セルも間にあるため5行空きがあります。 列と列の間隔は、左側から、D列~K列、続いて、N列~U列と続きます。2列空きがあります。 家で試した時は一応問題なく動いたのですが、 会社でした時フリーズしてしまい、うまくいきませんでした。 その後、家でしてもなぜかうまく動作しなくなりました。 12の表は多いのかと思い、1つで試してもだめになりました。 同じような作りの別のファイルは動いています。 念のため、新しいファイルにコピーし直してやりましたが、駄目でした。 コードもあまり良くないのかもしれません。 一応家ではVISTAの2007で試し、会社は7(32ビット)の2013です。 もう少し負担が少なくなるようなやり方があればと思っています。 もう少し、いいやり方があればお手数ですが、ご教授ください。 よろしくお願いいたします。 Sub 表の空白行は上に詰める() Dim i As Integer, x As Integer, y As Integer, CSUM As Integer Dim flag As Boolean Application.ScreenUpdating = False flag = 0 '1回だけの処理で使うフラグ For x = 22 To 4 Step -1 '23行→4行まで処理をします。 CSUM = 0 '列の文字数を数える変数CSUMを用意し、初期値0とします。 For y = 4 To 11 'D列→K列まで処理をします。 CSUM = CSUM + Len(Cells(x, y)) 'CSUMにセル(x,y)の文字数を足します。 Next '列処理繰り返し If CSUM = 0 Then Range(Cells(x + 1, 4), Cells(23, 11)).Copy '空白行の1行下から23行目までをコピー Cells(x, 4).PasteSpecial '空白行の1列目のセルを基点として貼り付け If flag = 0 Then '23行目の値クリア処理 1回だけの処理 Cells(23, 5) = 1 '23行目がすっからかんのときエラーになるので、暫定入力 Range(Cells(23, 4), Cells(23, 11)).SpecialCells(xlCellTypeConstants).ClearContents End If '1回だけの処理 ここまで flag = 1 '1回だけの処理させないためフラグ値変更 End If Application.CutCopyMode = False Next '行処理繰り返し End Sub
- ベストアンサー
- hinoki24
- Excel(エクセル)
- 回答数5
- Win8.1のペイントソフト、画像サイズの縮小
Windows8.1のペイントで困っていることがあります。 画面の大きさを縮小したいのですが、70%等、数字を入れても全然大きさが変わりません。 用紙を横にして、印刷イメージを見ると、ほとんど用紙いっぱいになるし、縦にすると、上半分になります。 印刷すると実際そうなります・・・。 何でこんな事になるんでしょうか?? 画像の大きさは同じはずだと思うのですが。 あと、XPの時と比べて使いづらい気がします。 これは単なる慣れの問題なんでしょうか?? どこがどう変わったのかよくわかりませんが。。。 とりあえずは、画面の縮小の仕方をおしえてください<(_ _)> アドオンは関係ないでしょうか? No Script と Adblock Plus を入れてます。 よろしくお願いします。
- 条件付き書式がうまくできません
よろしくお願いします エクセルバージョンは2013です 昼からずっと、条件付き書式をやっていて、これだけうまくできません 古いバージョンでのやり方は見つけたのですが、2013ではどうやったらいいのかさっぱり進みません やりたいことは C17がoutという文字列ならK17は赤で表示 C17がinという文字列ならK17は青で表示 これを条件付き書式でやるにはどうすればいいのでしょうか?
- ベストアンサー
- maamaa
- Excel(エクセル)
- 回答数7
- 断熱性の高いサッシは?
今、昔のアルミサッシを使っていて、下が不透明、上が透明のタイプです。 もちろん、ガラスは1枚なので、部屋が外の冷気で、常時冷されています。 調べたら、二重ガラス、ペアガラス、真空ガラス等、いろいろありましたが、どれが一番断熱性が高いのでしょうか? 今のサッシを取り外して、新しい物をそのまま入れこむことができればと考えていますが、外枠から変えなければいけないのでしょうか? 価格と断熱性能を加味して、コストパフォーマンスの高い物を選びたいです。 よろしくお願いします。
- ベストアンサー
- madvally88
- DIY(日曜大工)
- 回答数4
- エクセル 複数の条件を抽出
エクセルで複数の条件を抽出する方法について教えてください。 sheet2には以下の表があります。 A列 商品名1 B列 商品名2 C列 評価1 D列 評価2 sheet1には複数のデータがあり、そのデータを使って商品名と評価を出しています。 (商品名は手入力して、評価は関数を使って数値を出しています。) ここから、評価1がある値以上かつ評価2がある値以上の商品名1と商品名2をsheet3に抽出したいのです。(実際にやりたいのは、評価1が2%以上かつ評価2が0.9以上という条件です。) sheet3に出したいのは見やすいと思ったからで、どうしてもというわけではありません。 商品名が分かれているのはsheet2で作業がしやすいように分けています。必要であれば統合します。 評価1は書式設定で%表記にしています。 一応自分なりに調べてはみたものの、全くの初心者な為わかりませんでした。 初心者でもわかるように教えていただければありがたいです。
- ベストアンサー
- shoubushi
- Excel(エクセル)
- 回答数3
- Excel2013のVBA最終行取得結合表複数あり
いつもお世話になってます。表複数 Excel2013のVBAで質問です。 A1,A2セルは空欄です。そして、A3:A4は結合されています。その後、A5:A10、A11:A15・・・と結合セルが続いています。そして、A95:A100まで結合セルが続いているとして、A101は合計欄のような単体のセルになっています。 その下は、空白セルが10セル位続いており、またその下にも、上と同じような表があります。 結合セルには、何らかの値が入力されています。最終行のA101には入力されていません。 このようなシートの、上側の表の最終行にあたるA101を取得したいと思っているのですが、下の表の最終行は取得するのですが、上からいくと結合セルがあり思うように取得できないでいます。 何か方法があるでしょうか?
- ベストアンサー
- hinoki24
- Excel(エクセル)
- 回答数3
- EXCEL VBA Worksheet Chang
EXCELのシートが変更されたらWの列に更新Timeスタンプをセットします。 Worksheet_Changeイベントに以下のように配置して動作させています。 Private Sub Worksheet_Change(ByVal Target As Range) Cells(Target.Row, "W") = Now End Sub この場合、行の挿入、削除の場合、挿入前、削除後の行が更新されてしまいます。 行の挿入、削除の場合に上記コードを実行させないようにするにはどうすればよいでしょうか? よろしくお願いします。
- ベストアンサー
- k321201
- Excel(エクセル)
- 回答数2
- 出現回数
Excel2013で、1つのセルに3つの駅名があります。 これから同じ駅がそれぞれ何回出てくるかを知りたく思います。 例えば、“東京 大阪神戸”、“京都 大阪岡山”、“広島 東京京都”、“広島 東京京都”です。 ここで、スペースは表示の都合で入れています。続く場合は区切りは入っていません。また、出てくる駅名は有限で、何れも漢字2文字とします。 またどのセルも同じ書式です。 上の場合の答えは次の通りです。 東京:3 大阪:2 神戸:1 京都:3 岡山:1 広島:2 合計:12
- ベストアンサー
- aerio
- Excel(エクセル)
- 回答数5
- マクロを実行すると図形はロックされています
Windows8.1、 Excel2013でマクロを実行すると、グラフですが、図形はロックされていますと表示されマクロが動きません。以前のバージョンでは動きました。 With ActiveChart.ChartArea .Width = .Width * 0.26 この部分で縮小しようとすると動きません。 .Height = .Height * 0.3 .Left = 50 .Top = 50 End With 実際にマニュアルでグラフを作成し、新しいシートに移動したグラフをクリックしてドラッグにより縮小しようとしても小さくなりません。どうしたらよいでしょうかお教えください。
- 締切済み
- yasucosmos
- Excel(エクセル)
- 回答数1
- パソコンとの接続の仕方
リサイクルショップでEP804Aを購入したが、説明書もCD-ROMも 印刷に繫がりません。どのようにすればよいか教えて下さい ※OKWaveより補足:「EPSON社製品」についての質問です。
- 締切済み
- 0826y
- プリンター・スキャナー
- 回答数4
- 【エクセル】リスト作成について
現在、エクセルにてリストを作成しております。 お力をお借り出来ると幸甚です。 簡単に記載いたします。 【シート内容】 A列に他シートにて都道府県のリストを作成し、そこを見て、リストから都道府県名を選択するようにしております。 B列には例として、特定の数字データを入力します。(手入力) A列 B列 (表1) 東京 10 千葉 20 神奈川 30 東京 40 埼玉 50 東京 60 千葉 70 --------------------------- この下に、上記表の取りまとめの情報を載せたいと考えております。 例として、(列はどこでも構いません) (表2) A列 B列 東京 110 千葉 90 神奈川 30 埼玉 50 【お力をお借りしたい部分】 (表2)に取りまとめの情報を作成する際の方法です。 (表1)のA列に、リストから選択された各都道府県名は、特定ではなく、変わります。 その為、(表2)のA列に各都道府県名を固定で記載し、B列にsumif関数等が使えないと考えております。 ・(表2)A列に(表1)A列に表示されている一覧から、重複なく、もれなく一覧を表示させる方法はありますでしょうか?(出来ればピボットテーブル等を使用せずに関数で出来たら助かります。)
- ベストアンサー
- kidd1022
- Excel(エクセル)
- 回答数5
- 複数の宿泊日の時
いつもお世話になります。 WINDOWS7 EXCELL2010 です。 データーを元に分かり易くするために参照図の「空室状況」の画像のような表現を考えています。 現在はシート「予約一覧」のA列(チェックイン)に日付を入力し1日のみの宿泊は下記の数式で可能です。 ただ複数の宿泊の時のアイデァが分からず困りました。 この複数の宿泊を「空室状況」に対応するにはどうすればいいか御指導いただけませんでしょうか。 宜しくお願いいたします。 参考に 1 シート 予約一覧 A 4の行の青は =$A4=検索日 シート 検索日=見取り図F1 B 作業列1 F4 =A4&G4 作業列2 G4 =C4 2 シート 見取り図 A 条件付書式 =COUNTIFS(予約一覧の部屋番号,B5,予約一覧の宿泊日,検索日)>0 B 作業列3 I5 =F1&B5 C 顧客名 =IF(ISNA(VLOOKUP(I5,予約一覧!$F$4:$G$17,2,FALSE)),"",VLOOKUP(I5,予約一覧!$F$4:$G$17,2,FALSE))
- ベストアンサー
- dorasuke
- Excel(エクセル)
- 回答数3
- シート1の情報をシート2に移動させる
シート1 100社 .... A B C D 1 A社 100 東京 2 B社 50 大阪 3 C社 200 東京 4 D社 10 福岡 5 E社 300 東京 6 F社 150 大阪 シート2 100社のうちの50社 ...... A B C D 1 A社 佐藤社長 Aランク 2 C社 鈴木社長 Bランク 3 F社 山田社長 Aランク 簡単な例でご説明します。 上記のシート1は、すべての客先が入っています。 それに対し、シート2は重要客先だけに絞った(抽出した)別のデータです。 例えば100社あったら50社。 シート2はシート1にない情報も含まれているため、そのシート2だけにあるB列の山田社長、鈴木社長及びC列のAランク、Bランクなどの情報をシート1の、A、B、C、D社のD列、E列に追加で入力したいという考えです。 シート1とシート2がそれぞれ100社であれば、シート2のB列及びC列の情報をまとめてコピーペーストで移せるのですが、シート1とシート2の1行、2行、3行の行が異なる為、簡単にコピーペーストだけではできない状況です。。 このような場合、どのようにすれば簡単にシート2の情報をシート1に移せるか、教えて頂けますか。
- ベストアンサー
- ketual
- Excel(エクセル)
- 回答数5
- excellで出来ないでしょうか
私どもはある組織の宿日直を総員7名でやっております、宿直も日直も2名で出勤します。 人員の配置は毎月籤を引きながらやっておりますがどうしても毎月同じ人同士の組み合わせになることが多くあります、そこで何とかEXCELLを使い皆でランダムにやる方法はないかと考えております、私も考えてみたのですがなかなかよい方法(工夫)が出来ません何方かお知恵を拝借したいと思い質問を致します。 平日(P.M.5:30~次の日のA.M.8:30まで)の宿直と土・日・祝祭日の日直を(A.M.8:30~P.M.5:30)7名で行っております(年間365日休めません)、人員の配置方法としての禁止事項は以下の通りです。 1)宿直の次に日直は出来ません(連続での出勤になりますので)。 2)宿直が連続で出来ません(出来ないことはありませんが出来ればしない方がgood!)。 3)7名の人員を宿直と日直は常にランダムで行いたい、つまり毎回出来れば同じ組み合わせ でやりたくない。 4)年間で考えたいと思います。(月毎ですと月末と月初の組み合わせが上記の禁止事項になることがある) 以上の条件でEXCELLに拘りませんので方法がないものかと考えております、宜しくお願い致します。(人員はA・B・・・・F・Gで表現します)
- 締切済み
- kurige_22
- Excel(エクセル)
- 回答数10
- excellで出来ないでしょうか
私どもはある組織の宿日直を総員7名でやっております、宿直も日直も2名で出勤します。 人員の配置は毎月籤を引きながらやっておりますがどうしても毎月同じ人同士の組み合わせになることが多くあります、そこで何とかEXCELLを使い皆でランダムにやる方法はないかと考えております、私も考えてみたのですがなかなかよい方法(工夫)が出来ません何方かお知恵を拝借したいと思い質問を致します。 平日(P.M.5:30~次の日のA.M.8:30まで)の宿直と土・日・祝祭日の日直を(A.M.8:30~P.M.5:30)7名で行っております(年間365日休めません)、人員の配置方法としての禁止事項は以下の通りです。 1)宿直の次に日直は出来ません(連続での出勤になりますので)。 2)宿直が連続で出来ません(出来ないことはありませんが出来ればしない方がgood!)。 3)7名の人員を宿直と日直は常にランダムで行いたい、つまり毎回出来れば同じ組み合わせ でやりたくない。 4)年間で考えたいと思います。(月毎ですと月末と月初の組み合わせが上記の禁止事項になることがある) 以上の条件でEXCELLに拘りませんので方法がないものかと考えております、宜しくお願い致します。(人員はA・B・・・・F・Gで表現します)
- 締切済み
- kurige_22
- Excel(エクセル)
- 回答数10
- vba 住所で判断して担当支店に振り分ける マクロ
困っております。助けてください。。。 顧客一覧があります。 それぞれの町名で判断して、これぞれの顧客に担当支店を振り分けたいのですが、 if文で ○○町 だったら 01支店 else if ××町 だったら 02支店 というふうに、ひたすら書いていくしかないのでしょうか? 対象住所は一つの市の数あるので、膨大です。 郵便番号で範囲をきめて、ふりわけていくのが一番かと思っているのですが・・・。
- 締切済み
- somehow123
- Visual Basic
- 回答数5
- 教えて下さい!
パソコン初心者です。 A4サイズの用紙にA6サイズを4つ(異なるスライド)余白なしで印刷したいのですが、できません。画像のようになってしまいます。 わかる方、教えて頂けたら大変助かります。よろしくお願いいたします。 PowerPoint2010 プリンター brother DCP-J952N
- 締切済み
- nanana7878
- Windows 8
- 回答数3
- エクセル2010での重複データチェック
エクセル2010で作成したデータの重複データチェックをしたいです。 顧客コードと、接触日 の両方とも同じデータが入っていれば 最初に出てきた行に1回目 再度出てきたデータ行に重複と表示したいです。 シートの項目(見出し)は下記のようになっています。 A列:顧客コード B列:顧客名 C列:接触日 D列:面談要旨 F列:結果 皆様、年末のお忙しいところ申し訳ありませんが、ご教示ください。 上記説明では、わかりにくいかと思い、スクリーンショットも添付いたします。 よろしくお願いいたします。
- 締切済み
- mutans54031
- その他(ビジネス・キャリア)
- 回答数2
- ある項目の種別だけ抽出する方法
Excel2010です。 銀行明細書の項目毎の整理を行いたいのですが A列に日付、 B列に金額、 C列に電気代や水道代、ガス代といった項目の名称 が入っています。 C列から検索して、 電気代の行のみを全て抽出して 日付、金額をまとめるようなことをしたいのですが どうすれば良いですか? VBAが必要でしたら その方法を教えてください。
- 締切済み
- WAKIEU
- Excel(エクセル)
- 回答数5