コピー改ページExcel2007
Ｗｏｒｄ２００３までは、よっつのへんの中央にくろいてぃーじがたのものが出て、それをおすようにドラッグするとがぞうのしゅうへんをカットできたのですが、2007では、四隅に○いものしかでないので、がぞうぜんたいがしゅうしゅく、かくだいしてしまって、ふひつようなまわりをきりすてることができません。TextBoxのプロパティをみても”かいぎょう”というのがみつかりません。アクセスのTextBoxないでかいぎょうできるようにしたいかこログをさんこうにしてみましたがアクセスのテキストボックスでできません。 きっと（というよりかならずどこかにてぃーじがたの）マークをだすところがあるはずなのですが、分かりません。Ｗｏｒｄ2007にしゃしんのがぞうをとりこんだのですが、どういう風にトリミング（？）をしたらいいのか分かりません。Wordでの画像取り込み、へんしゅうについておしえてください。”あああ”のあとにエンターキーをおしてもなにも変わりません。 ２００７に詳しい方よろしくおねがいします。わたし（はこうこう2ねんせいのじょしです）だけかもしれませんけれど、２００３のほうがいろいろなきのうをよびだしやすかったけれど、２００７はうえのほうが幅広くあんないメニュー（？…なまえがわからないのでかってにそうよびます）が占めてしまっていて、わかりづらいです。どうすれば改行できますか？よろしくおねがいします。本当はもっともっとききたいことがあるのですが、いまはこれだけききたいとおもいます。
CA3A2
どのようにせつめいしていいかもわからないのでかんたんにしつもんさせていただきます。いかのさまなひょうがあるとします。$A1ぶぶんをかんすうにおきかえてのやり方もあるようでしたらごきょうじゅいただけるとさいわいです。フィルでのとうかんかくコピーエクセルしょしんしゃのわたしにお知恵を貸してください。 A B C 1 102 103 104 105 106 10これをC1、D1、E1にA1、A3、A5と1ぎょうずつあけたとうかんかくでC2、D2、E2にA2、A4、A6と1ぎょうずつあけた等間隔でねをかえしていきたいのですがフィルをつかってかのうでしょうか？ A B C D E1 10 A1 A3 A52 10 A2 A4 A63 104 105 106 10C1からのれつには、IFかんすうをしようしてA1～A300までのすうちで10以上なら○10以下ならブランクとしたいのですがC1=IF($A1>=1,"○","")とすうしきをいれてフィルでれつほうこうにひっぱるとD1=IF($A1>=1,"○","")となってしまうのでA1をA3におきかえる作業がでてしまってこまってます。
ユーザー思っボタン
同じようなかんきょうをつくりたいとおもっているのですが、なにかほうほうはありますか？いまのところ、マクロだけ作っているかんじです。ツールバーとおなじようにしんきのリボンをさくせいするというイメージをもっているのですが…イマイチ2007をりかいできていません。word2007にじさくのツールバーをさくせいしたいせんじつ2007をどうにゅうしました。2003では、「ユーザー設定」のダイアログボックスの「ツールバー」タブからオリジナルのツールバーをつくり、ボタンをうめこんでマクロをせっていしてつかうことができましたが、2007ではリボン表示に変更になってしまったのでさぎょうがはかどらないじょうたいです。
&Else&
シートをいったりきたりしているせいでしょうね？じぶんで、色々やってみたのですが、エラーばかりでぜんぜんできません。マクロじっこうご、画面がちかちかしないほうほうこんばんわ！VBAをじっこうすると、がめんがちかちかします。教えていただけませんか？（げんざいのＶＢＡ）(1)「Data!FB63376,FG63376,FI63376」を「ひろいだし!K4」にコピー＆ペーストちが入っているばあい、したのぎょうにはりつけ。シートをいったりきたりしなくてもいいＶＢＡをつくるには、どこをなおせばいいでしょうか。 Range("FO63367:FQ63372").Select Selection.Copy Sheets("拾い出し").Select If Range("P4").Value = "" Then Range("P4").Select Selection.PasteSpecial。Sub Macro1() Range("FB63376,FG63376,FI63376").Select Range("FI63376").Activate Selection.Copy Sheets("ひろいだし").Select If Range("K4").Value = "" Then Range("K4").Select Else Range("K" & Rows.Count).End(xlUp).Offset(1).Select End If ActiveSheet.Paste Sheets("Data").Select (2)「Data!FO63367:FQ63372」を「ひろいだし!O4」にねのみをコピー＆ペーストちがはいっているばあい、したのぎょうに貼付け。