Excel VBA 質問スレ Part48

1 名前：デフォルトの名無しさん [2017/05/16(火) 08:24:45.78 ID:iIGA/64l0.net] !extend:checked:vvvvv:1000:512 スレ立ての際は一行目に !extend:checked:vvvvv:1000:512 と入れてスレ立てして下さい ExcelのVBAに関する質問スレです コード書き込みや作成依頼もOK ※前スレ Excel VBA 質問スレ Part47 [無断転載禁止]©2ch.net echo.2ch.net/test/read.cgi/tech/1489557874/ ※関連スレ VBAなんでも質問スレ Part2 echo.2ch.net/test/read.cgi/tech/1432173164/ Access VBA 質問スレ Part1 echo.2ch.net/test/read.cgi/tech/1328536426/ Excel総合相談所 125 echo.2ch.net/test/read.cgi/bsoft/1481369538/ VIPQ2_EXTDAT: checked:vvvvv:1000:512:----: EXT was configured 237 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 00:54:27.96 ID:UDUA6Pg7p.net] >>229 sqlって何する為のものか知ってる？ 238 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 01:14:28.72 ID:+tui60Va0.net] SQLはOracleに代表されるようなDBMSを制御するための言語　ExcelでもDMMSを相手にして使えるがそれはDBMSあってのこと 239 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 01:15:33.62 ID:+tui60Va0.net] ×DMMSを相手に ○DBMSを相手に 240 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 04:05:21.88 ID:VTDAVdX70.net] 別にADOは便利なツールとしても使えるだろ。 けど、俺もテキストエディタだったらもっと単純にゴリゴリしたの考えるな。 LeftとかMidとかRightとかInstrとかInstrRevとかを使ったようなの。 241 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 04:15:26.23 ID:VTDAVdX70.net] あっ、テキストエディタ作りたいんじゃ無くて、テキストからデータ取り出したいだけ? だったら、やっぱりMidとかInstrとか基本的な関数で十分な気がするね。 >>211 発売金額はテキストの中でどんな風に位置してるの? 例えば10行目の20文字目から10桁みたいな感じ? 242 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 04:18:03.03 ID:VTDAVdX70.net] >>211 あと、何でメモ帳使いたいのかな? 別にメモ帳上でいろいろ操作することも出来るけど、少しだけ高度になるんだよね。 243 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 08:42:10.69 ID:QSuakdFza.net] >>219 ありがとうございます！ リンク先に記載のコードを試してみたのですが、残念ながら「指定されたファイルを開くことができません」のエラーが出てしまいました。 普通にセルをクリックするとメールが立ち上がるのですが、vbaを使うと、このようになってしまいます… >>220 大変レベルが低い話なのですが、 滅多に触ることのない超初心者のため、作る労力とメンテナンスのことを考えて、できることは関数ですませ、vbaは最低限にしている次第です。 244 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 08:53:36.25 ID:MawhMErZ0.net] >>236 「ハイパーリンクをクリック」 逆に難易度が上がってるぞ 245 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 12:02:32.06 ID:KGZHRfFH0.net] >>236 >>219の方法でやるなら HYPERLINK関数の 第二引数を省略した形で Evaluate しないとだめよん よって ・元々の HYPERLINK関数で 第二引数を省略してしまう ・VBAで HYPERLINK関数の第二引数をカットしてからの Evaluate のどっちかにするしかない がんばってね 246 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 12:10:08.17 ID:slr5zzcza.net] >>238 第二引数を省略したら、無事にメール作成できました！ 今の自分のレベルでは、仕組みが理解できていませんが、本当に助かりました。 ありがとうございます！ >>237 こちらの方がレベルが高かったのですか… そういったことの判断すらできず、vbaでノーツメールを直接作るコードを調べてみて、複雑そうなので、諦めてしまっていました。 もう少し勉強しようと思います。 247 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 12:33:52.09 ID:6krMH9aUr.net] >>239 クリック等のイベントをトラップしようとすると、既定オブジェクトのモジュールやクラスモジュール等にコードを書いてハードコーディングしなきゃならなくやる イベントの発生タイミングを考えてエラー回避の制御なども追加しなきゃならない イベントはコードディングと保守の難易度を上げる、と認識すると良いよ メーラーアプリのオブジェクトインスタンスを作成して操作するやり方は一見複雑そうだけど、やってることはエクセルの既定オブジェクトの操作と一緒 基本的には標準モジュール一個でコードが収まるから楽だよ 248 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 16:27:17.14 ID:BhGEKkNfa.net] >>240 別にそんなにハードル上がってるわけじゃないでしょ。 こういう場合、自分はまずメールを作るプロシージャを作る。 それはメールに必要な宛先、タイトル、本文等の引数を元にしたプロシージャとなるだろう。 そして当然汎用的なものだから標準モジュールに書くことになるだろう。 後はそれをどのようによび出すかを考えれば良い。 B2からB30までのアドレスを元にメールを作るのだからメニュー(コマンドバー)から呼び出すとかシートに貼り付けたボタンから呼び出すとかが考えられる。 呼び出す処理ではB2からB30までのループ処理の中で標準モジュールに作ったメール作成プロシージャを呼び出すようにすれば良い。 尚、この場合ハイパーリンクはプログラムと関係が無い。 個別に開くために設定しても良いし、設定しなくても良い。 単純に空のメールを一度に複数開きたいだけならハイパーリンク使う方が簡単な気もするけど、そんな需要で完結するとは思えない。 だから自分だったら両方作って片方をコメントアウトしとくだろうな。 249 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 16:42:30.82 ID:yXnULsJhH.net] 俺語りうぜぇ 250 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 16:44:23.96 ID:9Akggys5x.net] >>242 お前の感想は もっと要らない 251 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 16:58:40.94 ID:yXnULsJhH.net] >>229 > >>211見てなんで使わないと思ったの？ なんでって普通使わないから。 252 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 17:43:48.64 ID:6krMH9aUr.net] >>241 メールアイテム作成が複雑そうと言ってるのは質問者なので、そこは間違えないでね 253 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 17:58:07.99 ID:yS9f0RVc0.net] VBAに滅多に触ることのない超初心者になに難しいこと語っちゃってんだよｗ 254 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 18:04:11.11 ID:yX9RoGiCa.net] データの取り出し方とか質問するならせめてデータ構造の例ぐらい出しておかないと返事のしようがないような 255 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 18:13:41.54 ID:DyEVqbiqd.net] テキストファイルをSQLで扱うときってどのドライバを使うもんなの？ 256 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 18:18:45.36 ID:yXnULsJhH.net] >>248 > テキストファイルをSQLで扱うときってどのドライバを使うもんなの？ だから、普通はしないってば。 相手がCSVならかろうじてする場合もあるかもレベル。 257 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 19:08:00.44 ID:BhGEKkNfa.net] いや、だから便利にADO使う場合もあるってば。 例えばUTF8の読み書きとか。 他にも 258 名前：色々利用できるものがある。 [] [ここ壊れてます] 259 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 19:19:07.99 ID:IjFnSfL20.net] >>250 色々って例えば何？ 260 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 19:35:14.21 ID:eYj1KCTuM.net] 曖昧だなぁ 261 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 20:12:54.49 ID:MawhMErZ0.net] テキストファイルにSQL使える事に驚き 262 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 21:35:50.77 ID:Prbt/S0pa.net] >>251 例えばネットからファイルをダウンロードする場合、普通はURLDownloadToFileを使うと思うが認証付きの場合はADOが使える場合がある。 263 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 22:27:40.96 ID:bN5MkpLw0.net] 名前の判別でRかLのはいったやつを分けるマクロが書きたいんですがRとLは,かスペースに挟まれてるか最後一文字です ただし最後一文字ならその前にスペースが入ってます こういう場合スマートな判別ってどうしますか？ 264 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 22:47:25.62 ID:o/KEVGaTr.net] >>255 正規表現で解決じゃね 265 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 23:08:23.52 ID:rwwycwh80.net] >>247 まぁそうだけど大体ログと言えば規則的に並んでいると推測できるよね 視野が狭い人多い そもそも>>211と>>216をよく読んで理解せずに発言してる人多過ぎ 266 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 23:14:32.15 ID:Priyoi2O0.net] 煽ってるわけじゃないが、>>211は全力で意味を理解しようと思って読んでも どういう状態を説明しているのか、よく分からなかった（特に後半） みんなスゴイね（まじで） 267 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 23:23:44.35 ID:rwwycwh80.net] >>255 >>212のように正規表現がいいけど 細かい話をするとスマートが何を指しているのか 早さとかコードの見た目とかね >>258 ド素人の言い回しって大体わかるじゃん？たまにぶっとんでるのいるけど だいたいこういうのは、CSVで出力されたPOSデータの計行のみ抽出したいってぱとぅーん だから>>214、もちろんその後でMIDとか使う必要はあると思う 268 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 23:24:53.01 ID:rwwycwh80.net] >>258 分かってない奴の事を分かっていないで理解しようとしないから タイヤブランコみたいなのが出来ちゃうんだよｗｗ 269 名前：デフォルトの名無しさん [2017/05/25(木) 23:29:21.59 ID:trQS6AD+0.net] >>259 正規表現は何がスマートなのか 早さ？がスマートな例は コードの見た目がスマートな例は たった3種類なんだから答えてあげれば？ 270 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 23:31:18.48 ID:rwwycwh80.net] >>261 そういうのいいからｗ仲良くやろうぜ 271 名前：デフォルトの名無しさん [2017/05/25(木) 23:33:20.64 ID:trQS6AD+0.net] >>262 お前がいじわるなつっこみするから俺もいじわるしただけだ 272 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 23:35:49.43 ID:MawhMErZ0.net] この件で言えばスマートなのはどう考えても正規表現だろう ifやmidで無理矢理解決するのは力技ではなく、単に勉強不足だ 273 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 23:36:09.55 ID:rwwycwh80.net] マにありがちな意地悪なｗ 突っ込まれたいとか>>263ホモ警報ｗ 274 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 23:37:26.93 ID:rwwycwh80.net] >>255は多分釣り 分かってて書いてる感 275 名前：デフォルトの名無しさん [2017/05/25(木) 23:40:28.47 ID:trQS6AD+0.net] >>265 あ？調子に乗りすぎだお前 276 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 23:43:35.70 ID:rwwycwh80.net] >>267 255の正規表現を誰かが書くと、とたんに俺が書いた正規表現の方がスマートだ合戦開始の流れだよなｗ 277 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 23:45:17.90 ID:o/KEVGaTr.net] midとかifだと、検索対象文字列のパターンが変更されたらいちいち検索処理の制御構造を変えなきゃならないかもしれない 正規表現だったら大抵RegExpオブジェクトのプロパティの設定値を変えるだけで修正が終わる 278 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 23:49:52.88 ID:2PvZEflm0.net] 俺なら正規表現とか難しいのわかんないからこれで済ませちゃうな スマートさのかけらもないけど Function isRL(str) As Boolean 　isRL = str Like "*[, ][RL][, ]*" Or str Like "* [RL]" End Function 279 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 23:53:17.40 ID:rwwycwh80.net] >>270 それだと ,R_ みたいなのも反応しちゃうような _はスペースね これも全角半角スペース区別とか不明だからまあ 280 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 23:57:37.38 ID:2PvZEflm0.net] >>271 日本語がどっち指してるかわからなかったからそれも含まれると解釈したんだけど それ入らないならOrいっこ増やすだけだし もちろんもっと複雑さが増してくれば正規表現調べようって気にもなってくるけどね 281 名前：デフォルトの名無しさん mailto:sage [2017/05/26(金) 00:01:53.74 ID:WxppAu020.net] >>272 >>263と同じで突っ込みたかっただけ、めんごめんごｗ あとLikeだと大文字小文字区別しないよね、だから RLもrlも混同してしまうマッチだけにｗｗｗ 282 名前：デフォルトの名無しさん mailto:sage [2017/05/26(金) 00:08:29.13 ID:JFu5myv50.net] >>273 おまえいいやつだな それでも突っ込むとOption Compare Text書いてなければ大文字小文字区別するよ 283 名前：デフォルトの名無しさん mailto:sage [2017/05/26(金) 00:09:45.41 ID:WxppAu020.net] >>274 勘違いしてたすまん、女だから許してｗ 284 名前：デフォルトの名無しさん mailto:sage [2017/05/26(金) 00:15:45.66 ID:Q8wFVHRlr.net] 女だから許してで草 今度から俺も使おうw 285 名前：デフォルトの名無しさん mailto:sage [2017/05/26(金) 00:16:58.01 ID:WxppAu020.net] >>276 だってせっかくこれ言いたかったら間違えたのに 誰も突っ込んでくれないからさ >RLもrlも混同してしまうマッチだけにｗｗｗ 286 名前：デフォルトの名無しさん mailto:sage [2017/05/26(金) 00:24:41.93 ID:JFu5myv50.net] Option Compare Gender 287 名前：デフォルトの名無しさん mailto:sage [2017/05/26(金) 00:48:48.42 ID:Q8wFVHRlr.net] 混同でマッチで喜ぶとかババァで草 288 名前：デフォルトの名無しさん mailto:sage [2017/05/26(金) 06:10:08.78 ID:7RhNv1Zw0.net] >>257 そんなのただの推測に過ぎないだろ 289 名前：デフォルトの名無しさん mailto:sage [2017/05/26(金) 08:11:41.20 ID:Y2pnKR05a.net] >>257 そりゃそうだが、たまに意味わからん形式のログあったりするし 説明のしやすさに直結するだろ 290 名前：255 mailto:sage [2017/05/26(金) 08:38:47.74 ID:iQOaaYC+M.net] いろいろな意見ありがとうございます 釣りではないですが正規表現で良さそうとは感じていました ただ正規表現の書き方がわからなかったのと本当に正規表現が一番適した書き方かわからないのでああいう聞き方になりました なんか混乱させてしまったようですみません 291 名前：デフォルトの名無しさん mailto:sage [2017/05/26(金) 09:24:25.07 ID:HjxgyacU0.net] すまん俺も女だわ 髭そって会社いくか・・ 292 名前：デフォルトの名無しさん mailto:sage [2017/05/26(金) 09:50:48.59 ID:Vk+zDyie0.net] 正規表現が良いとは限らんよ。 構造を元にした固定の場所の方が良い場合もある。 だからデータの中から取り出したい値がどの様に配置されてるかが重要。 質問する時に出来ればそれを示して欲しかったね。 293 名前：デフォルトの名無しさん mailto:sage [2017/05/26(金) 09:52:42.09 ID:Vk+zDyie0.net] >>282 ごめん。 >>255で書いてあったか。 正規表現だね。 294 名前：デフォルトの名無しさん [2017/05/26(金) 10:23:01.77 ID:4SMbnGa40.net] 初心者です。 ユーザーフォームを最近覚えて作成中です。 中身はとりあえずメッセージBOXで工事中にしてユーザーフォームを凝ってみようと思うんですけど いい見本とかありませんか？ アプリっぽく作ってシートへのハイパーリンクで満足しようかと思います。 295 名前：デフォルトの名無しさん mailto:sage [2017/05/26(金) 11:05:39.54 ID:FvwfjnU+H.net] >>250 > 例えばUTF8の読み書きとか。 それは、ADODB.Streamを使うということであって、SQL（クエリ）を使うということじゃないよね。 故意になのか無意識なのかしらないけど、それを混同させてどうしたいのか。 296 名前：デフォルトの名無しさん mailto:sage [2017/05/26(金) 19:27:53.93 ID:HjxgyacU0.net] >>286 イマイチ何がしたいかわからんが、 よく使われるもの、googleかamazon辺りを参考にしてみては 297 名前：デフォルトの名無しさん mailto:sage [2017/05/26(金) 19:40:01.56 ID:KALLaxQr0.net] 昨日正規表現で質問したものです。 リファレンスブックを読みながら正規表現で[,\s]R[,\s$]ってな感じで検索して マッチした数値＞０で� 298 名前：ｪ別ってプログラムを組んだのですが、一つ問題が… 取得した文字列の最後が,Rとなっていたときに反応しないです… 正規表現としてはこれであっていると思うのですが何か勘違いしてるんでしょうか？ [] [ここ壊れてます] 299 名前：デフォルトの名無しさん mailto:sage [2017/05/26(金) 20:03:21.45 ID:HjxgyacU0.net] >>289 こうだとうまくいく [,\s](R[,\s]|R$) []内に$はダメなんかね 300 名前：デフォルトの名無しさん mailto:sage [2017/05/26(金) 20:07:54.29 ID:I1+YwiguM.net] >>289 文字列の最後としての $ は文字じゃないから [ ] の中には入れられない （入れると文字としての $ と見なされると思う） > 名前の判別でRかLのはいったやつを分けるマクロが書きたいんですがRとLは,かスペースに挟まれてるか最後一文字です これちょっと曖昧 ",R," とか " R " はいいとして " R," とか ",R " もいいのか？ とりあえずいいとしてスマートかどうかを問わなきゃ "(?:[\s,][LR][\s,].*|\s[LR])$" 辺りでどうか 301 名前：デフォルトの名無しさん mailto:sage [2017/05/26(金) 20:08:59.71 ID:WxppAu020.net] >>289 勘違いしてます ([,\s][R][,\s]?$) あとそれだと、,R,だけじゃなくて,R_みたいなのも反応するけどいいの？ って聞いたんだけどお前全然人のレス読んでないのなｗ 302 名前：デフォルトの名無しさん mailto:sage [2017/05/26(金) 20:19:12.02 ID:WxppAu020.net] 質問者　>>255　(ﾄﾞｺｸﾞﾛ MM3f-fCG8)　ID:iQOaaYC+M 回答者　>>291　(ﾄﾞｺｸﾞﾛ MM3f-ijLw)　　ID:I1+YwiguM やはりお姉さんの言った通り（>>266）釣りだった感 303 名前：デフォルトの名無しさん mailto:sage [2017/05/26(金) 23:27:30.93 ID:KALLaxQr0.net] 回答ありがとうございます []内に$は受け付けないんですね… ,R_は信じがたいことにそう入力されてるデータを見つけてしまったので分別に必要です。 なんか荒れに荒れてる感じですいません… とりあえず私は質問しかしてません 304 名前：デフォルトの名無しさん mailto:sage [2017/05/26(金) 23:32:22.16 ID:HjxgyacU0.net] 荒れてないから大丈夫 ただそろそろスレから退散した方が、不愉快な思いをしなくて済むとは思う 305 名前：デフォルトの名無しさん mailto:sage [2017/05/27(土) 01:01:00.58 ID:acGsd7ij0.net] >>294 もう解決したんでしょ？バイバイ 306 名前：デフォルトの名無しさん [2017/05/27(土) 01:04:32.39 ID:SLDKDwXi0.net] 嘘つきは泥棒の始まり 307 名前：デフォルトの名無しさん mailto:sage [2017/05/27(土) 01:37:01.15 ID:P2SJDJfj0.net] ほらねｗ 308 名前：デフォルトの名無しさん mailto:sage [2017/05/27(土) 11:48:01.37 ID:j+tL9L540.net] >>287 ああ、すまん。 俺は>>233でADOの観点で絡んでた。 確かに元々の話は何故SQLって話だね。 309 名前：デフォルトの名無しさん mailto:sage [2017/05/27(土) 16:06:04.75 ID:acGsd7ij0.net] では次の方どうぞ 310 名前：デフォルトの名無しさん mailto:sage [2017/05/27(土) 21:40:12.40 ID:BMnR9+ov0.net] >>253 使えるってだけだよ。 Schema.iniを使わないと、 勝手に型を決めやがるから、物凄く使い勝手が悪い。 311 名前：デフォルトの名無しさん mailto:sage [2017/05/27(土) 22:24:03.65 ID:vVj1nMv00.net] マの特技：あらさがし 312 名前：デフォルトの名無しさん mailto:sage [2017/05/27(土) 22:53:30.64 ID:P2SJDJfj0.net] 当たり前だ その技術がなければバグだらけのコードになる 313 名前：デフォルトの名無しさん [2017/05/27(土) 23:19:58.15 ID:wHxGIeSt0.net] だがならない 314 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 06:22:57.97 ID:KA+g5PFR0.net] $$$4.3$$$ "V"="1.3335412","0","1","3Q", 315 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 19:34:45.91 ID:Q1hkb32K0.net] マクロ初心者ですが質問させてください。 Sheet1のB1-B16000の文字列を同じファイル内の新規シートに 699列毎コピーしたいです。 ググって下記まで作ったのですがエラーが出ます いかんせん知識が無いため、何が間違っているのか分からないです。 どこを修正すればいいのかご教示いただけますでしょうか。 Sub マクロの記録改() 　 Dim n As Long '変数の定義 　 For n = 1 To 15206 Step 699 　 　 Sheets("Sheet1").Select '元シートの「Sheet1]を選択 　 　 Application.Goto Reference:="R" & n & ":R" & n + 699 　 　 Selection.Copy 'コピー 　 　 Sheets.Add 'シートを追加 　 　 ActiveSheet.Paste '貼り付け 　 Next n 　 Application.CutCopyMode = False 'コピーの解除 End Sub 316 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 19:48:29.74 ID:aGWTIe1b0.net] >>306 とりあえず走らせたけどエラーでなかったよ どこで出るの？ そもそも何をしたいの？ 元々あるのはsheet1だけとして sheet2のA1にB1-B699貼り付け sheet3のA1にB700-B1399貼り付け ってこと？ 317 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 19:59:34.93 ID:CxTrZaFuM.net] >>307 699毎なのでB700-B1398じゃね？ 318 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 20:27:18.52 ID:Q1hkb32K0.net] 失礼しました 説明が間違ってました。 エラーではなくて、A行もコピーしてしまうのでB行をA行にコピーしたいです。 まさに、>>307-308さんの言ってることをやりたい形です！！ ちなみに別bookにコピーする場合は、 どういった記述にすれば良いのでしょうか？ 319 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 20:40:52.02 ID:2e2e3QA1d.net] >>309 A列に貼るようにするなら "R" & n & "C2:R" & n + 699 & "C2" に変えるだけかな 320 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 20:52:28.37 ID:aGWTIe1b0.net] >>309 こんな感じかねぇ www.dotup.org/uploda/www.dotup.org1264912.zip.html Sub foo() 'setで参照を作成しておく Set コピー元シート = ThisWorkbook.Sheets("main") Set コピー先ブック = Workbooks.Open("./copy.xlsx") '何行ごとか 処理行数 = 699 'ループ For i = 1 To 21 Set コピー先シート = コピー先ブック.Sheets.Add(After:=Sheets(Sheets.Count)) 'コピーでもいいけど、あえてvalueで処理。どっちでもいい For k = 1 To 処理行数 コピー先シート.Cells(k, 1).Value = コピー元シート.Cells(k + (i - 1) * 699, 2).Value Next Next End Sub 321 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 20:53:24.05 ID:aGWTIe1b0.net] そういや昔はsetがさっぱり意味不明だったな 今は普通に使えるけど、なんだったんだろう 322 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 21:01:49.00 ID:dfm78vLC0.net] >>312 ま、やらしぃ 323 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 21:12:47.40 ID:aGWTIe1b0.net] >>313 sexじゃないよ＞＜ 324 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 21:15:07.23 ID:CxTrZaFuM.net] >>314 今は普通に使えるsexとか 325 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 22:00:26.21 ID:YdL4iPz30.net] >>311 だからfooを使うんじゃねえｈｇ 326 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 22:02:15.89 ID:aGWTIe1b0.net] >>316 理由教えてくれよ 理由がなければ使い続けるぞ。名前考えるの一番めんどくさいからな 327 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 22:15:25.36 ID:MyydkzNO0.net] 毛を吹き飛ばされるかんじがするんじゃないの？ 328 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 22:23:14.52 ID:EJnEHaIs0.net] 俺ルールに違反してんだろ？スルーしろよ 329 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 22:31:37.50 ID:nT+AAD4u0.net] 俺ルールかっけー！ 330 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 22:34:37.05 ID:YdL4iPz30.net] >>317 >名前考えるの一番めんどくさいからな 代わりにわたしが考えたよ hogeでよろ これでもう考える必要ないよ >>318 そうです >>319 生理的に無理 331 名前：デフォルトの名無しさん [2017/05/29(月) 22:38:31.20 ID:A34reMmc0.net] ピリピリしてるハゲってなんていうか、微笑ましいよな ハゲ好きだわーオレ、なりたくねーけど 332 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 22:56:21.54 ID:aGWTIe1b0.net] >>321 hogeがfooにまさるメリットとは？ 先にfooのメリットを書くと、 ・文字数が少ない です 333 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 23:01:15.36 ID:YdL4iPz30.net] >>323 じゃあ　f　だけにして ・文字数が少ないよ 334 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 23:04:09.54 ID:aGWTIe1b0.net] >>324 fooは慣例の単語 それを不必要に削ると無駄な間違いが増える 揚げ足取りしか出来ないなら使い続けるね 335 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 23:05:06.76 ID:73+YE/SF0.net] そもそもhogeとfooが何なのか分から� 336 名前：�。 C言語のスタジオえっちみたいなものですか? [] [ここ壊れてます] 337 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 23:06:16.47 ID:YdL4iPz30.net] >>325 Sub foo() としか使ってないのに、なんの間違いが増えるの？

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef