- ベストアンサー
簡単な質問ですみませんが。。。
life660ftの回答
- life660ft
- ベストアンサー率14% (2/14)
１の方とほとんど同じですが。。 拝啓 貴社益々御盛栄のことと心よりお慶び申し上げます。 さて、弊社におきましては○○事業に関して、力を入れておりお陰さまで実績ベースで、前年度比○○％の売上高を増進させていただくことが出来ました。 この勢いは、・・・・・・・・ といった感じでいかがでしょうか。
関連するQ&A
- HPの作成について
色々なＨＰ作成のための会社をネット上で見ますが、どこの会社が良いのかわかりません。 自分で大まかなデザインは出来ています。 ただドメインをとり、CopyとPasteをするだけだと思いますがかなり面倒くさそうな感じがします。 どなたか、簡単に説明していただけますか。。。
- 締切済み
- その他（インターネット・Webサービス）
- Select Case の使い方について
エクセルのバージョンは2003です。 Worksheets("様式2")のセルをコピーしてWorkbooks("件数.xls").Worksheets("件数")のセルに数値のみを張り付ける作業を Select Caseを使って組んでいるのですが数が多くて打ち切れません。 WS2からコピーするセルは変わらずWB1へ貼り付けする場所は列がずれて行きます。 myNoは1～30までで、1の場合はC列に数値を貼り付けし、2の場合はD列に数値を貼り付けし、3の場合はE列に数値を貼り付けし・・・ といった具合に列をずらして貼り付けを行いたいのです。 よろしくお願いします。 Dim myNo As Integer Set WS2 = Worksheets("様式2") Set WB1 = Workbooks("件数.xls").Worksheets("件数") myNo = Workbooks("件数.xls").Worksheets("一覧").Range("V7").Value Select Case myNo Case Is = 1 'Worksheets("様式2")からWorkbooks("件数.xls").Worksheets("件数")へ数値のみコピー WS2.Range("T7").Copy WB1.Range("C4").PasteSpecial Paste:=xlPasteValues WS2.Range("T8").Copy WB1.Range("C7").PasteSpecial Paste:=xlPasteValues WS2.Range("T10").Copy WB1.Range("C13").PasteSpecial Paste:=xlPasteValues WS2.Range("T11").Copy WB1.Range("C16").PasteSpecial Paste:=xlPasteValues WS2.Range("T13").Copy WB1.Range("C22").PasteSpecial Paste:=xlPasteValues WS2.Range("T14").Copy WB1.Range("C25").PasteSpecial Paste:=xlPasteValues WS2.Range("T16").Copy WB1.Range("C31").PasteSpecial Paste:=xlPasteValues WS2.Range("T17").Copy WB1.Range("C34").PasteSpecial Paste:=xlPasteValues WS2.Range("T18").Copy WB1.Range("C37").PasteSpecial Paste:=xlPasteValues WS2.Range("T69").Copy WB1.Range("C5").PasteSpecial Paste:=xlPasteValues WS2.Range("T70").Copy WB1.Range("C8").PasteSpecial Paste:=xlPasteValues WS2.Range("T72").Copy WB1.Range("C14").PasteSpecial Paste:=xlPasteValues WS2.Range("T73").Copy WB1.Range("C17").PasteSpecial Paste:=xlPasteValues WS2.Range("T75").Copy WB1.Range("C23").PasteSpecial Paste:=xlPasteValues WS2.Range("T76").Copy WB1.Range("C26").PasteSpecial Paste:=xlPasteValues WS2.Range("T78").Copy WB1.Range("C32").PasteSpecial Paste:=xlPasteValues WS2.Range("T79").Copy WB1.Range("C35").PasteSpecial Paste:=xlPasteValues WS2.Range("T80").Copy WB1.Range("C38").PasteSpecial Paste:=xlPasteValues
- ベストアンサー
- オフィス系ソフト
- マクロについて教えてください。
最近、勉強し始めました。 名簿を作成しています。Sheet1のデータを2種類に分けてSheet2（県外）、Sheet3（県内）のあらかじめ作成している表に振り分けたいのです。 しかしながら、1名分のデータをコピーして張り付けることはしたのマクロで出来たのですが、2名分もこのようにするとなると手入力したほうが速いような気がしています。 なにかいい方法がありましたら教えてください。 Sub コピーして別のシートに貼り付ける1() Worksheets("Sheet1").Activate Range("B11").Copy ActiveSheet.Paste Destination:=Worksheets("Sheet2").Range("B10:E17") Range("C11").Copy ActiveSheet.Paste Destination:=Worksheets("Sheet2").Range("A18:E19") Range("D11").Copy ActiveSheet.Paste Destination:=Worksheets("Sheet2").Range("F10:K17") Range("E11").Copy ActiveSheet.Paste Destination:=Worksheets("Sheet2").Range("F18:K19") Range("F11").Copy ActiveSheet.Paste Destination:=Worksheets("Sheet2").Range("M10:S10") Range("G11").Copy ActiveSheet.Paste Destination:=Worksheets("Sheet2").Range("M11:S11") Range("H11").Copy ActiveSheet.Paste Destination:=Worksheets("Sheet2").Range("M12:S12") Range("I11").Copy ActiveSheet.Paste Destination:=Worksheets("Sheet2").Range("M13:S13") Range("J11").Copy ActiveSheet.Paste Destination:=Worksheets("Sheet2").Range("M14:S14") Range("K11").Copy ActiveSheet.Paste Destination:=Worksheets("Sheet2").Range("M15:S15") Range("L11").Copy ActiveSheet.Paste Destination:=Worksheets("Sheet2").Range("M16:S16") Range("M11").Copy ActiveSheet.Paste Destination:=Worksheets("Sheet2").Range("M17:S17") Range("N11").Copy ActiveSheet.Paste Destination:=Worksheets("Sheet2").Range("M18:S18") Range("O11").Copy ActiveSheet.Paste Destination:=Worksheets("Sheet2").Range("M19:S19") Range("P11").Copy ActiveSheet.Paste Destination:=Worksheets("Sheet2").Range("T10:T19") Range("Q11").Copy ActiveSheet.Paste Destination:=Worksheets("Sheet2").Range("U10:U19") Range("R11").Copy ActiveSheet.Paste Destination:=Worksheets("Sheet2").Range("V10:V19") Range("S11").Copy ActiveSheet.Paste Destination:=Worksheets("Sheet2").Range("W10:W19") Range("T11").Copy ActiveSheet.Paste Destination:=Worksheets("Sheet2").Range("X10:X19") Range("U11").Copy ActiveSheet.Paste Destination:=Worksheets("Sheet2").Range("Y10:Y19") Range("V11").Copy ActiveSheet.Paste Destination:=Worksheets("Sheet2").Range("Z10:Z19") Range("W11").Copy ActiveSheet.Paste Destination:=Worksheets("Sheet2").Range("AA10:AA19") Range("X11").Copy ActiveSheet.Paste Destination:=Worksheets("Sheet2").Range("AB10:AB19") Range("Y11").Copy ActiveSheet.Paste Destination:=Worksheets("Sheet2").Range("AC10:AG19") End Sub
- 締切済み
- その他([技術者向] コンピューター)
- ワードで作った判をイーメールに入れる方法
Office 2007のワードで作った判をcopy/pasteでイーメールの最後に入れたいのですが、copyしてもハイライトされず、イーメ－ルの中でpaste出来ません。上手く行く方法をご教授下さるようお願いします。
- ベストアンサー
- Windows Vista
- なぜ張り付けは、「セルを指定＋.Paste」ではだ
なぜ張り付けは、「セルを指定＋.Paste」ではだめなのでしょうか？ VBAを勉強しているのですが セルを指定＋メソッドで セルに対して動作ができると覚えていました。 例えば、 Range("A1").Copy もRange("A1")でセルを指定して、Copyメソッドを使っています。 しかし、張り付けに関しては、 Range("A1").Paste をすると、 「オブジェクトは、このプロパティまたはメソッドをサポートしていません。(Error 438)」 と言うエラーになってしまいます。 それに、 「 Range("A1")」を入力して、「.」を入力すると、ヒントが出ますが そこにCopyはあるけど、Pasteは出てきません。 Pasteは特別な扱いなのでしょうか？ そもそもPasteはメソッドではないのでしょうか？ ちなみに Sub test() Range("A1").Copy Range("A2").PasteSpecial End Sub なら問題なくできました。 どなたか Range("A1").Paste がエラーになる理由を教えてください。 ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- パソコンのキーボードキーの割り当て方法
Win７を使い始めました。以前はXpで、キーボードにはワンタッチのCut、Copy、Paste機能が あって、非常に便利でした。 Win７のパソコン本体を購入したのすが、そのPCに付属していたキーボードにはワンタッチのCut,Copy、Pasteキーがキーボードについてませんでしたので、Xpで使っていたキーボードを 接続して使ってます。 ここでは、Cut,Copy,Pasteキーは無効になっています。 有効にする方法を教えてください。
- 締切済み
- その他（ITシステム運用・管理）
- 助けてください!!ＶＢＡ初心者なんですが、複数範囲をコピーして指定列に貼り付けたいのですが
助けてください!!ＶＢＡ初心者なんですが、複数範囲をコピーして指定列に貼り付けたいのですが、エラーが出てしまいます。 説明が下手なので図のようなもので 下図1 ＡＢＣＤＥ １あいうえお ２あいうえお ３あいうえお ４あいうえお 下図2 ＡＢＣＤＥＦＧＨＩＪ １あ い う え お ２あ い う え お ３あ い う え お ４あ い う え お まずは下図1のように下図2の様に指定した列に貼りたいのですが。 Range("A1:E5").Copy Range("A1,C1,E1,H1").PasteSpecial Paste:=xlValues でエラーになり別々にと考えて Range("A1:A5,B1:B5,C1:C5,D1:D5,E1:E5,").Copy Range("A1,C1,E1,H1").PasteSpecial Paste:=xlValues でも無理でした…なにかいい方法があれば教えてください。 単純に Range("A1:A5").Copy Range("A1").PasteSpecial Paste:=xlValues Range("B1:B5").Copy Range("C1").PasteSpecial Paste:=xlValues Range("C1:C5").Copy Range("E1").PasteSpecial Paste:=xlValues Range("D1:D5").Copy Range("H1").PasteSpecial Paste:=xlValues Range("E1:E5").Copy Range("a1").PasteSpecial Paste:=xlValues とするしかないんでしょうか? なにかいい方法があればお教えください!!
- ベストアンサー
- Visual Basic
- ctrl+c(copy）を実行するbat構文
キーボードのカスタマイズボタンに、copy,paste,cut機能を割り当てたいのですが、割り当て方法が、exeファイル指定に限られています。 そこで、ｃｔｒｌ＋ｃ、ｖ、ｘの動作をさせるbatファイルを作りたいのですが、構文がわかりません。 batからexeへのコンパイル方法は分かります。 コマンドプロンプト内のcopy/paste方法はいろいろ載っているのですが、windows画面上の普通の、範囲指定してのcopy/paste/cutをしたいのです。 よろしくお願い致します。
- ベストアンサー
- その他(ソフトウェア)
- COPY-WORD 貼り付け-ワクどり？
WINDOWS XP 使用中、INTERNETに入り、気に入った文章を COPY → WORD 立ち上げ、→ PASTEをしますが、このとき、 左右が 全く入りきらないか、 上下左右に ワクドリがされて、綺麗に きちんと入りきる 場合が あります、特別なにもしていないのに なぜ、 このように ２通りの ばあいが あるのでしょうか？？ 教えてください。
- ベストアンサー
- Windows XP
- 著作権についての質問です。
著作権についての質問です。 当方が販売する商品についての商品紹介ビデをネットで流しています。 最近当方のビデオの内容をそっくり真似て販売している他社が１社います。チェックポイント、紹介内容、言い回し、全て当方のパクリと思います。私が新しいことをビデオで紹介するとその会社も次回作で同じ事を言ってきます。映像のアングルまで同じにしてきます。 当方の方が考えてやってますので当然その会社より前に当方が作成して流していますし、以前の当方の作品も所有しています。その他社は以前は当方のような内容では紹介しておらず、最近になって内容ががらりと変わり当方の内容にそっくりになりました。映像を見比べて観れば一目瞭然のパクリ方です。 この場合、当方はその会社へ著作権の侵害を申し出ることは出来るのでしょうか？ 警告が出来るのでしょうか？宜しくお願い致します。
- 締切済み
- 法務・知的財産・特許
お礼
ありがとうございました！ 勉強になりました：）