- 締切済み
Excel VB 書式設定
あるセルから別のセルに書式を一気に転記したいのですが、現状ではfontstyle、interiorcolorindex、columnwidth、rowheightなどをひとつひとつ転記しています。 これらをまとめて、ひとつのプロパティとして取得し、そのまま別のセルに設定できないのでしょうか?
- raly-raly
- お礼率39% (25/64)
- Visual Basic
- 回答数4
- ありがとう数2
- みんなの回答 (4)
- 専門家の回答
みんなの回答
- TAGOSAKU7
- ベストアンサー率65% (276/422)
どもども田吾作7です。 見てるかなー・・・見てねーだろうなー。 今7/9だもん。見てないよなー・・・ でも書いときます。 書式のコピーロジック Dim NowSelectObj As Object '現在選択されているものを記憶する Dim wkRangeA As Range 'コピー元 Dim wkRangeB As Range '貼り付け先 '現在選択されているものを記憶する On Error Resume Next Set NowSelectObj = Selection On Error GoTo 0 '書式のコピー元を設定 Set wkRangeA = Range("A1") 'Cells(1, 1)でもいい '書式の貼り付け先を設定 Set wkRangeB = Range("B1") 'Cells(1, 2)でもいい 'もし貼り付け先が複数存在する時は、RangeとUnionをヘルプで調べてください。 'コピーする wkRangeA.Copy '書式だけ貼り付ける(カーソルがwkRangeBに移動する) wkRangeB.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 'コピーモードを解除する Application.CutCopyMode = False 'カーソルが移動してしまうので、もとの位置に戻す If Not (NowSelectObj Is Nothing) Then NowSelectObj.Select End If 'それぞれ開放 Set wkRangeA = Nothing Set wkRangeB = Nothing Set NowSelectObj = Nothing ってな感じでしょうか? これはエクセルの書式のコピーをそのまま行っていますので、セルの移動が行われています。一応 NowSelectObjにて、カーソルを元の位置に戻していますが、画面のちらつきが発生する恐れがあります。そのときには プログラムの開始時にScreen.Updating = False プログラムの終了時にScreen.Updating = True を記述し、画面の更新を制御してやってください。 っていうか 見てるかなー・・・・ でわでわ
関連するQ&A
- エクセルの書式の設定
エクセルの書式の設定にはいろいろなパターンがありますが、ユーザー定義も含めて、いろいろな書式が設定してある複数のセルでもシートを全指定して一気にセルの書式設定で定めれば、もとの書式設定のデータは書き換え後は残っていないのでしょうか。残っている、いないにせよ、集計等の後のデータ処理に影響はないのでしょうか。
- 締切済み
- オフィス系ソフト
- エクセルの書式設定について
書式設定をしようとし、書式→セル、又は右クリックのセル書式設定を選ぶのですが、何も反応しません。どうしてでしょうか?同じファイルで別シートで行うと書式設定できるのですが、どうしたら普通に書式設定できるのでしょうか?どなたか教えてください。よろしくお願いします。
- 締切済み
- オフィス系ソフト
- エクセルで日付の書式設定について教えてください。
日付けのセルに2016/12/12と入力されたセルを、Dec.12 2016というように、月を省略形にする設定を教えて頂きたいのですが。 エクセルからワードに転記(リンク)するのですが、顧客指定の書式で月を省略形にする必要が有りますので。
- ベストアンサー
- Excel(エクセル)
- エクセル セルの書式設定で
御願いします。 エクセルのセル書式設定では様々な書式や罫線などが 設定出来ますが、デフォルトの設定を変えることは 出来ないのでしょうか。 例えばデフォルトでは縦位置が「下揃え」になっています。これを中央にするにはどうすればいいのでしょうか。 また全セルの書式を変更した後で、セルの結合を行うと 横位置は勝手に「中央揃え」になります。 このかなりお節介な設定を無くするには何か方法が 有るのでしょうか。 オプションやプロパティにもないし... 宜しく御願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルの書式設定について教えて下さい。
Office2000を使っています。エクセルの書式設定(文字のフォント・サイズや罫線、配置等)には ・ファイル全体の書式設定 書式→スタイル から設定する場合 ・セルの書式設定 書式→セル から設定する場合 がありますが、後者のセルの書式設定を解除する方法を教えて下さい。 例えば、「書式→スタイル」で「配置→横位置が標準」になっているとし、「書式→セル」でA1のセルのみ「配置→横位置→中央揃え」に設定した後で、「配置→横位置→標準」に設定を戻した場合、 A1のセルには、「配置→横位置が標準」が設定されたままになり、「書式→スタイル」で「配置」を変更してもA1以外の「配置」の設定は変更されても、A1のセルの「配置→横位置が標準」は変わりません。 個々に「書式→セル」からの設定変更はできるので支障は全くないですが、疑問に感じたので質問しました。分かる方がいたら教えて下さい。
- ベストアンサー
- オフィス系ソフト
- Excelの「セルの書式設定」について
Excelで 書式設定の「表示形式」→「会計」を設定した既存のページのセルには空白時に「-」の記号が表示されます。「セルの書式設定」ウィンドウの「サンプル」個所を見ると - の記号が表示されておりそれが原因とは理解できますが、同セルの書式を一旦消去して、 - の表示されていない「会計」を設定しても - が表示されてしまいます。別の書式設定してないセルに同書式を設定すると空白時には何も表示されません。どうしてでしょうか?
- ベストアンサー
- Windows Vista
- エクセルの書式設定
前任者が作った会計を管理するためのエクセル書類で、わからず困っています。 (セルA1)―(セルB1)の数値がゼロならば(セルC1)に「-」が表示される設定になっています。 それをそのまま1行選択してコピーし貼り付けるのですが(セルC2)の表示が「-」にならずに「0」となってしまいます。 セルC1とセルC2の違いをいろいろ探したところ、セルの書式設定のサンプルの欄が、C1は「-」になっていて、C2は「0」なってしまっています。 この書式設定のサンプルに表示されているものは、どこからきているのでしょうか? どうすればこの「サンプル欄」を変えることができますか? 説明が下手で申し訳ありません。 わかる方、教えてください。
- ベストアンサー
- オフィス系ソフト
- エクセルの書式設定の「#」
エクセル2002の書式設定についてですが、セルの書式設定の「表示形式」で「ユーザー定義」にします。そして種類のところには「#」と入れました。 セルに「999」と入力すると「999」と表示されました。 ところが「ユーザー定義」の種類のところには「#,」と入れました。 するとセルに「999」と入れても「1」と表示されます。 またセルに「9999」と入れたら「10」と表示されました。 これはどうしてでしょうか?
- ベストアンサー
- オフィス系ソフト
- Excelで書式設定をしています。
Excelで書式設定をしています。 郵便物の宛先で ~ 様 と書式を設定したいです。 セルの書式設定のユーザー定義でどのように設定したらいいでしょうか? 試したものは 0" 様" G/標準" 様" などですが上手くいきませんでした。 よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセルの書式設定
エクセルのセルの表示が#VALUE!になるのでたどっていったところ、あるセルの書式設定に問題があるようなのです。 そこで、書式を数値に直したいのですが、通常、「数値」の場合には、表示されないはずなのですが、今回、表示されるサンプルに、かつてユーザー定義で入れたと思われる"歳"が表示されたままで、どうにもならず、これが原因と考えられます。 なぜこのようなことが生じるのか、また、どうすれば解消できるのか、 ご存知の方、教えてください。
- 締切済み
- SE・インフラ・Webエンジニア
補足
もちろん知っていますし、参考になるかと思って既にやっています。 select-copy-paste以外の、直接的なやり方がないのか知りたかったのでこの質問をしました。 2件とも同じ回答(マクロの自動生成)が来るところをみると、もしかしてこれ以外に方法がない???