こんにちは。 Excelシートで、セルの中の改行文字を取りたいのですがうまくできません。 Excelシートの全セルを選択し、置換機能でctrl+jを空白文字(スペースでは無く、何もない文字) に変換してからcsv形式に保存しても、そのファイルをテキストエディタで開くと改行が入ってしまいます。 Excelでの変換方法に原因があるのでしょうか? それか、フリーのエディタソフトを使って変換する方法があれば教えて下さい。 よろしくお願いいたします。
こんにちは。 1.VBAを使う 「Alt」+「F11」キーで「VBE」の画面を表示 「Alt」キーを押したまま「I」キー⇒「M」キーの順に押下して「標準モジュール」を挿入 白い画面に Sub test() Dim i As Long For i = 1 To Sheets.Count Range("A" & i).Value = Worksheets(i).Name Next i End Sub を貼り付け 再び「Alt」+「F11」で通常の画面に戻り シート名の一覧を作成したいシートで「Alt」+「F8」から 「マクロ」を表示させ「test」を実行 2.「4.0マクロ関数」を使う 上部メニューの「挿入」⇒「名前」⇒「定義」から 名前欄に任意の名前(仮に「シート一覧」)を付けます 参照範囲欄に =MID(GET.WORKBOOK(1),FIND("]",GET.WORKBOOK(1))+1
これは便利!さくっと取得できました。 ALT+F11を押下(VBAエディタが起動) CTRL+Gを押下(イミディエイトウインドウが起動) 「For Each i In ThisWorkbook.Sheets: debug.print i.name : next i」をタイプしてEnterを押下 シート名をコピー VBAエディタを閉じる http://ozakih2000.blog.so-net.ne.jp/2007-07-05 シート一覧表示までは、「シートの移動タブを右クリック」⇒「シートの選択」でシート名一覧がてくるんですが、「これをコピーでできれば!」というところで、結局1個ずつシート名を書いたりしてました。 まぁ、シート一覧を地道に書き写しても10分かかる作業でもないので、次回も同じことを行うのを書き写すより速くできるかわからないですが。←似たようなことはよくあります とりあえず、
Sub アクティブシートを印刷する() ActiveSheets.PrintOut '印刷する(1部) End Sub Sub 選択したシートを印刷する() 部数 = 1 '印刷部数を指定する Sheets("???").PrintOut Copies:=部数 '指定部数を印刷する End Sub Sub 選択した部分を印刷する() 部数 = 1 '印刷部数を指定する Range("A1:B4").Select '範囲を選択する Selection.PrintOut Copies:=部数 '指定部数を印刷する End Sub
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く