■ このスレッドは過去ログ倉庫に格納されています
Excel VBA 質問スレ Part58
- 1 ：デフォルトの名無しさん：2018/11/19(月) 06:47:24.99 ID:Qq88xGOU.net
- ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK
※前スレ
Excel VBA 質問スレ Part57
https://mevius.5ch.net/test/read.cgi/tech/1536583359/
- 2 ：デフォルトの名無しさん：2018/11/19(月) 09:52:02.94 ID:5k0nvJVR.net
- >>1乙
- 3 ：デフォルトの名無しさん：2018/11/20(火) 22:35:35.36 ID:HCcZ0ovU.net
- Dim Otimpo As Variant
Set Otimpo = New Penis
Otimpo.Insert Woman.Vagina
- 4 ：デフォルトの名無しさん：2018/11/20(火) 22:46:03.40 ID:vvK8gepa.net
- 俺だったらInsertToメソッドにする
- 5 ：デフォルトの名無しさん：2018/11/22(木) 09:37:41.30 ID:ZIGZU+Kk.net
- >>1
=LEFT("おつかれあかたあまや",4)
- 6 ：デフォルトの名無しさん：2018/11/22(木) 09:49:09.43 ID:hMczrcoU.net
- 昭和の臭いプンプン
- 7 ：デフォルトの名無しさん：2018/11/22(木) 11:44:50.42 ID:DvNJLexV.net
- 昭和なら $ 付けるだろ
- 8 ：デフォルトの名無しさん：2018/11/23(金) 09:01:48.81 ID:pYaMx0la.net
- ややExcelと離れるのですが、他に適切な場所が見当たらないのでこちらで質問。
WordやPowerpointに、埋め込み、またはリンクで表示されているExcelの表やグラフについて、
1:ファイル名(フルパス、ないし相対パス)
2:表示されているシート名(またはシート番号)
3:表示されている表の範囲(A1からB20まで、みたいな)
を、WordやPowerpointで動かすVBAから列挙する、みたいなのを作りたいと考えてます。
(1)についてはある程度(たまに取れないのがある)なんとかなるのですが、
(2)と(3)の手段が分からないでいます。
この辺を得る手段について、ご存じの方いましたら教えてください。
- 9 ：デフォルトの名無しさん：2018/11/23(金) 10:13:26.49 ID:NlhnMW/X.net
- 表示されているシート名 って要は現在アクティブなシートってことでしょ？
ActiveSheet.Nameで取れるんじゃ？
- 10 ：デフォルトの名無しさん：2018/11/23(金) 11:15:52.26 ID:OdmoxaxG.net
- >>8
やったことがないから保証できないが、
OLEObject.ObjectプロパティからOLEオブジェクトのコントロールを取得できるはず
ここからExcelのオブジェクトモデル経由でシート名等は取れるかも
- 11 ：8：2018/11/23(金) 11:27:11.08 ID:pYaMx0la.net
- >>9,10
そういえば、シート名はそれで取れますね。うっかりしてました。
ただ、Powerpointで表示されている、シート上の範囲( >>8 の(3) )がマジわからん。
ActiveSheetまでは到達出来るので、シート全体のデータは取れるのだけども、
表示範囲となるとどこを見れば良いのやら……
- 12 ：デフォルトの名無しさん：2018/11/23(金) 16:52:45.93 ID:NlhnMW/X.net
- 表示範囲っての意味がよく判らない。使用されている範囲ならUsedRangeプロパティだけどそうじゃない？
- 13 ：デフォルトの名無しさん：2018/11/23(金) 18:46:47.55 ID:A5v+c7Q3.net
- QueryTables.addを利用して取り込んだテキストデータを
TextFileFixedColumnWidths = array(5,4,2)
とVBソースに記述して5、4、2バイト目で区切ってエクセルに貼り付けしているのですが、
このarrayのカッコ内の値5,4,2の部分を1つのセル内に定義しておき、そこから取得して処理する方法を教えてください。(セル値を変えるだけで区切りバイトを変えられるようにしたいです)
セル内の定義は下記のような感じの形式で実現できたらいいなと思っています。
5,4,2
または
"5","4","2"
など
よろしくお願いします。
- 14 ：デフォルトの名無しさん：2018/11/23(金) 18:47:07.61 ID:pYaMx0la.net
- >>12
UsedRangeは、まさに「Excel上で利用されている範囲」になるので、ちょっと違う。
探しているのは、(WordとかPowerpointとか) 「被貼付側から見えている範囲」。
コピペを行うときにExcel上で範囲指定してる、まさにその範囲の情報が欲しいのです。
『広い範囲が使われているシート(埋め込みオブジェクト)の一部分だけが表示されている時、
その表示部分を特定する』がやりたいの。
- 15 ：デフォルトの名無しさん：2018/11/23(金) 20:29:14.68 ID:SJrbhhQk.net
- >>13
3つパラメータがあるならそもそも3つのセルで管理すればいいんじゃないかと思うが、区切る回数も動的にしたいのかな？
パラメーター記述用のセルに5,4,2と入力しておいて、コード内でSplit関数を使いそのセルの値をカンマ区切りで配列化するのが普通かな
そうやって得たString配列の要素全てをCIntで型変換してInteger配列に入れ直せば、TextFileFixedColumnWidthsプロパティに代入できる
- 16 ：デフォルトの名無しさん：2018/11/23(金) 20:45:52.52 ID:A5v+c7Q3.net
- >>15
区切る回数も動的にしたいんです。
さっそく試してみます。ありがとうございます。
- 17 ：デフォルトの名無しさん：2018/11/24(土) 07:26:12.22 ID:XV/jbN3E.net
- >>15
無事にやりたいことが実現できました。ありがとうございました。勉強になりました。
- 18 ：デフォルトの名無しさん：2018/11/26(月) 18:21:38.61 ID:jE4mmGCd.net
- ユーザーフォームのボタンでExcel以外のファイルを開くのにShell.Execute使ったんだけど、ボタンを押しても何も反応しない
CreateObject("Shell.Application").ShellExecute "c:\test\test.pdf"
- 19 ：デフォルトの名無しさん：2018/11/26(月) 19:08:14.69 ID:sSO4v+r+.net
- >>18
試してみたけど、そのコードで問題なく動くなあ
- 20 ：デフォルトの名無しさん：2018/11/26(月) 19:30:02.47 ID:VtKrTehC.net
- >>18
デザインモードがオンになってるとかじゃね
- 21 ：デフォルトの名無しさん：2018/11/26(月) 20:06:27.80 ID:c8QT25Tm.net
- 検証ありがとう！
ちな標準モジュールに書くと普通に動く。
どうもユーザーフォームに書くとダメみたい
- 22 ：デフォルトの名無しさん：2018/11/26(月) 20:09:03.00 ID:c8QT25Tm.net
- >>21
違った
ユーザーフォームじゃなくてユーザーフォーム内のボタンね
- 23 ：デフォルトの名無しさん：2018/11/26(月) 22:08:01.92 ID:sSO4v+r+.net
- ユーザーフォーム作ってボタン配置してボタンのOnClickにコード書いたけど問題ない
- 24 ：デフォルトの名無しさん：2018/11/26(月) 22:25:28.75 ID:c8QT25Tm.net
- みんなマジか〜
環境は2010、2007ともにダメだった。
明日2016で試してみる。
ちなみにパスがフォルダ指定までなら動く。
もう意味わからん
- 25 ：デフォルトの名無しさん：2018/11/26(月) 22:57:14.49 ID:sSO4v+r+.net
- >>24
もしかしてpdfをダブルクリックした時に「このファイルを開くアプリ」の選択メニューが出てない？
- 26 ：デフォルトの名無しさん：2018/11/27(火) 08:58:52.14 ID:TmwvOLJp.net
- >>25
すまぬすまぬ。実は開かないのは.xlsxや.xls。
さっきやったら.txtや.bmpに書き換えるとちゃんと動いた。関連付けがおかしいかと思ったけどファイルダブルクリックでexcelファイルは開く。
- 27 ：デフォルトの名無しさん：2018/11/27(火) 09:23:34.69 ID:OWqQZ565.net
- さすがにExcelはOpen関数使えよ。。。
- 28 ：デフォルトの名無しさん：2018/11/27(火) 11:44:24.61 ID:Y7caogE6.net
- >>27
やっぱりそうですよね、、
ありがとうこざいました！
- 29 ：デフォルトの名無しさん：2018/11/27(火) 21:03:19.26 ID:JHhXTC3j.net
- >>26
VISTA３２ビットのEXCEL2007で再現した
ちなみにブレークポイントはってステップインさせたらちゃんと動いた
- 30 ：デフォルトの名無しさん：2018/11/28(水) 21:03:32.22 ID:btdWGy6U.net
- 切り取り・コピーしようとしたら「クリップボードを開くことが」と表示されました 前までは正常に出来てたのに急にあんなになるなんて
どうしたらなおるんですか
原因不明の謎の症状
- 31 ：30：2018/11/28(水) 21:11:36.27 ID:btdWGy6U.net
- >>30のところ、再起動したら直りました
自己解決
- 32 ：デフォルトの名無しさん：2018/11/28(水) 21:55:41.99 ID:6iHSQiFE.net
- WorksheetFunctionを使うと遅くなると聞きました。セルで計算して取得したほうがいいですか？
- 33 ：デフォルトの名無しさん：2018/11/28(水) 22:15:02.98 ID:T0n8cI1t.net
- >>32
遅いと言っても、よほど大量のデータを処理しない限り大差ないから気にしなくていい
- 34 ：デフォルトの名無しさん：2018/11/28(水) 23:27:06.65 ID:6iHSQiFE.net
- >>33
ありがとうございます
- 35 ：デフォルトの名無しさん：2018/11/30(金) 08:07:23.94 ID:yuW+a+er.net
- workbook.Aのマクロから、workbook.Bのマクロパスワードを解除できますか？
*パスワードは分かっています
**windows10 / excel 2016
同じパスワードをかけた大量のファイルのマクロパスワード解除が必要になった為
- 36 ：デフォルトの名無しさん：2018/11/30(金) 08:09:10.42 ID:cHj05URw.net
- できるかと言えばできる。
- 37 ：デフォルトの名無しさん：2018/11/30(金) 08:53:39.83 ID:yuW+a+er.net
- >>36
ありがとうございます。
VBAでsendkeyでパスワード入れたいのですが、プロジェクトエクスプローラーのウィンドウで、目的のworkbook.Bを選択してパスワードウィンドウを開く事がうまくできないところです。
- 38 ：デフォルトの名無しさん：2018/11/30(金) 09:06:54.20 ID:cHj05URw.net
- >>37
いや、Sendkeysは絶対使っちゃいかんものNo.1だろ。
制御出来ないからな。
わかってて一過性のプログラムで使う以外に使うことは無い。
- 39 ：デフォルトの名無しさん：2018/11/30(金) 11:07:00.94 ID:yuW+a+er.net
- >>38
ご忠告ありがとうございます。
- 40 ：デフォルトの名無しさん：2018/11/30(金) 12:03:29.38 ID:LyLvfax5.net
- >>35
MSDNライブラリでWorkbookオブジェクトのOpenメソッドの説明を詳しく読めば解決
- 41 ：デフォルトの名無しさん：2018/11/30(金) 18:19:35.02 ID:RELaXAo9.net
- >>40
マクロのパスワード解除ってワークブックオープン関係なくね。
- 42 ：デフォルトの名無しさん：2018/11/30(金) 18:57:50.86 ID:cHj05URw.net
- そもそもマクロパスワ―ドってことはVBEを弄ることになるから普通はセキュリティ設定に引っかかる。
VBAでVBEを弄れる設定になってるなら、参照設定でVisualBasic for Applications Extencibilityを追加して頑張ることになるわけだけどセキュリティ皆無となって危険だぞ。
それにそのコードがウィルス判定されるかも。
- 43 ：デフォルトの名無しさん：2018/11/30(金) 19:30:48.61 ID:D2Lo7Qd2.net
- >>41
この質問者が「解除」という言葉で言いたいのは、パスワードなしのファイルとしてファイルを再保存することじゃなくて、ただ単に読み取りパスワード付のファイルを普通に実行することだと思うぞ
Sendkeysとか恐ろしいことを上で言ってるので
- 44 ：デフォルトの名無しさん：2018/11/30(金) 23:26:49.39 ID:1+TlpALp.net
- >>43
プロジェクトエクスプローラーって言ってるのにそんなわけ無いだろ
- 45 ：35：2018/12/01(土) 07:37:11.82 ID:0dTVd6NK.net
- >>43
マクロのロック解除です。
ワークブックと書いて混乱を招いてしまいました。
ファイルは開けます。
現状はマクロでVBAをアクティベートし、vbkeyで操作する方法で試してますが未だにうまく動かないです。
- 46 ：デフォルトの名無しさん：2018/12/01(土) 12:13:55.48 ID:bMs1CWzL.net
- >>45
VBAのsendkeyは不安定なので、vbsとかを経由しろとか聞いたことある気がする。ちょっと調べてみては？
- 47 ：35：2018/12/01(土) 12:16:20.34 ID:0dTVd6NK.net
- >>46
ありがとうございます。
試してみます。
- 48 ：デフォルトの名無しさん：2018/12/01(土) 12:20:42.98 ID:TS4bNkMJ.net
- フォルダ内にある全てのtxtファイルをピボットテーブルで変換して一つのファイルに結合するにはどうしたら良いですか？
- 49 ：デフォルトの名無しさん：2018/12/01(土) 12:22:51.76 ID:TS4bNkMJ.net
- >>48
一つのテキストファイルあたりExcelの104万行を超えています
- 50 ：デフォルトの名無しさん：2018/12/01(土) 12:30:20.41 ID:Yrektqt+.net
- >>49
Accessに取り込んで104万件以下に整理してからExcelに読み込む
- 51 ：デフォルトの名無しさん：2018/12/01(土) 13:39:55.20 ID:TS4bNkMJ.net
- >>50
Accessで一括に読み込めますか？
- 52 ：デフォルトの名無しさん：2018/12/01(土) 17:27:15.14 ID:qC6lat5H.net
- >>47
vbsとか経由でも駄目だろ。
何が駄目かと言うと入力したい所にピンポイントで入力するわけじゃ無いところ。
直前に入力したい所にフォーカスを当てるとか工夫してる人もいるけど根本的によろしく無いんだよ。
動かしてる時に別の何かをクリックしたりするとそっちに入力されちまう。
改めて確認するけどVBAがパスワード保護されてコ―ド編集出来ない状態になっている。
パスワードは分かっていて手動で解除出来るけどブックが大量で解除と再設定が大変という問題?
- 53 ：デフォルトの名無しさん：2018/12/01(土) 17:45:25.58 ID:qC6lat5H.net
- >>51
そのテキストファイルはどんなファイル?
データベースのデータのようなものなの?
その104万行というのは、そもそも全部必要なの?
全部必要じゃない、特にもし必要なのはごく一部というのだったら、テキストファイルとして開いて1行ずつ読み込んで、必要あるデータのみ抜き出すという方法が良いと思う。
全部必要だったらAccessを使うべきデータ量だな。
でも、そのデータをどんな風に扱いたいか分からないから一概には言えない。
- 54 ：35：2018/12/01(土) 17:56:01.08 ID:0dTVd6NK.net
- >>52
おっしゃる通りです。
マクロで大量に作ったマクロパスワードが同じファイルのパスワードを解除し、マクロを消すプログラムを作りたいです。
マクロを消すプログラムはマクロパスワード無しのファイルに関しては全てうまく動いています。
またエクセルファイルにはパスワードはかけていません。
過去に作ったエクセルファイルは残したままマクロを全て消せとの指令で必要となっています。
- 55 ：デフォルトの名無しさん：2018/12/01(土) 18:47:27.12 ID:X1CAEXrd.net
- xlsxで保存すればマクロは消えない？
- 56 ：デフォルトの名無しさん：2018/12/02(日) 12:24:29.74 ID:RxJGbltM.net
- そんな大量のデータ、一行ずつ読んでたら日が暮れるぞ。
バイナリモードで開いてメモリの許す半範囲で読んで、末尾の改行までを消すの繰り返して読み込んだ方が遥かに早いよ
- 57 ：デフォルトの名無しさん：2018/12/02(日) 13:35:42.09 ID:QrHhUpeR.net
- 100万行越えのデータは、まず複数列、複数シートを使って読み込んでみれば？
内容によっては固まって何もできなくなる悪寒しかないけど
- 58 ：デフォルトの名無しさん：2018/12/02(日) 17:24:20.84 ID:L8bj4c7S.net
- 100万行が大量か?
それはどんな100万行かによる。
100万個の改行だって100万行だ。
- 59 ：デフォルトの名無しさん：2018/12/02(日) 17:27:05.82 ID:L8bj4c7S.net
- >>54
>>55が書いてるようにxlsxで保存するようなのは駄目なのか?
- 60 ：デフォルトの名無しさん：2018/12/02(日) 21:09:54.29 ID:V0qE8100.net
- ユーザーフォーム上のクリックボタンが、Tabで通過する分には何も起こらないのだけどカーソルキーで通過するとチェック入るのだけど、コード書いて制御するしかない？
- 61 ：デフォルトの名無しさん：2018/12/02(日) 22:14:16.48 ID:KrKU+109.net
- クリックボタンにチェックとは?
- 62 ：デフォルトの名無しさん：2018/12/03(月) 00:04:08.66 ID:X8MytAwB.net
- EXCELのVBA使いたいのですが
どうやったら起動できますか？
最初からEXCELにソフト入ってるんですか？
- 63 ：デフォルトの名無しさん：2018/12/03(月) 00:39:02.99 ID:eKdLT8zi.net
- Microsoft Visual Basic for Applications(VBA)エディターが開きます。
Alt+F11
- 64 ：デフォルトの名無しさん：2018/12/03(月) 07:02:37.21 ID:F098t6Ls.net
- >>61
すみません、チェックボックスでした
- 65 ：デフォルトの名無しさん：2018/12/03(月) 19:46:40.74 ID:zpf7CT60.net
- >>55
>>59
xlsx保存し元ファイルを全て消すでやりたい事ができました。
ありがとうございます
- 66 ：デフォルトの名無しさん：2018/12/03(月) 23:49:02.49 ID:Ks+qj00w.net
- フランス政府からマクロン消したら市民が泣いて喜ぶよね
ありがとうございます
- 67 ：デフォルトの名無しさん：2018/12/04(火) 00:09:42.14 ID:fkKXq52U.net
- >>62
まずは首を括れよ
- 68 ：デフォルトの名無しさん：2018/12/04(火) 06:14:33.41 ID:Jf/aCYja.net
- >>62
消えろ小僧
- 69 ：デフォルトの名無しさん：2018/12/04(火) 09:00:31.20 ID:F519qlgb.net
- "ab","bc","c
d"
みたいなcsvがあり、これを処理速度重視で読み込みたいんですがなにかいい方法無いですかね
なんか配列操作で計算、集計して最後シート出力すると早いと思うので配列に入れたいんですが1行ずつの読み込みだとうまく行かずで困ってます
fsoで全文読んでも改行されてますし…
- 70 ：デフォルトの名無しさん：2018/12/04(火) 09:15:39.52 ID:TjlcF2tR.net
- >>69
めんどそう
そんなんじゃ " のエスケープとかも考慮しなきゃいけないんでしょ？
だけど気合い入れてアルゴリズムごりごり実装するのを勧める
- 71 ：デフォルトの名無しさん：2018/12/04(火) 09:18:52.95 ID:FU2ewWox.net
- >>69
ボトルネックがFile I/Oならバイナリで全部読んでコンマでsplit
ただし文字列変数の限界は2GBなのでファイルサイズに注意
- 72 ：デフォルトの名無しさん：2018/12/04(火) 12:54:59.46 ID:HOLQGFa9.net
- どうでも良いけど1レコードの定義をちゃんとしないと膨大なカラムの1レコードデータになっちまうぞ。
バイナリ読み込みでやるのは確かに早いんだが、そこを気にする程のデータ量なのかなあ。
この間の100万行デ―タもサンプル作って読み込んだら10秒とかだったぞ。
- 73 ：デフォルトの名無しさん：2018/12/04(火) 13:26:11.27 ID:F519qlgb.net
- 全文読んだ後にレコード単位に分けてカンマ区切りで分けてーをしっかりアルゴリズム書くて感じですかね
そこそこ面倒臭いですねこれ
- 74 ：デフォルトの名無しさん：2018/12/04(火) 13:31:22.51 ID:nDNFtNox.net
- セルコピーでValudatonの中身までコピーする方法ってありますか？
愚直にコピーすると設定したプルダウン情報が消えてしまいます
- 75 ：デフォルトの名無しさん：2018/12/04(火) 17:53:21.87 ID:eg0Zt3qJ.net
- >>73
エスケープなし、カンマのみ項目なし、改行のみ項目なしなら楽なんだけどね
- 76 ：デフォルトの名無しさん：2018/12/04(火) 18:44:19.91 ID:F519qlgb.net
- >>73
自己レス
adodb使ったらなんかいい感じにいけました
- 77 ：デフォルトの名無しさん：2018/12/04(火) 23:45:07.95 ID:foGY0MAA.net
- 外部のExcelマクロを呼び出し、その処理の中でMsgBoxが表示された場合、それを呼び出し元で認識する方法はありますか？
Msgboxを操作したいとかではなく、表示されたということがわかればいいです
- 78 ：デフォルトの名無しさん：2018/12/05(水) 01:51:39.17 ID:bmTXilR5.net
- >>77
APIでHWNDを列挙
- 79 ：SuperXLe：2018/12/05(水) 04:28:42.10 ID:eILZxtP+Y
- Excelの面倒な操作をラクにする機能を40種類以上まとめた無料アドイン「SuperXLe」
目次作成、CSVの読み込み、ファイルのマージなど、汎用的な機能を豊富に用意
窓の杜で紹介されています。
https://forest.watch.impress.co.jp/docs/review/1156143.html
とっても便利です！！
作者サイト
https://superxle.amebaownd.com/
- 80 ：デフォルトの名無しさん：2018/12/05(水) 08:11:01.31 ID:j7wcFAGs.net
- >>77
外部のExcelマクロというのが別プロセスのExcel上で動いてるマクロという意味なら方法はある。
内部でもExcelが落ちる可能性を承知するならある。
- 81 ：デフォルトの名無しさん：2018/12/05(水) 18:51:03.67 ID:cxhucZsa.net
- >>78,80
APIでの実現方法がよくわからなかったので、呼び出されるマクロに認識用のモジュールを追加することにしました
ありがとうございました
- 82 ：デフォルトの名無しさん：2018/12/05(水) 22:21:05.50 ID:LTu8VXCT.net
- >>76
自己レス
adodbも面倒臭かったacces無いんでcsvのデータ型判定の為にschma.iniみたいなの作る必要あったり…
元の文字コードとかbomとか考慮しないといけないけどworkbookのopen使ってマズかったらエラー出した方が早かったかも
- 83 ：デフォルトの名無しさん：2018/12/06(木) 08:13:12.56 ID:5yG8Yqq9.net
- >>82
いい肥やしになったと思います
- 84 ：デフォルトの名無しさん：2018/12/06(木) 23:32:22.39 ID:O2YT1bAS.net
- 肥やしって具体的には何のこと？
- 85 ：デフォルトの名無しさん：2018/12/07(金) 08:39:50.57 ID:a2+Odvtp.net
- 普通にOpenしてLine Inputした方が速くて簡単だったんじゃない?
と思ったら文字コード?BOM?
最初の質問は何だったのか。
文字コード考えなきゃならんのなら、
最初から選択が限られるだろ。
- 86 ：デフォルトの名無しさん：2018/12/07(金) 23:08:14.09 ID:vEdbg58X.net
- まあでもsplitはないよな
- 87 ：デフォルトの名無しさん：2018/12/07(金) 23:45:43.79 ID:ny7N65D8.net
- データ内の改行やカンマを正しく解釈するためにモジュール自作してる
- 88 ：デフォルトの名無しさん：2018/12/08(土) 08:49:31.99 ID:D25PXYri.net
- データ内のダブルクォーテーションもあるで
- 89 ：デフォルトの名無しさん：2018/12/08(土) 10:23:21.41 ID:qbpmcynn.net
- この手のことはだいたい同じ事を先に考えている人がいるから、
参考にするなりDLして利用するなりすれば、やりたいことは秒で完成させられる
理解するのはまた別で、ちゃんとソース読めな話になるけど。
たとえば、「VBA CSV BAS」でググって即出るヤツだとこんなとか。
ttps://github.com/sdkn104/VBA-CSV
- 90 ：デフォルトの名無しさん：2018/12/08(土) 11:33:49.23 ID:KOgxZmAl.net
- Range("C1:C10") = "=A1+B1"
とセルに式を埋め込むと自動で A2+B2、A3+B3 とやってくれますが
WorksheetFunctionで上と同じ事を1行で簡単に書くことってできますか？
うまい方法思いつかないのでいつも 関数埋め込み→値貼り付けで式を消す とやってます
WorksheetFunctionのループは式の埋め込みより遅かったです
- 91 ：デフォルトの名無しさん：2018/12/08(土) 15:59:33.39 ID:/nD5g8zA.net
- >>90
わざわざVBAを使って、最後に値貼り付けするぐらいなら、俺ならVBAで計算して結果だけ書き込む
For r = 1 To 10
cells(r, 3) = cells(r, 1) + cells(r, 2)
Next
式がワークシート関数バリバリでVBAで再現するのが面倒なら、最後の値貼り付けをVBAで書く
set r = Range("C1:C10")
r.Copy
r.PasteSpecial Paste:=xlPasteValues
- 92 ：デフォルトの名無しさん：2018/12/08(土) 16:47:33.14 ID:X2RnV3YS.net
- 俺ならVBAで各セルに計算式埋めるけどな
- 93 ：デフォルトの名無しさん：2018/12/08(土) 17:13:31.83 ID:Zw8nZFqz.net
- Range("C1:C10").Formula = "=A1+B1"
Range("C1:C10").Value=Range("C1:C10").Value
- 94 ：デフォルトの名無しさん：2018/12/08(土) 18:00:32.80 ID:FvhEiENk.net
- >>90
人に教えてもらう分際で、一行でとか注文つけてんじゃねーよ。
- 95 ：デフォルトの名無しさん：2018/12/08(土) 19:19:47.59 ID:I01ncySI.net
- ワークシートか配列へ代入したり配列をワークシートに直接貼り付けたりって技いつ頃から一般的になった？
なんか20年前からやってたという人がいて本当かよと思ったんだが。
- 96 ：デフォルトの名無しさん：2018/12/08(土) 20:28:45.94 ID:/nD5g8zA.net
- >>95
特定の個人が知ってたのと、一般的かどうかなんて全然関係ないじゃん
ExcelもVBAも20年以上前からあるんだし、知ってても不思議じゃない
- 97 ：デフォルトの名無しさん：2018/12/08(土) 20:53:05.77 ID:dkUbxCqg.net
- >>96
ああごめんなさい
「そんなの20年前から一般的だったよ」みたいなニュアンスで言われたんですよ。
自分としてはここ2〜3年で知られた新しめのテクニックだと思ってたんで、「マジか？」と。
- 98 ：デフォルトの名無しさん：2018/12/08(土) 21:00:40.14 ID:/nD5g8zA.net
- 20年前のことは知らんけど、さすがにここ2〜3年てことはない
もっと昔から知られてた
- 99 ：デフォルトの名無しさん：2018/12/08(土) 21:04:04.90 ID:Ac8D4eVv.net
- >>98
ですね。
そもそもいちいちセル移動して操作なんて、トロくさくてやってられん。
Google Apps Scriptなんかでも配列で操作なんて、速度稼ぐ為に普通に使う枯れたテクニック。
あまりにもセル操作という初歩だけが広まった弊害だね。
- 100 ：デフォルトの名無しさん：2018/12/08(土) 21:07:43.53 ID:KOgxZmAl.net
- A いつも自分がやっているやり方
Range("C1:C10000") = "=A1+B1"
Range("C1:C10000").Copy
Range("C1:C10000").PasteSpecial Paste:=xlPasteValues
B 90案
For r = 1 To 10000
Cells(r, 3) = Cells(r, 1) + Cells(r, 2)
Next
C 92案
Range("C1:C10000").Formula = "=A1+B1"
Range("C1:C10000").Value = Range("C1:C10000").Value
D 配列
計算元の配列= Range("A1:B10000")
For i = 1 To 10000
計算結果格納配列(i, 0) = 計算元の配列(i, 1) + 計算元の配列(i, 2)
Next i
Range("C1:C10000").Value = ans
E 半分配列
For r = 1 To 10000
計算結果格納配列(r, 0) = Cells(r, 1) + Cells(r, 2)
Next
Range("C1:C10000").Value = ans
A0.035
B0.265
C0.031
D0.015
E0.062
- 101 ：デフォルトの名無しさん：2018/12/08(土) 21:09:26.57 ID:KOgxZmAl.net
- 時間（秒）
A 0.035
B 0.265
C 0.031
D 0.015
E 0.062
配列は頭がごちゃごちゃして苦手なんだけどやっぱ配列かなー
いつものは書くのが楽だけど見栄えがあんま良くない
Range("C1:C10000") = "=A1+B1"の部分を数式残さずWorksheetFunction一括で書けないかなーと思ってた
みなさんどうも
- 102 ：デフォルトの名無しさん：2018/12/08(土) 21:12:06.71 ID:KOgxZmAl.net
- 書き間違い
ans→計算結果格納配列
- 103 ：デフォルトの名無しさん：2018/12/08(土) 22:34:44.30 ID:Pds2yprW.net
- Range("c1:c10") = Evaluate("=a1:a10+b1:b10")
- 104 ：デフォルトの名無しさん：2018/12/08(土) 23:08:03.54 ID:KOgxZmAl.net
- >>103
速くて簡潔
今までの中で一番早い
Evaluate知らないので勉強してみます。有難う。
- 105 ：デフォルトの名無しさん：2018/12/08(土) 23:21:36.60 ID:Q+l9Re6e.net
- >>103
あーなんかいいのがあったはずだと思っていたがEvaluateかーー
くやしいから
Range("c1:c10") = [a1:a10+b1:b10]
- 106 ：デフォルトの名無しさん：2018/12/09(日) 07:19:28.94 ID:Pe0BknB8.net
- データを蓄積、変更して管理するシステムをVBAで作るとして、普通、データとプログラムを分けるよな？
- 107 ：デフォルトの名無しさん：2018/12/09(日) 08:55:53.41 ID:BPsncq85.net
- >>106
分けるけど、わざわざそういう質問するってことは現状データをBookに蓄積先してる状況なのかな？
入出力画面をExcel & VBAで作って、データはDBに蓄積するってのがこの場合の模範解答だと思うが。
- 108 ：デフォルトの名無しさん：2018/12/09(日) 21:01:53.98 ID:F2zjByp1.net
- >>95
配列数式ってのは大昔からあったな。エクセルはＶＢＡ書かないと標準機能ではクロス集計が
面倒くさいダメダメ君だった。「条件付き合計式ウィザード」なんていう冴えないシロモノに失望して
- 109 ：デフォルトの名無しさん：2018/12/10(月) 12:24:50.65 ID:F1/sCBz9.net
- >>97
おまえが2〜3年前に知ったからってなんで勝手に一般化して皆そうだと思うんだよ
- 110 ：デフォルトの名無しさん：2018/12/11(火) 08:00:45.59 ID:VzVuR/sH.net
- みんな、落ち着いて聞いてくれ。
間も無く2019年だ。2019だぞ？
配列に突っ込んで一括処理するのは、少なくともEXCEL98から使われてきた手法だ。
既に20年経過してやがる。
- 111 ：デフォルトの名無しさん：2018/12/11(火) 08:30:34.19 ID:jr4KaA92.net
- >>110
٩(๑`^´๑)۶＼(^-^ ) ヨシヨシ
- 112 ：デフォルトの名無しさん：2018/12/11(火) 08:41:05.40 ID:mN+cBX2v.net
- 空白行が複数ある範囲から、空白行を除いて配列に取り込むのはどうやるのが効率がいい？
条件
・行内は完全に空白かそうでないかで中途半端にデータが入ってるところはなし
・空白行を除いたデータ総数は300前後で最大で16程度に分割されている
・空白行は連続することもある
一行一行調べるより、データの塊の上下の行番号を調べるのが正解な気がするんだけど
- 113 ：デフォルトの名無しさん：2018/12/11(火) 08:55:39.61 ID:OAAPkOpt.net
- >>112
そのデータがワークシート上にあるんなら、オートフィルターかければ？
VBAで1行で書けるぞ
- 114 ：デフォルトの名無しさん：2018/12/11(火) 09:27:01.56 ID:zUaOIyWC.net
- >>112
> データの塊の上下の行番号を調べる
それ一行一行調べないとわからないんじゃね？
普通に一気に配列に読み込んで空白行を詰める処理を入れればいいかと
>>113
フィルタ掛けた結果を一気に配列に読み込むってできたっけ？
- 115 ：デフォルトの名無しさん：2018/12/11(火) 11:43:07.63 ID:U/EFAptV.net
- >>110
fjだかのExcel会議室では配列がホットな話題になったよ
t.Tanaka氏とかもコテハンで議論に参加してさ
なつかしいなあ
- 116 ：デフォルトの名無しさん：2018/12/11(火) 11:50:12.79 ID:s7r8QuRW.net
- >>115
お
っ
さ
ん
- 117 ：デフォルトの名無しさん：2018/12/11(火) 12:15:58.68 ID:/u4ZG0F2.net
- >>116
当時からおっさんだったら、今頃じーさんかも知れないぞ。
- 118 ：デフォルトの名無しさん：2018/12/11(火) 14:13:54.04 ID:mN+cBX2v.net
- >>114
下からCtrl↑で止まったセルの行番号を取得するを繰り返せば毎行調べなくて済む
オートフィルターで絞った結果を可視セルだけ選択しても、取り込まれるのは左上だけになるから無理だね
一行一行調べる羽目になる
やるなら作業シート作ってコピペしてから取り込むんだけだ、それはやりたくない訳で
- 119 ：デフォルトの名無しさん：2018/12/11(火) 14:39:45.96 ID:zUaOIyWC.net
- >>118
> 下からCtrl↑で止まったセルの行番号を取得するを繰り返せば毎行調べなくて済む
それはそうだけど速いかどうかは状況次第だね
>>113 > VBAで1行で書けるぞ
って方法があるみたいなことを書いてるので聞いただけ
- 120 ：デフォルトの名無しさん：2018/12/11(火) 20:47:54.18 ID:r2my7w49.net
- >>119
元々、どういう考えで>>113が言ったのかは分からんけど、配列に取り込むまでを1行って言ってたのかなあ。
オートフィルタをかけるコードが1行という意味じゃないかな。
だからといって、そこからどうするんだ?とは思うけどさ。
- 121 ：デフォルトの名無しさん：2018/12/11(火) 21:00:32.57 ID:zUaOIyWC.net
- >>120
元々は
>>112
> 空白行が複数ある範囲から、空白行を除いて配列に取り込むのはどうやるのが効率がいい？
なので、フィルターだけの事を言われても…
- 122 ：デフォルトの名無しさん：2018/12/11(火) 21:34:59.21 ID:OAAPkOpt.net
- クリップボード経由でデータを一気に取得、オートフィルタにも対応
※最小設定FM20.DLLが必要
Sub Macro1()
ActiveSheet.Range("A1:C10").Copy
With New MSForms.DataObject
.GetFromClipboard
str = .GetText
End With
MsgBox str
End Sub
- 123 ：デフォルトの名無しさん：2018/12/11(火) 21:35:27.33 ID:OAAPkOpt.net
- 参照設定
- 124 ：デフォルトの名無しさん：2018/12/11(火) 21:40:19.21 ID:r2my7w49.net
- >>121
そりゃそうだけど、>>113を読む限り1行ってのはオートフィルタだけについて言ってるように受け取る方が自然じゃん。
だから、そこからどうするんだという感想になるわけ。
そもそも>>113は配列に取り込むことなんて想定してないかもしれない。
空白があって見にくいのを何とかしたいんだろうとか、勝手に先読みして配列に取り込むという元のお題をほったらかしとか。
そもそも300行程度のデータならどんな方法でも良いんじゃないかと思う。
そんなんで思い悩むのは無駄だよ。
- 125 ：デフォルトの名無しさん：2018/12/11(火) 21:51:43.64 ID:zUaOIyWC.net
- >>124
ガイジなのかな？
- 126 ：デフォルトの名無しさん：2018/12/11(火) 22:40:05.46 ID:r2my7w49.net
- >>125
君が?
それとも>>113?
- 127 ：デフォルトの名無しさん：2018/12/11(火) 22:53:52.01 ID:8DZhL+mg.net
- それこそVariant型配列にでもぶっ込めば手っ取り早いし処理もそれなりに速そう
- 128 ：デフォルトの名無しさん：2018/12/11(火) 23:25:52.21 ID:mBAHWwo2.net
- UI Automationのレイトバインドって、どうやればいいんでしょう?
レジストリ調べてもクラスID出てこないし・・。
- 129 ：デフォルトの名無しさん：2018/12/11(火) 23:34:38.12 ID:r2my7w49.net
- >>128
基本的に出来ない。
- 130 ：デフォルトの名無しさん：2018/12/12(水) 00:19:46.28 ID:3KU1fzXl.net
- >>129
参照設定は出来るのに、CreateObjectは不可なんてのがあるんですか?
- 131 ：デフォルトの名無しさん：2018/12/12(水) 06:08:42.05 ID:yHW8d60g.net
- >>126
自覚がないのは可哀想
- 132 ：デフォルトの名無しさん：2018/12/12(水) 09:43:38.09 ID:F+70e5KM.net
- >>130
ある。
- 133 ：デフォルトの名無しさん：2018/12/12(水) 09:44:36.67 ID:F+70e5KM.net
- >>131
まず、日本語の勉強をしような。
- 134 ：デフォルトの名無しさん：2018/12/12(水) 12:29:40.76 ID:4PEjGm8G.net
- >>133
どこから日本語とか出てくるんだろう？
日本語ができないという自覚はあるってことなのか？ w
- 135 ：デフォルトの名無しさん：2018/12/12(水) 19:01:00.09 ID:pifCGzoS.net
- グラフ作成マクロ作ったんだけど結構面倒くさくない？慣れの問題？
特に細かなフォーマットとか云々がめんどい
それに出力シートのセルいじられて（1行目削除）出力セルがズレたせいでフォーマット崩れたとか言われて頭痛いんだけどどう対処するのが良いのこれ
- 136 ：デフォルトの名無しさん：2018/12/12(水) 20:01:12.49 ID:K6Ng+wlm.net
- 使用方法まとめたドキュメント作ってないなら作成者が悪い。
作ってるなら碌に読まないで文句いってる使用者が悪い。
作り方次第で解決するとは思うが。
- 137 ：デフォルトの名無しさん：2018/12/12(水) 20:02:06.59 ID:aZC5ZPlw.net
- ルーチンにはルールが必要やで
- 138 ：デフォルトの名無しさん：2018/12/12(水) 22:32:28.50 ID:3KU1fzXl.net
- >>135
逃げる。
いや、マジで。
フォーマットを壊す人ような人の依頼を受けると碌なことない。
どうしてもやらなきゃダメなら、
ちょっとでも崩れたら、エラーメッセージが出るようにする。
あなた壊しましたね。直さないと出力できませんよ的な。
- 139 ：デフォルトの名無しさん：2018/12/12(水) 23:25:41.76 ID:YxATkhEB.net
- シートとブックを保護する
- 140 ：デフォルトの名無しさん：2018/12/13(木) 09:08:24.41 ID:UfF+3F/y.net
- 出来たグラフをPDFにしてそれを渡す
- 141 ：デフォルトの名無しさん：2018/12/13(木) 09:12:33.11 ID:LhgdcJ19.net
- >>134
人の話が理解出来てないから、日本語という言葉が出て来るんじゃないの。
- 142 ：デフォルトの名無しさん：2018/12/13(木) 12:28:02.78 ID:yiVhwKQv.net
- >>141
> 人の話が理解出来てないから
既にガイジかよって指摘されてるだろ w
そもそも配列に取り込むという要件明記されてるのにオートフィルターなら１行で書けるとか頓珍漢にも程がある
- 143 ：デフォルトの名無しさん：2018/12/13(木) 21:18:33.38 ID:WIhtQMzU.net
- >>139
シーブックがなんだって？
- 144 ：デフォルトの名無しさん：2018/12/13(木) 22:36:46.58 ID:X2R1LlWK.net
- CreateObject("Excel.Application").ExecuteExcel4Macro("CALL(DLL, 名前, ""JJ"", variant型の配列)")
これにvariant型の配列を渡す場合はどうすればいい?
OとかKとか入れてもダメなんですけど。
普通に呼べとか言わないで。
- 145 ：デフォルトの名無しさん：2018/12/14(金) 01:30:05.29 ID:dZAIZmaz.net
- >>143
あのぉ…
- 146 ：デフォルトの名無しさん：2018/12/14(金) 07:22:07.04 ID:CUJ1nMvt.net
- >>144
不可能
1セルずつしか処理できないのが特徴だし
- 147 ：デフォルトの名無しさん：2018/12/14(金) 09:13:11.97 ID:GTuXeJsU.net
- >>142
想像した通りだ。
日本語勉強しような。
俺は>>113ではないという基本的なことも無視かね?
>>113には全く賛同出来ないが、かといって>>113は君の要件に対して1行で書けると言っているとは限らないと読み取れると言っている。
1行で書けるというのは、その直前のオートフィルタをかけるという部分を受けてのものとも読み取れるのが日本語の解釈だ。
もちろん、君の要件に対してのものというのを全面的に否定するものでもない。
どっちにも受け取れるのが日本語の曖昧さだ。
- 148 ：デフォルトの名無しさん：2018/12/14(金) 12:34:42.08 ID:8Omm9ucp.net
- >>147
> >>113には全く賛同出来ないが、かといって>>113は君の要件に対して1行で書けると言っているとは限らないと読み取れると言っている。
別に俺が出した要件じゃねーけどな
敵は１人に見える病気かな？ w
フィルター云々はいいとして要件にそぐわない事書いて意味あるんか？
って話な
フィルター掛けときゃすげー楽になると言うならまだしも>>118とか恥の上塗りにしかなってないだろ
ここまで説明しないとダメなの？
- 149 ：デフォルトの名無しさん：2018/12/14(金) 19:29:44.65 ID:GTuXeJsU.net
- >>148
>別に俺が出した要件じゃねーけどな
全く、馬鹿らしいがそんなことは想定済みだ。
こういう場合、要件出したのが君だろうが違かろうが「君の要件」と書いておけば通じるという想定だ。
それまでの君の発言を見て要件出した奴かどうかなんて調べるのがめんどうということだ。
>フィルター云々はいいとして要件にそぐわない事書いて意味あるんか？
って話な
そんなことは要件出した奴が判断することだし、俺はそんな所にレスしたわけじゃない。
単純に1行が要件そのものに対してとは限らんと言ってる。
それに「VBAで1行で書けるぞ」が要件のことを言っていなくてもトータルで要件にそぐうこともあり得る。
フィルタのコードに1行、他に何十行かで要件を満たしているかもしれないわけだ。
>フィルター掛けときゃすげー楽になると言うならまだしも>>118とか恥の上塗りにしかなってないだろ
>>113=>>118とは限らん、というか違うと思うわけだが、イコールとは限らない以上、>>113の意図が「フィルター掛けときゃすげー楽になる」という可能性を排除できない。
つまり、君の言う「まだしも」の可能性が残っている。
それに、俺が書いたように>>113が要件にそぐわないものを出した可能性もある。
したがって、「1行で書ける」というのが要件そのものに対してではなくフィルタをがける処理のみに対してである可能性は十分ある。
これは日本語でのやり取りなら十分あり得ることだ。
- 150 ：デフォルトの名無しさん：2018/12/14(金) 19:35:29.16 ID:GTuXeJsU.net
- >>147
>ここまで説明しないとダメなの？
ちなみに、君のその説明、一番最初から分かってるから。
その君の主張が甘いんじゃねということを言ってるのが最初からの俺の主張だぞ。
- 151 ：デフォルトの名無しさん：2018/12/14(金) 19:36:43.15 ID:GTuXeJsU.net
- >>150
アンカー間違えた。
>>150は>>148へのレスな。
- 152 ：デフォルトの名無しさん：2018/12/14(金) 20:29:48.28 ID:8Omm9ucp.net
- >>149
> つまり、君の言う「まだしも」の可能性が残っている。
なら早く出せよ w
出せない時点で中身のない長文乙
にしかならんよ
- 153 ：デフォルトの名無しさん：2018/12/14(金) 21:50:27.31 ID:GTuXeJsU.net
- >>152
???
出すのは>>113であって俺では無いし、それにこの議論が始まるまでの話だから今さら出す、出さない関係無く>>119のの時点で1行が要件に対してと決めつけたのは間違いなんだが。
- 154 ：デフォルトの名無しさん：2018/12/14(金) 22:24:25.69 ID:OczD5cRe.net
- >>146
セルじゃなくてvariant型の配列。
- 155 ：デフォルトの名無しさん：2018/12/14(金) 22:48:04.67 ID:yDEitqc6.net
- >>153
お前に出せないのはわかってるよ w
出せないのに
> つまり、君の言う「まだしも」の可能性が残っている。
とかアホでしょ？
って話な
そもそも>>119どころか>>114の時点で
> フィルタ掛けた結果を一気に配列に読み込むってできたっけ？
で>>113がおかしいことを指摘してる
- 156 ：デフォルトの名無しさん：2018/12/14(金) 23:06:35.41 ID:GTuXeJsU.net
- >>155
???
まだ分かって無いのか?
>>113の意図がまだ分かっていない時点では>>113が正しい可能性が残っていると言っている。
残っている以上、>>113をおかしいと決めつけたお前がおかしいということだ。
出す必要なんて最初からないんだよ。
- 157 ：デフォルトの名無しさん：2018/12/14(金) 23:13:37.60 ID:GTuXeJsU.net
- >>155
>そもそも>>119どころか>>114の時点で
> フィルタ掛けた結果を一気に配列に読み込むってできたっけ？
で>>113がおかしいことを指摘してる
>>113がフィルタをかけることだけについて1行と言っているのなら―気に読み込まなくても>>113は正しい可能性が残る。
つまり、お前の指摘は間違っていることになる。
>>113がおかしいというのなら正しい可能性が残らないように指摘しなければならない。
- 158 ：デフォルトの名無しさん：2018/12/14(金) 23:48:38.10 ID:yDEitqc6.net
- >>156-157
で？
役に立たない長文書いてもなんの解決にもならんよ
恥の上塗り重ねてるだけ w
- 159 ：デフォルトの名無しさん：2018/12/15(土) 03:21:06.31 ID:WK8Eb1ay.net
- >>158
なんだ、反論できんのか?
だったら何も言うことは無い。
まともに日本語が理解出来ないのは哀れだねえ。
- 160 ：デフォルトの名無しさん：2018/12/15(土) 07:16:14.22 ID:lJT07BrA.net
- >>156
> >>113が正しい可能性が残っていると言っている。
バカなの？
>>113の内容が間違ってるとか言う話じゃなくて「頓珍漢」だと言ってるの
まあ>>118はさらに頓珍漢だけどな
> まともに日本語が理解出来ないのは哀れだねえ。
ブーメラン過ぎる w
- 161 ：デフォルトの名無しさん：2018/12/15(土) 08:17:58.44 ID:B6remLfl.net
- いつになったら場違いだと気付くのだろうか。。。
- 162 ：デフォルトの名無しさん：2018/12/15(土) 09:04:38.64 ID:U64Nbokg.net
- でさ、ここ質問スレ
乱闘なら他でやれ、クズ共
- 163 ：デフォルトの名無しさん：2018/12/15(土) 10:21:31.76 ID:WK8Eb1ay.net
- >>160
アホ。
頓珍漢ではない可能性が残っている。
お前が勝手に決めつけているだけだ。
- 164 ：デフォルトの名無しさん：2018/12/15(土) 10:31:11.19 ID:WK8Eb1ay.net
- だいたい、俺の意見はお前と近いんだよ。
お前みたいな甘さが無いだけで。
だから「そこからどうするんだ」という発言が出てる。
頓珍漢だろうとは思ってるの。
確定してないから決めつけてないだけで。
だいいち、頓珍漢だとしてもお前の決めつけが間違ってるのは変わらないだろう。
頓珍漢だなんてのは反論になってないな。
だから日本語を勉強しようなという話になる。
- 165 ：デフォルトの名無しさん：2018/12/15(土) 10:57:25.02 ID:0SCAvoVT.net
- >>163-164
頓珍漢の根拠まで書いてあるのに何を言ってるんだこのアホは w
>> 空白行が複数ある範囲から、空白行を除いて配列に取り込むのはどうやるのが効率がいい？
> なので、フィルターだけの事を言われても…
- 166 ：デフォルトの名無しさん：2018/12/15(土) 12:42:24.61 ID:lWJaBIbu.net
- いつまでネコパンチ打ち合うつもりやねんおまえら
- 167 ：デフォルトの名無しさん：2018/12/15(土) 14:45:59.06 ID:945ViHWv.net
- 次の質問が来ないからじゃね
- 168 ：デフォルトの名無しさん：2018/12/15(土) 15:45:43.01 ID:n3n4s8WM.net
- >>167
じゃ、ひとつ
Excel VBAで、Google OAuth認証などをやってるが、Clien_IDやSecretはコード中に書くとしても、取得したAuth CodeやAccess_Token、Refresh_Tokenなどはどこに安全に格納出来るか？
.NETアプリやAccessのようにappconfigや仕舞えるテーブルが無いので、皆どうしているのかね？
- 169 ：デフォルトの名無しさん：2018/12/15(土) 15:53:11.37 ID:mgmsvi+C.net
- >>168
そんなものをVBAで作らない
もしどうしても必要があるなら外部のコンソールアプリを呼び出す形にする
- 170 ：デフォルトの名無しさん：2018/12/15(土) 16:03:58.72 ID:VvS+qBfB.net
- VBAで何をやろうとしてるんだよ
何のためにそんな実装するのか詳しく
- 171 ：デフォルトの名無しさん：2018/12/15(土) 16:17:18.77 ID:U8VjJ+lV.net
- app.configとかテーブルとかが安全だと思ってるなら、
セルに書いといて保存でもテキストファイル書き出しでも好きにすればいいんじゃね
- 172 ：デフォルトの名無しさん：2018/12/15(土) 16:44:01.14 ID:2qRdp2bE.net
- >>168
> appconfigや仕舞えるテーブル
そんなのでいいなら適当なファイルとかブックのドキュメントプロパティに入れときゃいいんじゃね？
- 173 ：デフォルトの名無しさん：2018/12/15(土) 16:57:49.47 ID:WK8Eb1ay.net
- >>165
バーカ
>>113の書き方ではフィルタだけとは限らない。
>>113だけで終わりとは限らない書き方だろうが。
あの書き方では、その後に何かあるか、それとも後は察しろという風にも読み取れる。
だから俺は「そこからどうするんだ」という発言になる。
たぶん頓珍漢だろうけど、そこからどうするか聞いてからじゃないと確定出来ないからだ。
それに頓珍漢で逃げたいかもしれんが、頓珍漢かどうかは反論にならない。
頓珍漢だとしても1行が要件全体にかかってると決めつけたお前の解釈が甘いことには変わりが無い。
- 174 ：デフォルトの名無しさん：2018/12/15(土) 18:04:57.01 ID:lJT07BrA.net
- お前がどう思うかなんてどうでもいい
>>113は>>112の要件を満たしてない頓珍漢なレスであることに変わりない
まあ、続きのつもりかどうかは知らんが>>118みたいな斜め上のレスをするアホもいるけどな w
- 175 ：デフォルトの名無しさん：2018/12/15(土) 18:13:07.03 ID:zDjD9XpS.net
- >>169-172
結局、お前らがここで、くだらない議論してる間抜けを招いてる元凶ってにはよくわかったよ。
まともな回答もできん、技術力ないアホってのもなｗｗｗ
- 176 ：デフォルトの名無しさん：2018/12/15(土) 18:28:50.08 ID:lJT07BrA.net
- > 元凶ってにはよくわかったよ。
煽ろうとしてカミカミとか恥ずかしすぎるww
- 177 ：デフォルトの名無しさん：2018/12/15(土) 18:33:30.22 ID:WK8Eb1ay.net
- >>174
つまりお前の日本語解釈能力の低いことが確定ということだ。
甘いねえ。
>>118は>>113の後だ。
お前の指摘の後でもある。
>>118の存在はお前の頓珍漢だという決めつけを補強しない。
なぜなら>>118より以前にお前は決めつけをしてるんだからな。
因みに俺は>>118じゃないんで別に>>118が頓珍漢でも全くかまわん。
- 178 ：デフォルトの名無しさん：2018/12/15(土) 18:45:26.64 ID:lJT07BrA.net
- >>177
> つまりお前の日本語解釈能力の低いことが確定ということだ。
根拠のない勝利宣言 w
低能にありがちな行動
- 179 ：デフォルトの名無しさん：2018/12/15(土) 20:16:24.25 ID:VvS+qBfB.net
- なんだこいつ病気か
- 180 ：デフォルトの名無しさん：2018/12/15(土) 20:42:55.07 ID:NkuNHsZU.net
- 病気の人に失礼だろそれは
- 181 ：デフォルトの名無しさん：2018/12/15(土) 22:10:19.68 ID:WK8Eb1ay.net
- >>178
根拠?
既に何度も示してお前が反論出来なくなっているわけだが。
>>113は要件全てではなくオートフィルタのみについて1行と言っていた可能性がある時点でお前の決めつけは間違っている。
頓珍漢かどうかは関係ない。
>>113が頓珍漢でもお前は間違ってる。
- 182 ：デフォルトの名無しさん：2018/12/15(土) 22:12:08.06 ID:WK8Eb1ay.net
- 何故、お前が間違った決めつけをしたのか?
それはおまえの日本語解釈能力が低いからだ。
- 183 ：デフォルトの名無しさん：2018/12/15(土) 22:33:13.95 ID:7RBFgqMT.net
- お客さんが多いなあ
- 184 ：デフォルトの名無しさん：2018/12/15(土) 23:20:05.72 ID:lJT07BrA.net
- >>181-182
> >>113は要件全てではなくオートフィルタのみについて1行と言っていた
それが頓珍漢だって言ってるのに w
続きがあるかもしれないから頓珍漢じゃない可能性があるとかバカかよ
そんなこと言い出したらなんとでも言えるわ
- 185 ：デフォルトの名無しさん：2018/12/16(日) 07:19:47.75 ID:48kCZeZq.net
- 単なる罵り合いを見せつけられるくらいなら過疎ってるほうがよっぽど良い
- 186 ：デフォルトの名無しさん：2018/12/16(日) 15:01:54.86 ID:wWzCJETE.net
- >>184
バカ?
頓珍漢でもお前の間違いは変わらんと言ってる。
反論出来ないからといって見当違いばかりだな。
- 187 ：デフォルトの名無しさん：2018/12/16(日) 15:15:50.29 ID:Waa1ZwFh.net
- この罵り合いって一人で自演やってるの？
それとも馬鹿が2人もいるの？
- 188 ：デフォルトの名無しさん：2018/12/16(日) 15:21:47.19 ID:7UXd2BE0.net
- もう言ってることが無茶苦茶
> 反論出来ないからといって見当違いばかりだな。
またブーメランかよ w
- 189 ：デフォルトの名無しさん：2018/12/16(日) 15:31:07.45 ID:wWzCJETE.net
- >>188
頓珍漢でもお前は間違ってるのは認めるのかい?
- 190 ：デフォルトの名無しさん：2018/12/16(日) 15:34:57.02 ID:wWzCJETE.net
- >>188
>>113はオートフィルタのみについて1行と言った可能性があるのに要件全てに対してだと決めつけたのは間違いであり、>>113が頓珍漢かどうかに関係なく>>114の発言は思慮が浅いと思うんだが、それについては反論出来ないということでOK?
- 191 ：デフォルトの名無しさん：2018/12/16(日) 15:38:49.65 ID:wWzCJETE.net
- 見当違いなのは、頓珍漢かどうかに関係なく間違いだと言ってるのに、いつまでたっても頓珍漢で押し通そうとしてるからなんだが。
- 192 ：デフォルトの名無しさん：2018/12/16(日) 15:47:14.35 ID:7UXd2BE0.net
- >>189-190
もしかして
> そんなこと言い出したらなんとでも言えるわ
っていう意味すら理解できないガイジ？ w
- 193 ：デフォルトの名無しさん：2018/12/16(日) 16:18:10.73 ID:wWzCJETE.net
- >>192
そんなことは無い。
日本語には2通りの解釈が出来る場合があって、>>113は明確にその場合だ。
どんな場合でも複数の解釈が出来るとは限らんし、普通に複数の解釈が出来る場合に決めつけをすることは無い。
で、お前は間違えを認めるのか?
- 194 ：デフォルトの名無しさん：2018/12/16(日) 16:23:40.16 ID:7UXd2BE0.net
- >>193
２通りの解釈？
後付していいなら２通りどころかなんとでも解釈できるように書けるぞ
> そのデータがワークシート上にあるんなら、オートフィルターかければ？
> VBAで1行で書けるぞ
でも、〇〇した方がもっといいけどな
ってか？ w
- 195 ：デフォルトの名無しさん：2018/12/16(日) 18:04:23.80 ID:wWzCJETE.net
- >>194
???
本当に日本語ダメなんだな。
後付けなんてしてない。
>>113のみで2通りに解釈できるんだが。
それを理解出来ずに見当違いの言い訳するから「日本語勉強しような」と言われるんだ。
- 196 ：デフォルトの名無しさん：2018/12/16(日) 18:20:18.12 ID:7UXd2BE0.net
- >>195
お前が誰か知らんけど
> >>113だけで終わりとは限らない書き方だろうが。
とか書いてたアホがいたっけな w
- 197 ：デフォルトの名無しさん：2018/12/16(日) 18:55:56.11 ID:wWzCJETE.net
- >>196
また、見当違いか。
>>113だけで2通りの解釈ができ、それをお前が理解出来なかったのは認めるのかい?
- 198 ：デフォルトの名無しさん：2018/12/16(日) 19:12:31.97 ID:7UXd2BE0.net
- >>197
> >>113だけで終わりとは限らない書き方だろうが。
とか書いてたアホとは他人なの？
なら黙っててね
それとも恥ずかしくてごまかそうと必死なのかな？ ww
- 199 ：デフォルトの名無しさん：2018/12/16(日) 19:15:43.10 ID:wWzCJETE.net
- >>198
まず、お前が間違ってたのを認めるかどうかが先だ。
お前の間違いは1つだけでは無いので話を変えて逃げようとしても無駄だ。
後付け云々についてはその後だ。
- 200 ：デフォルトの名無しさん：2018/12/16(日) 19:18:42.74 ID:wWzCJETE.net
- 悔しいのは分からんでも無いが、客観的に見て自分に間違いがあるなら認めような。
間違いが無いなら別の話に持ってこうとせずに真正面から反論すべきだな。
- 201 ：デフォルトの名無しさん：2018/12/16(日) 19:29:40.20 ID:7UXd2BE0.net
- >>199-200
ごまかそうと必死すぎて笑える
まずは
> >>113だけで終わりとは限らない書き方だろうが。
> とか書いてたアホとは他人なの？
に、答えなよ
- 202 ：デフォルトの名無しさん：2018/12/16(日) 20:08:06.24 ID:iM0z/gpL.net
- >>201
誤魔化そうとしてるのはお前。
一番最初の話は>>113の解釈をお前が間違ったのかどうかだろ。
>>120の時点の話だ。
- 203 ：デフォルトの名無しさん：2018/12/16(日) 22:36:05.00 ID:7UXd2BE0.net
- お前がどう言おうと>>113単体では>>112の要件を満たさない頓珍漢なレスである事実は変わらんよ
残念だったな w
- 204 ：デフォルトの名無しさん：2018/12/16(日) 23:06:44.08 ID:jPkme8um.net
- >>203
バー力。
頓珍漢でもお前は間違ってると言ってるだろ。
つまりお前はまだ何一つ反論をしていない。
お前が間違っているという俺の指摘に何ーつ反論していない。
このまま間違いを認めるのかねw
- 205 ：デフォルトの名無しさん：2018/12/16(日) 23:17:12.24 ID:7UXd2BE0.net
- >>204
> 頓珍漢でもお前は間違ってると言ってるだろ。
お前は何を言ってるんだよ、>>113が頓珍漢なら俺が正しいことになるんだが…
マジでバカすぎる w
- 206 ：デフォルトの名無しさん：2018/12/17(月) 03:10:52.43 ID:Lv/9aVPQ.net
- >>205
ならないんだが。
何度も言ってるのに無視かよ。
よっぽど頭が悪いんだな。
>>113はオートフィルタのみについて1行と言っている可能性がある以上、配列に読み込む部分を含めて1行と決めつけて解釈したお前は間違い。
それは頓珍漢なこととは別の問題だ。
- 207 ：デフォルトの名無しさん：2018/12/17(月) 03:13:56.86 ID:Lv/9aVPQ.net
- 物事をきちんと分けて考えられないのもこのバカの特徴だな。
- 208 ：デフォルトの名無しさん：2018/12/17(月) 07:18:53.33 ID:QtVZQcqx.net
- >>206-207
> >>113はオートフィルタのみについて1行と言っている可能性がある
だからそれが頓珍漢だって言ってるのに…
人の話を無視して論破されてる話を何度も繰り返すのは低能にありがちな行動だけどな w
> 物事をきちんと分けて考えられないのもこのバカの特徴だな。
ブーメラン乙
- 209 ：デフォルトの名無しさん：2018/12/17(月) 07:34:27.78 ID:KD4HX3We.net
- まだやってんのw
- 210 ：デフォルトの名無しさん：2018/12/17(月) 07:54:15.41 ID:QtVZQcqx.net
- 2018/12/17(月) 03:10:52.43 ID:Lv/9aVPQ
夜中の3時とかよほど悔しかったみたいよ w
- 211 ：デフォルトの名無しさん：2018/12/17(月) 09:21:28.94 ID:Lv/9aVPQ.net
- 頓珍漢でもお前は間違ってるんだよ。
全く反論になってないと言ってるだろうに。
>>113が頓珍漢では無い場合
→お前は間違ってる
>>113が頓珍漢な場合
→お前は間違ってる
お前の発言「だから>>113は頓珍漢なんだよ」
つまり、お前は間違ってる
日本語ワカリマスカ?
- 212 ：デフォルトの名無しさん：2018/12/17(月) 09:26:32.36 ID:Lv/9aVPQ.net
- >>210
冷静に見ればよっぽど悔しく見えるのは両方だ。
劣勢だからって同意を求めようとするな。
- 213 ：デフォルトの名無しさん：2018/12/17(月) 12:18:18.33 ID:5M+6Ly1a.net
- どっちも劣勢なんやからいい加減諦めろやw
- 214 ：デフォルトの名無しさん：2018/12/17(月) 12:22:59.36 ID:QtVZQcqx.net
- >>211
> >>113が頓珍漢な場合
> →お前は間違ってる
一体どういう思考回路なんだろ？
ガイジを装ってウヤムヤにしようと思ってるのかな？
そんなことしなくても既にガイジ並の思考能力しかないことはバレてますよ w
>>212
ごめんな、流石に俺は夜中の３時にレスするほど悔しくはないんだよ… w
- 215 ：デフォルトの名無しさん：2018/12/17(月) 12:32:00.75 ID:Lv/9aVPQ.net
- >>208
俺が物事をきちんと分けて考えられないというなら、何を分けて考えられなかったかを示す必要がある。
俺はお前が何を分けて考えられていなかったか示してるぞ。
適当にブ―メランなどと言っても根拠0じゃ何の説得力も無い。
- 216 ：デフォルトの名無しさん：2018/12/17(月) 12:35:07.44 ID:Lv/9aVPQ.net
- >>214
バーカ
頓珍漢だとしてもお前は2通りの解釈が出来なかっただろうが。
オートフィルタのみ1行(の可能性がある)なのにお前は要件全てだと勘違いして決めつけた。
- 217 ：デフォルトの名無しさん：2018/12/17(月) 12:38:15.60 ID:Lv/9aVPQ.net
- >>214
プッ。
この期に及んで悔しくないなどと言っても笑われるだけだぞ。
誰もそんな話信用しないわ。
- 218 ：デフォルトの名無しさん：2018/12/17(月) 19:29:53.15 ID:QtVZQcqx.net
- >>215-216
もうアホには何度言っても無駄なんだろうな w
２通りの解釈どころかその後に付け加えるなら何でもありあり
付け加えないなら>>112の要件を満たさない頓珍漢なレス
で、世間では普通は書いてもない事を付け加えて解釈なんてしない
（まあ一時話題になった忖度とかはあるけどな）
要するに>>113単体では頓珍漢なレスで確定なんだよ
オートフィルターが１行とか言われても、はあ？それがどうしたって話になるだけ
>>217
うんうん、君が夜中の３時にレスしてると言う「事実」があるだけだね w
- 219 ：デフォルトの名無しさん：2018/12/17(月) 20:17:28.92 ID:Lv/9aVPQ.net
- >>218
頓珍漢でもお前は間違ってると何度言っても、頓珍漢で押し通そうとするのが笑える。
>>113単体で2通りの解釈が出来ると言っても後付けすればなどと見当違いなことを言う。
この期に及んでも何ーつ反論していないバカ。
- 220 ：デフォルトの名無しさん：2018/12/17(月) 20:52:45.62 ID:QtVZQcqx.net
- >>219
> 頓珍漢でもお前は間違ってる
根拠も示せずに何度もほざかれても困るし
> >>113単体で2通りの解釈が出来る
解釈書いてみ
まさかこの期に及んでオートフィルターガーとか言うのはやめれくれよ
> この期に及んでも何ーつ反論していないバカ。
またブーメランかよ…
好きだねー w
- 221 ：デフォルトの名無しさん：2018/12/17(月) 21:32:44.47 ID:aWnNi0b/.net
- まだいるのかよ…
- 222 ：デフォルトの名無しさん：2018/12/17(月) 21:34:11.65 ID:Lv/9aVPQ.net
- >>220
何度も書いてる。
1行はオ―トフィルタを掛けるコードが1行と解釈できる。
何度書いても理解出来ないバカ。
日本語に弱いから仕方ないのかねえ。
ハンバーグステーキを作ろうとしてる奴に「付け合わせのマッシュポテトはじゃかりこにお湯を注げば。
1分でできるぞ。」
と言った時、こいつの脳内ではハンバーグステーキが1分でできることになってしまうのだ。
- 223 ：デフォルトの名無しさん：2018/12/17(月) 22:41:30.96 ID:yChZzMqc.net
- >>222
> 1行はオ―トフィルタを掛けるコードが1行と解釈できる。
それがなんの意味もない頓珍漢なレスだ
って何度も書かれてるのに w
> 何度書いても理解出来ないバカ。
> 日本語に弱いから仕方ないのかねえ。
お前がな
> ハンバーグステーキを作ろうとしてる奴に「付け合わせのマッシュポテトはじゃかりこにお湯を注げば。
> 1分でできるぞ。」
> と言った時、こいつの脳内ではハンバーグステーキが1分でできることになってしまうのだ。
意味不明な例え乙
これぞ頓珍漢だな w
- 224 ：デフォルトの名無しさん：2018/12/17(月) 23:23:37.71 ID:Lv/9aVPQ.net
- バカは何度でもループする。
「頓珍漢でもお前は間違い。」に対しての反論が「頓珍漢だ」じゃ反論にならない。
救いようがない程のバカw
- 225 ：デフォルトの名無しさん：2018/12/17(月) 23:25:29.19 ID:Lv/9aVPQ.net
- >>223
そりゃ日本語が理解出来ないんだから意味不明だろうなw
- 226 ：デフォルトの名無しさん：2018/12/17(月) 23:57:53.98 ID:yChZzMqc.net
- >>224
> バカは何度でもループする。
自覚はあるんだ w
>> 頓珍漢でもお前は間違ってる
> 根拠も示せずに何度もほざかれても困るし
は、ガン無視だし
どう反論しろと…
- 227 ：デフォルトの名無しさん：2018/12/17(月) 23:59:31.81 ID:yChZzMqc.net
- ハンバーグ作ろうとしてる奴にドヤ顔でマッシュポテトの作り方語るバカがなにかほざいてるな w
- 228 ：デフォルトの名無しさん：2018/12/18(火) 02:09:02.31 ID:0uF82Fsr.net
- ハンバーーーーーーーグ！
- 229 ：デフォルトの名無しさん：2018/12/18(火) 06:46:14.46 ID:mQMHvFDr.net
- 木枯しを吹き飛ばす熱い闘いが続いております
５ちゃんねら〜の意地と意地とのぶつかりあい
書くのをやめたレスバトラーに待ちうけるのは「敗北」という恥辱にまみれた二文字のみ
「止められないレスがそこにある！」
それでは引き続きおたのしみ下さい
バカ vs バカ
ﾌｧｲｯ!!!!!!!!
- 230 ：デフォルトの名無しさん：2018/12/18(火) 08:11:45.42 ID:C3RGy1+P.net
- >>226
2通りに解釈できるものをお前は理解出来なかったのが根拠と何度も書いているが。
>>113とお前の両方が頓珍漢ということは普通にあり得る。
したがって>>113が頓珍漢だというお前の主張はお前が頓珍漢であることの反論にはならない。
- 231 ：デフォルトの名無しさん：2018/12/18(火) 08:17:07.32 ID:C3RGy1+P.net
- >>227
マッシュポテトはハンバーグの付け合わせだから元々作ることになっている。
ハンバーグの部分であるマッシュポテトの時短への言及であり、1分とはその部分にかかる時間である可能性がある。
全体にかかる時間ではないかもしれないと考えるのがまともな日本人だ。
お前は日本人じゃ無さそうだから理解出来んかもしれんが。
- 232 ：デフォルトの名無しさん：2018/12/18(火) 08:34:19.90 ID:/UA4EEmu.net
- ハンバーグの付け合せにマッシュポテトしか思いつかないとかどんだけ発想が貧しいんだよ w
知識も知能もスッカスカやん
- 233 ：デフォルトの名無しさん：2018/12/18(火) 09:04:54.27 ID:C3RGy1+P.net
- >>232
話をすり替えようとしても無駄だねえ。
単なる例に何言ってんの?
- 234 ：デフォルトの名無しさん：2018/12/18(火) 10:39:29.20 ID:o0ORzhLh.net
- 二人のやりとりでここまで日を跨いで続くのってあまり見ない気がするけど、やっぱりム板住人気質ってことなんだろうな。
頭はあまり良くないのにその自覚が乏しく、細かいことに異常に拘る。自分も少なからずそういう傾向があるから、気をつけないとな……。
- 235 ：デフォルトの名無しさん：2018/12/18(火) 11:37:31.53 ID:qVCHqInm.net
- すごく昔っぽい
- 236 ：デフォルトの名無しさん：2018/12/18(火) 12:16:58.67 ID:/UA4EEmu.net
- 頓珍漢な例を出してごめんなさい
だろ？ w
- 237 ：デフォルトの名無しさん：2018/12/18(火) 19:13:23.83 ID:3O+U276/.net
- 今日も元気やな〜。俺は風引いて寝込んでるからそのパワーが羨ましいよ w
- 238 ：デフォルトの名無しさん：2018/12/18(火) 20:17:01.94 ID:C3RGy1+P.net
- >>236
また新たに日本語を理解出来ない事象が発生かよ。
発想が貧しいなどと今までの話とは関係ない方向へ持ってこうとしたことに対して単なる例と言ったのであって、例としては全くもって的確だ。
- 239 ：デフォルトの名無しさん：2018/12/18(火) 20:17:38.62 ID:mQMHvFDr.net
- バカ共もさすがに恥を知ったんかなw
- 240 ：デフォルトの名無しさん：2018/12/18(火) 20:18:08.69 ID:mQMHvFDr.net
- と思たらまだ続いとったwナイスバカw
- 241 ：デフォルトの名無しさん：2018/12/18(火) 22:18:11.50 ID:ncFc1flt.net
- >>238
まだやるの？
> 決めつけたのは間違いなんだが。
とか言う奴が
> マッシュポテトはハンバーグの付け合わせだから元々作ることになっている。
とかどの口で言ってるんだよ w
配列への格納とオートフィルターが常に関係するわけじゃないのと同じでハンバーグとマッシュポテトは常に関係するわけじゃない
それぐらいは理解できるよね？
なお反論したいなら
> マッシュポテトはハンバーグの付け合わせだから元々作ることになっている。
が正しいと言う根拠持ってきてからにしてくれ
- 242 ：デフォルトの名無しさん：2018/12/18(火) 23:27:31.75 ID:fQRWG6oh.net
- > まだやるの？
たぶんこのスレ皆が君ら2人に対して同じことを思ってるよ。
これだけ思う存分、頭の悪さを見せ付けることができたんだからもう満足だろ？ まだ足りないの？
- 243 ：デフォルトの名無しさん：2018/12/18(火) 23:49:22.42 ID:ncFc1flt.net
- なぜ同じレベルに落ちてまで参入するかな
- 244 ：デフォルトの名無しさん：2018/12/19(水) 00:29:39.75 ID:L6rD7CwA.net
- しかもオートフィルタとか
- 245 ：デフォルトの名無しさん：2018/12/19(水) 01:44:12.73 ID:sYwMlaDi.net
- すみません、先輩方教えて下さいIF 文がうまくいかず困っています。
For分のループの中で
IF文の条件が一致したら 処理A、処理B、と20個くらい連続で複数実行したいのですが。
条件が一致しなくても処理Bからが動いてしまいます。
どのように記述すればよいのでしょうか。
EXCELの勉強サイトで質問をしても、条件１個くらいしか実施しないものしかなく困っております。
- 246 ：デフォルトの名無しさん：2018/12/19(水) 02:24:14.86 ID:38k2t73z.net
- For ...
If 条件 Then
処理A
処理B
...
End If
Next
ってことか？
Select Case かElseIf使えって話か？
- 247 ：デフォルトの名無しさん：2018/12/19(水) 02:27:25.69 ID:esnyd6IN.net
- Ruby なら、a が1 の時は、処理1・2、
aが2 の時は、処理A・B、
上記以外は、処理X・Y
if a == 1
処理1
処理2
elsif a == 2
処理A
処理B
else
処理X
処理Y
end
- 248 ：デフォルトの名無しさん：2018/12/19(水) 02:40:37.42 ID:DnYaqc+Z.net
- >>245
まず今のコード晒せよ
みんなエスパーじゃないんだから
- 249 ：デフォルトの名無しさん：2018/12/19(水) 06:44:44.72 ID:sYwMlaDi.net
- >>246さん
そのような処理が行いたいです。
>>247
cではそのような処理は可能でした。
ruby ではない、rubyが動く環境ではないので
- 250 ：デフォルトの名無しさん：2018/12/19(水) 07:34:58.43 ID:BIch1OKH.net
- コードがわからない限りどうしようもない
- 251 ：デフォルトの名無しさん：2018/12/19(水) 08:02:19.27 ID:+DSMRKxP.net
- if文のthen で
処理複数行実行できますか？というだけのつもりでしたが。
コード準備してまた質問します。
ありがとうございました。
- 252 ：デフォルトの名無しさん：2018/12/19(水) 08:10:35.82 ID:meuITI5l.net
- >>241
???
例だと言ってるのにw
例を挙げたのは俺だから決めつけも糞もない。
日本語の問題なのか悔しくて冷静な判断もできないのか分からんが相変わらず頓珍漢な所に絡んでくるねw
ハンバーグを作るという要件に対して>>113はマッシュポテトを元々作るということになっていると思った。
それでじゃかりこにお湯を注げば1分という発言になった。
それをお前は頓珍漢と断ずるには、その発言の内容を理解しなければならない。
内容が全く分からなかったら頓珍漢かどうかも分からないからな。
そのお前の理解(ハンバーグが1分でできると解釈)が頓珍漢なんだろうが。
従って>>113が頓珍漢かどうかに関係なくお前が頓珍漢なのが確定なんだよ。
- 253 ：デフォルトの名無しさん：2018/12/19(水) 08:15:13.01 ID:6uBXCGRB.net
- >>251
ThenからEnd Ifまでは処理をいくつ書いてもすべて実行される
If 条件 Then
処理1
処理2
処理3
End If
- 254 ：デフォルトの名無しさん：2018/12/19(水) 08:19:00.70 ID:rGeO8V+1.net
- >>252
> ハンバーグを作るという要件に対して>>113はマッシュポテトを元々作るということになっていると思った。
何度書いても頓珍漢なものは頓珍漢なままだよ
> なお反論したいなら
>> マッシュポテトはハンバーグの付け合わせだから元々作ることになっている。
> が正しいと言う根拠持ってきてからにしてくれ
に答えられないなら黙ってた方がいいぞ w
- 255 ：デフォルトの名無しさん：2018/12/19(水) 08:27:36.44 ID:meuITI5l.net
- >配列への格納とオートフィルターが常に関係するわけじゃないのと同じでハンバーグとマッシュポテトは常に関係するわけじゃない
それぐらいは理解できるよね？
常に関係しなくても全くかまわないんだよ。
普通の人間は相手が何かを言った時、それはどういう意味か理解しようとする。
理解しないと頓珍漢かどうかも分からないから当然のことだ。
常に関係するわけじゃなくても、>>113の頭の中ではハンバーグの付け合わせにマッシュポテトを考えたのだろうくらいは想像する。
そういう想像も全くせずに頓珍漢だというなら1分に言及することなく最初から頓珍漢だと言うだろう。
そこでお前はお前の理解の元に「じゃがりこにお湯を注いだくらいでハンバーグが1分で出来るの?」と発言したのと同じ状態になっている。
俺はそのお前の理解の元がおかしいのではないかと言っている
- 256 ：デフォルトの名無しさん：2018/12/19(水) 08:30:26.96 ID:meuITI5l.net
- >>254
頓珍漢であってもお前は「じゃがりこにお湯を注いだくらいでハンバーグが1分で出来るの?」と発言した状態になっている。
この発言が正しいのか?
- 257 ：デフォルトの名無しさん：2018/12/19(水) 12:22:13.52 ID:wuMW/q40.net
- なんでプログラム板住民は機械言語じゃなくて自然言語の言葉尻を捉えて追求したがるの？
- 258 ：デフォルトの名無しさん：2018/12/19(水) 12:31:57.08 ID:rGeO8V+1.net
- >>255
> 普通の人間は相手が何かを言った時、それはどういう意味か理解しようとする。
だから>>114で
> フィルタ掛けた結果を一気に配列に読み込むってできたっけ？
って確認してる
それに対して>>118みたいな頓珍漢なレスが来たんだが w
>>256はマジで意味不明だから無視するね
- 259 ：デフォルトの名無しさん：2018/12/19(水) 12:56:12.77 ID:meuITI5l.net
- >>258
相変わらずのバカっぷり。
お前の>>119で「(要件を満たすのに)VBAで1行で書けるぞ
って方法があるみたいなことを書いてるので聞いただけ」という発言に対して俺は「>>113の発言の1行とは(オートフィルタを掛けるのに)VBAで1行で書けるぞ」という意味なのでは?聞いたんだが。
- 260 ：デフォルトの名無しさん：2018/12/19(水) 17:12:30.63 ID:rGeO8V+1.net
- >>259
> (オートフィルタを掛けるのに)VBAで1行で書けるぞ
だからその回答になんの意味があるんだよ？
って何度も書いてあるんだが
意味があるというならその意味を書いてみなよ
- 261 ：デフォルトの名無しさん：2018/12/19(水) 17:42:15.83 ID:kLNFuq6V.net
- 相変わらず何の臆面もてらいもなくRubyを持ち出すヴァカ w
- 262 ：デフォルトの名無しさん：2018/12/19(水) 18:26:58.94 ID:meuITI5l.net
- >>260
意味が有ろうが無かろうがお前の解釈が間違いだと言ってる。
意味が無かったらお前の間違いは無くなるのか?
無くならねえよ。
- 263 ：デフォルトの名無しさん：2018/12/19(水) 18:39:33.72 ID:meuITI5l.net
- 元々のやり取りは以下の通り。
>>113「VBAで1行で書けるぞ」
>>114(お前)「フィルタ掛けた結果を一気に配列に読み込むってできたっけ？」
>>120(俺)「1行とはフィルタ掛ける部分のことを言ってるんじゃない?」
>>119(お前)「要件とは違うフィルタだけのことを言われても」
>>124(俺)「そうだけど、>>113で言ってる1行はフィルタだけと受け取る方が自然」
>>125(お前)「ガイジなのかな?」
どっちがガイジだよ
- 264 ：デフォルトの名無しさん：2018/12/19(水) 18:41:10.55 ID:GtWYIo2s.net
- vbaでcsv出力するとしたら色々やり方あるけど何が良いんだろう
fso?
- 265 ：デフォルトの名無しさん：2018/12/19(水) 19:02:08.13 ID:rGeO8V+1.net
- >>262
> 意味が有ろうが無かろうがお前の解釈が間違いだと言ってる。
> 意味が無かったらお前の間違いは無くなるのか?
> 無くならねえよ。
根拠出さないと何度繰り返してもそれこそ「意味ないぞ」w
>>263
誰も自然かどうかなんて聞いてないからな
ガイジかもしれないと思うのは当たり前のこと
- 266 ：デフォルトの名無しさん：2018/12/19(水) 20:15:44.96 ID:As82n4u7.net
- >>263
くだらない言い争いの元ってこれなのか？
：で区切れば1行で書けるだろ。
お前ら馬鹿か？
- 267 ：デフォルトの名無しさん：2018/12/19(水) 21:21:27.33 ID:38k2t73z.net
- >>251
Thenのあとに続けて同じ行に命令書いてないか？
Thenで改行したら、End If（かElse）まで条件判定で実行されるぞ
- 268 ：デフォルトの名無しさん：2018/12/19(水) 22:17:38.71 ID:uZ99WTE6.net
- >>267
あれは確かに糞仕様といっていいね
- 269 ：デフォルトの名無しさん：2018/12/19(水) 22:22:43.60 ID:meuITI5l.net
- >>265
根拠は何度も出している。
日本語が不自由なお前が理解出来て無いだけ。
そりゃお前は自然かどうかは聞いてないさ。
お前が聞いたこと以外を言うとガイジになるなら皆がガイジはお前と言うだろう。
- 270 ：デフォルトの名無しさん：2018/12/19(水) 22:34:20.70 ID:Ra+okmqw.net
- シートは回転できないでしょうか?
マリオカートの地面みたいな感じで。
- 271 ：デフォルトの名無しさん：2018/12/19(水) 23:00:26.30 ID:6uBXCGRB.net
- >>270
Excel単独ではできない
- 272 ：デフォルトの名無しさん：2018/12/19(水) 23:22:19.99 ID:DnYaqc+Z.net
- カメラ機能で貼り付けて回転させればワンチャン
- 273 ：デフォルトの名無しさん：2018/12/19(水) 23:48:46.06 ID:v1yTSLob.net
- >>264
outputもあるよ
- 274 ：デフォルトの名無しさん：2018/12/20(木) 00:16:14.50 ID:JEb4hZ4L.net
- バカとバカの死闘もう決着ついたんか？バカ勝った？
- 275 ：デフォルトの名無しさん：2018/12/20(木) 06:48:12.04 ID:As7dWUw1.net
- >>269
> 根拠は何度も出している。
> 日本語が不自由なお前が理解出来て無いだけ。
ん？
２通りの解釈ガーってやつのこと？
どう解釈しても頓珍漢なことに変わりないと何度も書いてるし、そもそもその２通りの解釈すら具体的に提示されてない
> そりゃお前は自然かどうかは聞いてないさ。
> お前が聞いたこと以外を言うとガイジになるなら皆がガイジはお前と言うだろう。
会話の中でいきなり聞いてもないことを喋りだす？
お前がコミュ障であることはわかったよ w
- 276 ：デフォルトの名無しさん：2018/12/20(木) 08:04:34.66 ID:5qyubQfm.net
- >>275
どうしょうも無いバカ。
頓珍漢でもお前は間違いと言ってるだろ。
その根拠も既に何度も書いてる。
2通りの解釈も何度も書いてる。
オ―トフィルタを掛ける処理のみを1行と解釈するのと要件全てを満たす処理に1行と解釈するのの2通りだ。
日本語か通じないバカ。
>>120、>>124、>>147、>>149、>>157、>>181、
- 277 ：デフォルトの名無しさん：2018/12/20(木) 08:05:15.91 ID:5qyubQfm.net
- >>190、>>206、>>216、>>222、>>259で提示してるわ。
アンカー多すぎて怒られる程提示してる。
- 278 ：デフォルトの名無しさん：2018/12/20(木) 08:11:10.39 ID:5qyubQfm.net
- >>275
会話のやり取りとして関係有るなら聞かれたこと以外を話すのは全くおかしくない。
少なくとも>>119と>>124のやり取りをおかしいというならガイジはお前だろう。
- 279 ：デフォルトの名無しさん：2018/12/20(木) 08:32:01.59 ID:As7dWUw1.net
- >>276-278
> オ―トフィルタを掛ける処理のみを1行と解釈
要件を満たさない頓珍漢な回答
> 要件全てを満たす処理に1行と解釈
それかと確認したらより頓珍漢な>>118がしゃしゃり出てきた w
いずれにせよ質問者の要件満たしてないクズ解釈
> 日本語か通じないバカ。
お・ま・え だよ
> 会話のやり取りとして関係有るなら聞かれたこと以外を話すのは全くおかしくない。
お前はあえて無視してるみたいだけど>>114で関係性を問うてるからその解釈は無理がある
- 280 ：デフォルトの名無しさん：2018/12/20(木) 09:21:52.23 ID:5qyubQfm.net
- まだ分かってないのかよ。
お前が>>113が頓珍漢かどうかを判定するところでお前はもう間違っている。
ということはお前は>>113が頓珍漢かどうかも判定出来ていないということだ。
だから結果的に>>113が頓珍漢だったとしてもお前も頓珍漢なんだよ。
お前は間違った判断の元に>>113を頓珍漢と言ってる。
>普通に一気に配列に読み込んで空白行を詰める処理を入れればいいかと
に対して「空白行を詰める処理を入れれば」の文言を理解出来ずに、配列に空白行が残るなとどしてお前の案を頓珍漢と断じることに問題は無いのか?
文言を理解出来ない方が頓珍漢だろう。
これと同じでお前の>>113を頓珍漢だとする根拠が間違ってる。
- 281 ：デフォルトの名無しさん：2018/12/20(木) 09:43:04.50 ID:uzBoRH9c.net
- https://youtu.be/HjJjqSjTJwY
この人の頭いい自慢、笑いがとまらない(ﾜﾗ
自画自賛のみの動画。
自分が恥ずかしくならないのか？
たぶん恥ずかしい動画と気づいたらすぐ消すだろうが今はそれに気づいていない。
とにかく笑えます。
- 282 ：デフォルトの名無しさん：2018/12/20(木) 12:23:32.88 ID:As7dWUw1.net
- >>280
> お前が>>113が頓珍漢かどうかを判定するところでお前はもう間違っている。
根拠のない妄想乙
> ということはお前は>>113が頓珍漢かどうかも判定出来ていないということだ。
妄想に基づく頓珍漢な解釈乙
> だから結果的に>>113が頓珍漢だったとしてもお前も頓珍漢なんだよ。
もう論理も何もない幼児が喚いてるレベル
> お前は間違った判断の元に>>113を頓珍漢と言ってる。
それ、お・ま・え
> に対して「空白行を詰める処理を入れれば」の文言を理解出来ずに、配列に空白行が残るなとどしてお前の案を頓珍漢と断じることに問題は無いのか?
バカなの？
書いてあって理解できないことと、書いてもないことは全然違う話
そんな理解力もないから
> これと同じでお前の>>113を頓珍漢だとする根拠が間違ってる。
なんて頓珍漢な結論で玉砕するんだよ w
- 283 ：デフォルトの名無しさん：2018/12/20(木) 12:50:33.53 ID:5qyubQfm.net
- >>282
根拠は既に何度も書いているのに理解出来ないバカ。
反論出来ないからもうそれでやり過ごそうとする意図がミエミエ。
もうお前の根拠無いは通じない。
根拠はあると言ってるし、場所も言っている。
その根拠がおかしいというならわかるが無いじゃ話にならん。
ところで全く笑わせてくれるが、お前の発言こそ全部ブーメランだ。
>それ、お・ま・え
プッ。
俺は>>113を頓珍漢だなんて断じて無いんだが。
日本語ワカリマスカ?
全然違う話ではない。
間違った判断の元に相手を断じれば、結果的に頓珍漢でも頓珍漢でなくても間違いだ。
書いてある、書いてないは関係ない。
この例は、お前の主張通りだと断じる側が頓珍漢で間違った判断をすれば断じられる側が頓珍漢になってしまうのか?という例だ。
2通りの解釈ができなかったお前が>>113を頓珍漢と断じてもダメということだ。
- 284 ：デフォルトの名無しさん：2018/12/20(木) 16:14:40.53 ID:bktnWAv8.net
- 馬鹿の馬鹿による馬鹿同士の罵り合い
- 285 ：デフォルトの名無しさん：2018/12/20(木) 17:25:31.33 ID:g4q3VPrO.net
- これ何日連続でやってんの？
- 286 ：デフォルトの名無しさん：2018/12/20(木) 17:43:06.63 ID:XT76bUiU.net
- >>113からなら10日間かな。
>>113は（このレスを含まないで）コメント数44件になっているw
- 287 ：デフォルトの名無しさん：2018/12/20(木) 17:56:31.30 ID:2i7dcD7b.net
- （このレスを含まないで）のアスペ感w
- 288 ：デフォルトの名無しさん：2018/12/20(木) 18:37:50.96 ID:As7dWUw1.net
- >>283
> 2通りの解釈ができなかったお前が
まだ言ってるの？
お前はわざと無視してるけどそんな可能性は>>114で確認してる
>>113が回答すれば良かったものをガイジの>>118がしゃしゃり出てきて頓珍漢なレスしただけだろ w
- 289 ：デフォルトの名無しさん：2018/12/20(木) 18:42:03.57 ID:dp1AZAWh.net
- >>285
このスレをこれで埋め尽くすまでじゃね？ w
- 290 ：デフォルトの名無しさん：2018/12/20(木) 20:10:52.84 ID:2i7dcD7b.net
- >>289
もう相当飽きとるでおまえみたいなバカがおもろいんは一時的なもんやし
- 291 ：デフォルトの名無しさん：2018/12/20(木) 22:31:27.95 ID:/FsMMWOI.net
- VBAエンジニアって宣言するのって恥ずかしいことなのかな？
ツイッターのWEB屋達からは苦笑されるし、現場でもVBAは簡単的な扱いで
あまりいい意味で捉えられないように感じる
経歴的にVBA触ってた時間が長いし、
Windows と相性良いし、
VBAなんで叩かれてるんだろう？
- 292 ：デフォルトの名無しさん：2018/12/20(木) 22:38:23.73 ID:2i7dcD7b.net
- webパーはバカやからおいとくとしても
VBAエンジニアとゆうてもうたら言語としてのVBAをメンテナンスしとるエンジニアと思われるやろ
そこはただのエンジニアでええねん開発言語として主にVBAつことるゆうだけで
てかVBA叩いとるのこのスレにおるプロさんゆうバカな連中だけやぞw
- 293 ：デフォルトの名無しさん：2018/12/20(木) 23:05:37.29 ID:rQxzM92i.net
- ロックマン作れるレベルなら、バカにされないんじゃないの?
- 294 ：デフォルトの名無しさん：2018/12/20(木) 23:13:35.65 ID:7HwS24Ld.net
- >>291
恥ずかしいんじゃなくて、根本的に間違ってるんだよ
アプリの開発にはVBAは適してないし、普通は使わない
ちょっとでも複雑なことをしようとするとAPIが必須になるし、ツールも貧弱で開発の効率が悪いから
そして、ワークシートに付属のマクロを書くだけの人はエンジニアと呼べるレベルにないことが多い
まあVBAで作られた社内アプリもあちこちで見た事あるけど、とにかく結果さえ出ればいいって感じでひどいもんだった
体裁の整ったアプリも作れないことはないけど、それこそVBAでは無駄に手間がかかるだけで、ようするに言語(道具)の選び方が適切じゃない
- 295 ：デフォルトの名無しさん：2018/12/20(木) 23:17:37.85 ID:7HwS24Ld.net
- >>293
趣味ならいいけど一般的に商品はVBAで作るわけにいかない
同じ物がVB.netならもっと少ない手間で作れるんだから、開発コストの無駄遣いになる
- 296 ：デフォルトの名無しさん：2018/12/20(木) 23:19:19.18 ID:7HwS24Ld.net
- 「趣味でシステムエンジニアやってます」というのは成立しないと思うのは俺だけか？
趣味の一つとして認知されてるんなら、ここまで俺が書いたことは完全にひっくり返ってしまう
- 297 ：デフォルトの名無しさん：2018/12/20(木) 23:22:10.52 ID:7HwS24Ld.net
- 別に国家資格が必要なわけじゃないから「俺は(VBA)エンジニアだ」と名乗るのは自由
聞いた人がどう思うか、どう思われるかはわからない
- 298 ：デフォルトの名無しさん：2018/12/21(金) 00:33:22.33 ID:ykBrDntQ.net
- >>291
VBAは、あくまでOffice付属のマクロ言語なので、そこに何十年(最大24年)もしがみついてるとかだと、
自己紹介でそうと言われたら、叩くまではないにしても、「はぁ」で流しはするかも知れない。
他の色々出来る中で、「VBAも触れます」なら、構えられることもないんじゃないかな。
- 299 ：デフォルトの名無しさん：2018/12/21(金) 00:45:40.95 ID:t4pJ79vS.net
- 情報処理資格を受かった学生が「こんなの誰でも受かりますよ」って言うけど、
10年以上受からない奴は「いや、そんな簡単じゃないよ」って答える
会社では、新人・老害の会話が噛み合わないw
そういう老害が新人に教えるから、矛盾だらけw
勉強していない奴は、システムを組めない。
何も知らんからw
データ処理に適さない、表示情報が入った、Excel, PDF を成仏させる供養寺を、
住職(エンジニア)が開催してるw
- 300 ：デフォルトの名無しさん：2018/12/21(金) 01:07:43.82 ID:KP9XHOoX.net
- 普通にプロとしてやってる人なら、言語仕様とライブラリ構成さえわかれば、どんな言語でも一定の結果は出せるもんだ
VBAだって言語の一つとして、文法や演算子、変数タイプ、組み込み関数なんかが把握できればプログラムは書けて当たり前なんだよ
- 301 ：デフォルトの名無しさん：2018/12/21(金) 02:33:59.15 ID:j+w4FFhE.net
- >>288
バ−カw
お前が確認したのはお前の1通りの解釈を元に一気に配列に読み込めるかどうかだけだ。
本来、以下のようにすべきところを
Function Check112(strHatsugen As String) As String
If strHatsugen="要件全てを1行" Then
Check112="頓珍漢"
Else If strHatsugen="オ−トフィルタのみ1行" Then
Check112="頓珍漢"
End If
End Function
お前のコードは以下の通りだ。
Function Check112(strHatsugen As String) As String
If strHatsugen="要件全てを1行" Then
Check112="頓珍漢"
End If
End Function
お前のコードではstrHatugen="オートフィルタのみ1行"の場合、戻り値は"頓珍漢"とならない。
- 302 ：デフォルトの名無しさん：2018/12/21(金) 03:18:22.04 ID:KP9XHOoX.net
- 空白を取り除いて配列に入れるのって、結局どうやるのが一番シンプル？
マルチステートメントはとりあえず無しとして、作業シートを使って3行までは短縮できたけど
(セル範囲が決め打ちだからできたとは言えないかな
Sheets("Sheet1").Range("A:C").AutoFilter Field:=1, Criteria1:="<>"
Range("A1:C5").Copy Destination:=Sheets("Sheet2").Range("A1")
ary1 = Sheets("Sheet2").Range("A1:C3")
- 303 ：デフォルトの名無しさん：2018/12/21(金) 05:00:28.02 ID:PkTs+Gix.net
- >>301
夜中まで必死に考えたんだろうな… w
- 304 ：デフォルトの名無しさん：2018/12/21(金) 07:57:42.03 ID:zXpLrdoZ.net
- >>291
他の言語と比べて微妙だから
vbaでも出来るけど他の言語ならもっと楽 なんで使わないの言語使えないの？て思考する人が一定数いるから
- 305 ：デフォルトの名無しさん：2018/12/21(金) 08:20:20.78 ID:j+w4FFhE.net
- >>303
普段から寝るのはあんなもんだ。
>>302
実際のところ、俺も「普通に一気に配列に読み込んで空白行を詰める処理を入れればいいかと」だね。
でも、データ総数300とかじゃどんなやり方でも良いし、気にしない。
効率を気にするなどと言っていても、実際は他で大きなロスしてても気にしない奴多数。
動かした所で大きなロスをしてる所がデータ読み込み部分と分かってから考えれば良い。
俺は一気に配列に読み込むのに慣れてるし、それで早いからそうするのが普通なだけで。
そもそもこういう場合でよくよくやりたいことの詳細を聞くと配列に取り込む必要が無かったりする場合も多い。
- 306 ：デフォルトの名無しさん：2018/12/21(金) 08:22:45.52 ID:j+w4FFhE.net
- >>302
あと、コードの量を減らすのはあまり意味が無い。
速度のためにコードの量はかなり増えることがある。
- 307 ：デフォルトの名無しさん：2018/12/21(金) 08:32:12.60 ID:choQhZIj.net
- 誰でも知ってるようなことでドヤ顔ww
- 308 ：デフォルトの名無しさん：2018/12/21(金) 15:58:03.36 ID:HaYV4Ucy.net
- 突っ込みが幼稚
- 309 ：デフォルトの名無しさん：2018/12/21(金) 20:47:54.84 ID:GEdmC2dK.net
- VBとVBAを間違えてるやつがいるよな
- 310 ：デフォルトの名無しさん：2018/12/21(金) 22:54:11.09 ID:PkTs+Gix.net
- >>308
>>308
- 311 ：デフォルトの名無しさん：2018/12/22(土) 04:42:53.90 ID:LntJy5xX.net
- アンカーを重ねて煽るのは幼稚
- 312 ：デフォルトの名無しさん：2018/12/22(土) 06:45:30.74 ID:FmWZGIo3.net
- >>311
>>308
- 313 ：デフォルトの名無しさん：2018/12/22(土) 21:23:35.57 ID:P36khfsB.net
- アンカーだけで煽った気になるのは幼稚
- 314 ：デフォルトの名無しさん：2018/12/23(日) 00:54:04.25 ID:9AXglOVX.net
- >>313
>>308
- 315 ：デフォルトの名無しさん：2018/12/23(日) 09:47:19.69 ID:qHW9w8NX.net
- >>314-315
>>313
- 316 ：デフォルトの名無しさん：2018/12/23(日) 10:45:49.13 ID:lGbB3Xz8.net
- >>315
>>308
- 317 ：デフォルトの名無しさん：2018/12/23(日) 14:14:36.79 ID:52OagQlj.net
- バカvsバカはまだ静かに継続中かw
- 318 ：デフォルトの名無しさん：2018/12/23(日) 15:09:00.33 ID:O7Ty6bBB.net
- listviewでマルチセレクトから通常にもどすさいに再描画してるんですが、そのさい行がずれるんですが listboxのtopindexみたいなものはないのでしょうか? どうすればずれないようにできますか？
- 319 ：デフォルトの名無しさん：2018/12/23(日) 19:45:55.65 ID:M7vXJwnP.net
- チェックボックス有効無効をきりかえるため再描画してます。その際行がずれます。 すみませんでした。
- 320 ：デフォルトの名無しさん：2018/12/24(月) 19:19:03.28 ID:/XH/s3JJ4
- これを繰り返し構文で書くとどんな感じになりますか？
Cells(1, 6).Value = Cells(1, 1).Value
Cells(2, 6).Value = Cells(1, 2).Value
Cells(3, 6).Value = Cells(1, 3).Value
Cells(4, 6).Value = Cells(1, 4).Value
Cells(5, 6).Value = Cells(2, 1).Value
Cells(6, 6).Value = Cells(2, 2).Value
Cells(7, 6).Value = Cells(2, 3).Value
Cells(8, 6).Value = Cells(2, 4).Value
Cells(9, 6).Value = Cells(3, 1).Value
Cells(10, 6).Value = Cells(3, 2).Value
Cells(11, 6).Value = Cells(3, 3).Value
Cells(12, 6).Value = Cells(3, 4).Value
Cells(13, 6).Value = Cells(4, 1).Value
Cells(14, 6).Value = Cells(4, 2).Value
Cells(15, 6).Value = Cells(4, 3).Value
Cells(16, 6).Value = Cells(4, 4).Value
- 321 ：デフォルトの名無しさん：2018/12/24(月) 22:13:09.28 ID:USpopZY5.net
- Excel VBAにlistviewなんてあったか？
- 322 ：デフォルトの名無しさん：2018/12/24(月) 22:49:04.51 ID:+FgUdfMA.net
- あるよぉ
- 323 ：デフォルトの名無しさん：2018/12/24(月) 23:02:54.97 ID:kr6Bf1Pl.net
- 参照設定でね。
- 324 ：デフォルトの名無しさん：2018/12/24(月) 23:56:46.20 ID:USpopZY5.net
- それはVBAじゃないし
何を参照設定したかちゃんと書けよ
- 325 ：デフォルトの名無しさん：2018/12/25(火) 00:16:00.70 ID:su/K5Fi6.net
- 参照設定もVBAの機能の一つだろ
デフォルトでもいくつか入ってるし、ファイル操作する時はFSOを追加するし、Outlookの操作も定番のテクニックだし
- 326 ：デフォルトの名無しさん：2018/12/25(火) 01:26:51.15 ID:fCRLWXqM.net
- ListViewはライセンス的に微妙なんだよな。
配る場合はダメだった気がする。
恐ろしく面倒な方法で実装すればライセンス的にも問題無いけどそこまでやれる人は殆どいないと思う。
- 327 ：デフォルトの名無しさん：2018/12/25(火) 01:55:29.77 ID:fCRLWXqM.net
- あとツールボックス右クリックでその他のコントロールを参照設定とは呼びたくないな。
- 328 ：デフォルトの名無しさん：2018/12/25(火) 07:15:44.70 ID:wRBkGyE7.net
- >>327
設置すると勝手に参照設定されますから、同じことです
- 329 ：デフォルトの名無しさん：2018/12/25(火) 08:33:21.08 ID:gnAfBdjP.net
- お前が呼びたいとか呼びたくないとか、お前の気分なんぞ知ったことではない
- 330 ：デフォルトの名無しさん：2018/12/25(火) 18:45:28.39 ID:Is6QTt21.net
- Excel に入ってるんじゃないの？
- 331 ：デフォルトの名無しさん：2018/12/25(火) 23:18:20.70 ID:wH59ARy4.net
- 入っとるね
- 332 ：デフォルトの名無しさん：2018/12/26(水) 01:42:12.21 ID:BN5rbpb6.net
- いまのExcel VBAに標準でListViewあるのか？
- 333 ：デフォルトの名無しさん：2018/12/26(水) 05:15:51.11 ID:43KasKaO.net
- 標準の意味とは
VBA可の環境ならコントロールの追加は誰でもできるが
- 334 ：デフォルトの名無しさん：2018/12/26(水) 13:12:31.75 ID:RgV9orAX.net
- シートのコピーでafter:＝worksheets.countしても最後尾に追加されないことがあるんだけど何これ
通常なら問題無い 非表示シートだか同名シートだかが混ざると不穏な動きする
- 335 ：デフォルトの名無しさん：2018/12/26(水) 17:11:11.31 ID:43KasKaO.net
- >>334
思い込みで書いててて仕様を正確に理解してない
コード晒してみ
- 336 ：デフォルトの名無しさん：2018/12/26(水) 17:49:40.48 ID:Le9KM/M7.net
- >>334
afterに入れるのはシートオブジェクトやで？
- 337 ：デフォルトの名無しさん：2018/12/26(水) 21:16:35.59 ID:Y8+MwfS4.net
- >>334
https://sugoikaizen.com/excelvba/worksheets_sheets/
- 338 ：デフォルトの名無しさん：2018/12/27(木) 18:50:28.99 ID:0mQlyYIj.net
- Worksheets.Countだけ指定して最後尾にシート追加することもできるんだな。初めて知ったわ。
- 339 ：デフォルトの名無しさん：2018/12/28(金) 00:28:35.21 ID:M7adF/cl.net
- >>335
解決してるけど状況だけ説明
Thisworkbook.Worksheets("雛形").Copy After:=Thisworkbook.Worksheets(Worksheets.Count)
普通に実行出来て追加される けど末尾に追加されない
雛形シートは非表示で他にブック開いてないのが前提
原因は他の非表示シートが末尾にあったから？ぽい見えるシートの末尾に追加されてた
原因があってるのかは不明だけどコピーの前に全シート表示させる処理書いたら想定どおりに末尾に追加されたから解決としてそれ以上調べてない
- 340 ：デフォルトの名無しさん：2018/12/28(金) 08:07:29.84 ID:7PkHI2ZE.net
- >>339
これで解決は酷いなあ。
このコードじゃダメだろ。
初心者が一番ハマるのに引っ掛かってる。
Worksheets.Countはどのブックのシート数を示してるの?
人間の思い込みと現実が違うことはよくある。
ブックが複数開いてたらThisworkbookがActiveとは限らない。
まあ、これが原因かどうかは分からんけど。
- 341 ：デフォルトの名無しさん：2018/12/31(月) 13:34:36.98 ID:P9+LicCn.net
- コピーしたシートも非表示に設定されてるからじゃね？
- 342 ：デフォルトの名無しさん：2019/01/03(木) 20:12:26.04 ID:m9d94GZ9.net
- すみません、一般論として教えてください
一つのプロージャ内に複数のForNext文を使う場合
カウンタ変数はそれぞれ用意したほうがいいんでしょうか？
それとも全部「i」とかで固定したほうがいいんでしょうか？
- 343 ：デフォルトの名無しさん：2019/01/03(木) 20:38:50.80 ID:rHu6ErP8.net
- 単純にカウンタとしてしか意味が無くて充分に短いループなら全部iでいいよ
- 344 ：デフォルトの名無しさん：2019/01/03(木) 20:52:55.74 ID:m9d94GZ9.net
- >>343
ありがとう
これまで全部「i」で統一してて他で使いたいときは違う変数に明け渡したり…ってしてたんだけど
この前業者の人が書いたコードを見たらそれぞれに変数を与えてたので…
デバッグの時に有利？とか何かプログラム業界の常識みたいなのがあるのかな？と気になって
- 345 ：デフォルトの名無しさん：2019/01/03(木) 21:24:04.00 ID:3ahyrkeA.net
- >>344
自分の頭使えよ
- 346 ：デフォルトの名無しさん：2019/01/03(木) 21:38:30.48 ID:BKcPgeWW.net
- >>344
他で使いたいときに明け渡すなら最初からそれぞれ違う名前にした方がいいんじゃね
- 347 ：デフォルトの名無しさん：2019/01/03(木) 22:08:38.04 ID:/hb1raIC.net
- >>345
ここ質問スレだからそういう幼稚な発言はやめようね。
色んなレベルの人がいるから。
- 348 ：デフォルトの名無しさん：2019/01/03(木) 22:16:13.64 ID:rzUuzEne.net
- >>342
そもそもプロは1つのメソッドに複数のループを書かない
- 349 ：デフォルトの名無しさん：2019/01/03(木) 22:45:11.18 ID:9E4VKJOH.net
- >>342
「プロシージャ」な
procedure
- 350 ：デフォルトの名無しさん：2019/01/03(木) 22:57:49.15 ID:YFBXiFl7.net
- >>344
ループがネストする場合にi,j,kとしたりするのは
FORTRAN由来でコンピュータ黎明期からある
https://qiita.com/yaju/items/38f63900491d4ac51af7
座標だとx,yとかで回したりもするがあまり長い名前は使わない方が良いかと
- 351 ：デフォルトの名無しさん：2019/01/03(木) 23:18:24.27 ID:rHu6ErP8.net
- i,j,kは慣習だけど、それ以外はループ変数といえど意味のある変数名を使うほうがいいぞ
長い名前使うなとか、インタプリタ時代の悪習でしかない
いかにわかりやすい変数名つけるかはセンスもあるけどな
- 352 ：デフォルトの名無しさん：2019/01/03(木) 23:56:28.99 ID:2qiD+7+U.net
- 俺は行ならrow、列ならcolumn、インデックスならindexとかにして
なるべくi, j, kとか使わないわ、別にこだわりはないけど
- 353 ：デフォルトの名無しさん：2019/01/04(金) 00:30:47.29 ID:3QLIqJfD.net
- 俺は一文字だけじゃ見失うから
iii jjj kkk ccc rrrって3文字連打してる
別の変数名への置換もしやすいしね
- 354 ：デフォルトの名無しさん：2019/01/04(金) 00:32:01.54 ID:GFUZolCB.net
- みなさんどうもありがとう
自分はプログラム屋ではないので業界の常識？みたいなものがあれば知りたくて
今までは使うなら「i」、構造的にかぶるなら「j」あたりを使ってましたが
その都度意味のある変数を使う方が多いんでしょうか
その他の変数も基本一文字が多いんですけどこれもあまり誉められたことでは無いのかな
- 355 ：デフォルトの名無しさん：2019/01/04(金) 00:39:25.54 ID:T+XMZC4N.net
- >>354
馬鹿は頭を使うことができんの？
- 356 ：デフォルトの名無しさん：2019/01/04(金) 02:10:11.62 ID:+nkelZ7z.net
- >>352
そんな予約語っぽいの、使いたくない。
- 357 ：デフォルトの名無しさん：2019/01/04(金) 02:40:32.55 ID:MgMPlhfY.net
- 俺は row col idx i i2 i3 をよく使う
- 358 ：デフォルトの名無しさん：2019/01/04(金) 07:27:59.80 ID:M3G9sl2d.net
- シート上の特定Rangeを表してるときならrowとcolumnもありだけど、一般にはiとjかな
それ自体が検索対象になることもまずないし
- 359 ：デフォルトの名無しさん：2019/01/04(金) 08:41:36.91 ID:zy8oD3uq.net
- ローカルのカウンタ変数をiで使いまわしてるけどi2とか分けたほうが良いの？
好み？
- 360 ：デフォルトの名無しさん：2019/01/04(金) 09:27:17.18 ID:+4+fWqKR.net
- >>359
誤読の可能性があるなら、分けた方がいいと思う。
>>351,352あたりが妥当じゃないかな。ただ、例えば行そのものでは
なく行を導出するための数値を入れる変数には、rowじゃなくてrowナントカ
だのにした方がいいのかな。単なるループカウンタならヘタに意味のある
名前を付けない方が「無意味なカウンタ変数です」ということを示すことが
できる気も。自分はループカウンタはとりあえず一文字二文字の変数を
放り込んでそのまま、ということが多い（簡単な処理しか書いたことない）。
- 361 ：デフォルトの名無しさん：2019/01/04(金) 09:54:15.33 ID:DCvNugNP.net
- 個人目的ならそれこそ自由、自分が解りやすければなんでもいい
社内使用で他の人が今後も手を加える可能性があるなら
可読性と一般的な用途を考えてijk辺りがよいと思う
- 362 ：デフォルトの名無しさん：2019/01/04(金) 10:05:37.21 ID:NtMlYI+L.net
- カウンタ変数の1つや2つぐらいケチらず定義しろよ
それこそ先頭で
Dim i1 As Integer , i2 As integer,,, とかやっとけばいいだろ。
こう書くとIntegerよりLongだとか言い出すやつも出てくるけど w
- 363 ：デフォルトの名無しさん：2019/01/04(金) 11:53:23.85 ID:aVQoc2JA.net
- >>361
３ヶ月後の自分は他人
>>362
おれならそう書いてあったら、i1とi2になにかしら特別な意図があるのかと思う
それならちゃんと分かりやすい変数名をつけるべき
- 364 ：デフォルトの名無しさん：2019/01/04(金) 12:16:24.95 ID:YvLbWmko.net
- べきとかええねん
好きなようにしろや
- 365 ：デフォルトの名無しさん：2019/01/04(金) 12:17:38.62 ID:M3G9sl2d.net
- integer使う意味が分からんぞ
ループカウンタに限らず
- 366 ：デフォルトの名無しさん：2019/01/04(金) 12:55:43.45 ID:aVQoc2JA.net
- VBAは16ビットの時代から生き残ってるからなぁ
- 367 ：デフォルトの名無しさん：2019/01/04(金) 14:22:56.70 ID:dyujBTAs.net
- C++試食版みたいな
- 368 ：デフォルトの名無しさん：2019/01/04(金) 15:06:28.56 ID:FLK7qEcT.net
- 文字コードでInteger使うよ
- 369 ：デフォルトの名無しさん：2019/01/04(金) 17:11:54.33 ID:JnujQIz6.net
- 個人プログラムのときは Jは大文字にしてる
ijだとぱっと見差がないから
それから、行と列はc、r変数にしてる
- 370 ： ：2019/01/04(金) 18:43:57.47 ID:ry6hJENG.net
- >>369
列・行では？
- 371 ：デフォルトの名無しさん：2019/01/04(金) 22:12:41.23 ID:ZmFghfmj.net
- officeのパッチにやられた
- 372 ：デフォルトの名無しさん：2019/01/04(金) 22:26:40.57 ID:zvNc5eXN.net
- i,j,kきらい
indexとかcountとかすき
rowIndexとかcolumnCountとかもっとすき
- 373 ：デフォルトの名無しさん：2019/01/04(金) 22:35:43.15 ID:8kQ9PR43.net
- 好き嫌いはチラシの裏に
- 374 ：デフォルトの名無しさん：2019/01/05(土) 01:06:17.29 ID:oO8mkqZ6.net
- 何が書いてあるのか、未来の自分がわかり、他人もわかるのが理想
昔ながらのルール(慣習)は理由なく破るべきではない
- 375 ：デフォルトの名無しさん：2019/01/05(土) 03:31:35.86 ID:7TsgmPMW.net
- 意味のある変数なら意味のある名前をつけてくれよ
- 376 ：デフォルトの名無しさん：2019/01/05(土) 07:37:32.77 ID:1YbtJ0wD.net
- i j kは使い捨てのループカウンターとして世界中に広く認知されてるし入力のコストも低い
いちいち For TemporaryLoopCounter = 1 To 5 とか書きたい人は自由にすればいいけど、それこそ自己満足の世界だと思う
- 377 ：デフォルトの名無しさん：2019/01/05(土) 08:45:01.70 ID:ORiRzU3d.net
- 長く使うプログラムほど扱う対象が汎用的で、変数が具体的に何を指すとか
限定できないため i, j, k になりがち。
逆に具体的対象を扱うプログラムだと変数名も具体的にした方が良いだろうが
汎用的に長く使うものではない。
何が言いたいかというと別に何でもありません。
- 378 ：デフォルトの名無しさん：2019/01/05(土) 09:11:07.61 ID:xejHmutN.net
- かなり乱暴だが
> 変数名の長さはスコープの広さに比例させるべし
- 379 ：デフォルトの名無しさん：2019/01/05(土) 09:12:48.40 ID:tCoREms1.net
- >>378に同意
一般論でいうと、メンテナンス性に優れたプログラムを書くには次の点を意識するとよい
・変数の生存範囲はできるだけ狭く
・変数の生存期間はできるだけ短く
で、これを意識したプログラムの変数名は自然に短くなる
極論すれば、サブルーチンが適切に分割されていてサブルーチン名だけで何やってるか明らかなら、
その中の一時変数名なんか全部一文字でもいい
- 380 ：デフォルトの名無しさん：2019/01/05(土) 14:06:52.83 ID:eDAGI3vR.net
- そもそもループ回すのにループカウンタ使うのが時代遅れ
for each使え
- 381 ：デフォルトの名無しさん：2019/01/05(土) 14:09:46.21 ID:tCoREms1.net
- 時代遅れとか言い出したらVBA自体が使えなくなる
ナンセンス
- 382 ：デフォルトの名無しさん：2019/01/05(土) 14:28:05.44 ID:c7wm3fbX.net
- For Each とループカウンタ使うのとどちらも一長一短あるのを知らない人は早く初心者を脱出してね。
- 383 ：デフォルトの名無しさん：2019/01/05(土) 15:07:14.98 ID:ORiRzU3d.net
- 一長一短ていうか For Each はワンパターンな使い方しか出来ないからドヤ顔するようなもんじゃないな
- 384 ：デフォルトの名無しさん：2019/01/05(土) 15:49:59.34 ID:xejHmutN.net
- >>380
配列Aと配列Bの要素同士を足して配列Cに入れる
って言うのを
For a, b, c in A, B, C
c = a + b
Next
みたいに書けるならいいんだけどなぁ
- 385 ：デフォルトの名無しさん：2019/01/05(土) 16:01:26.52 ID:oO8mkqZ6.net
- C = A + B
って書けた方がいいな
- 386 ：デフォルトの名無しさん：2019/01/05(土) 16:09:26.86 ID:ORiRzU3d.net
- >>384
・そういう構文がない
・c に代入することが実はできない
の二つの意味でダメなんだよね
- 387 ：デフォルトの名無しさん：2019/01/05(土) 16:17:56.11 ID:xejHmutN.net
- >>385
それ自由度が低い
For a, b, c in A, B, C
If b <> 0 Then c = a / b Else c = 0
Next
みたいなことを書きたくなるとかありそうだし
- 388 ：デフォルトの名無しさん：2019/01/05(土) 16:57:08.01 ID:BR5BglFG.net
- linq for vba
- 389 ：デフォルトの名無しさん：2019/01/05(土) 20:12:44.53 ID:FzRtN9wJ.net
- >>378
しかしvbaにはプロシジャより狭いスコープがないんだよ
- 390 ：デフォルトの名無しさん：2019/01/05(土) 20:30:12.97 ID:xejHmutN.net
- >>389
だから何？
最近のモダンな言語と比べてもブロックスコープが無いくらいじゃないの？
- 391 ：デフォルトの名無しさん：2019/01/05(土) 20:53:20.75 ID:tCoREms1.net
- >>389
まともなプログラマならブロックスコープが欲しくなるような大きなプロシージャは書きません
- 392 ：デフォルトの名無しさん：2019/01/05(土) 20:57:58.68 ID:FzRtN9wJ.net
- 実際使い捨てならそれで問題になる事はないんだが
使い捨てのループ変数がループ内でスコープが閉じないのがなぁ
あと宣言位置の問題もあるけど
- 393 ：デフォルトの名無しさん：2019/01/06(日) 01:37:57.50 ID:ckNCIF8F.net
- わかる方がいれば教えてください
ユーザーフォームに配置したラベルに、選択中のセルの値を表示したいです
他のセルをアクティブにしたらラベルの内容も次々と変わるようなものを作りたいです
初心者なりに考えたのですが、
セルの選択をダブルクリックにしてシートモジュールの
Private Sub Worksheet_BeforeDoubleClick(〜)
みたいなものを使うパターン、
ユーザーフォーム側にアクティブセルの値を表示するためのボタンをつけるパターン、
それくらいしかラベルに表示する方法が思いつきません
思っていた上に書いたような動きのものが作れません
そもそもそんなものは不可能でしょうか
セルをアクティブにするだけでそんな動きをするものは作れたとしても重くて(？)実用的じゃないでしょうか
- 394 ：デフォルトの名無しさん：2019/01/06(日) 01:43:01.14 ID:ckNCIF8F.net
- ユーザーフォームが出ている時だけワークシートイベントを発生させることってできますか？
- 395 ：デフォルトの名無しさん：2019/01/06(日) 01:56:18.52 ID:wuHdfDnO.net
- >>393
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UserForm1.Label1.Caption = ActiveCell.Value
End Sub
- 396 ：デフォルトの名無しさん：2019/01/06(日) 02:17:03.95 ID:GQx3m9rS.net
- >>394
発想が根本的に間違っている
イベントは自然に発生するものであり、それを制御しようなどと考えてはいけない
ユーザーフォームが出ていないときはイベントを無視すればよい
- 397 ：デフォルトの名無しさん：2019/01/06(日) 06:33:59.75 ID:VjyciGNt.net
- 自分もVBA初心者だけど書いてみます
>>394
既に言われてるけど、
イベントの発生は操作できないから受け取り側でフォームが読み込まれてるか調べて、
実行するか選択する形になる
思いつく方法は、
・フォームが一つしかないなら、UserFormsコレクション（読み込まれたフォームの一覧）の要素数が1以上かを調べる
・UserFormsコレクションに該当のフォーム名（typename関数で取得できる）があるか調べる
・印になるパブリック変数を宣言し、フォームのInitializeイベント（読み込まれた時に発生するイベント）で適当な値を代入させ、その値を調べる。
もしくはWithEvents（これを付けて宣言した変数のイベントを受け取れる）でシートのイベントを受け取るクラスモジュールを用意して、
それにフォームのラベルを操作させる方法もある
余程シートに依存した目的でない限り、個人的にはこちらの方が自然だと思う
- 398 ：デフォルトの名無しさん：2019/01/06(日) 11:55:51.09 ID:RBr8Qah/.net
- Excel2010の人は1月3日版のアプデを入れないように
【Win】 WindowsUpdateで入れなくても良いKBリスト。2018年12月12日まで分
http://blog.livedoor.jp/nichepcgamer/archives/1039785182.html
- 399 ：デフォルトの名無しさん：2019/01/06(日) 13:03:05.58 ID:BkO4LwOx.net
- >>397
こんな初心者おる？
- 400 ：391-392：2019/01/06(日) 13:13:13.46 ID:ckNCIF8F.net
- >>397さんが言ってることが全く分からないというか一度も触れた事がないので
これを機会に勉強してみます
謎のクラスモジュールを使ってみたいと思っていたので良かったです
みなさんありがとうございました
- 401 ：デフォルトの名無しさん：2019/01/06(日) 13:25:33.73 ID:kaEteaA+.net
- >>399
ググれば出てくることなんだから、初心者でも答えれるやろ。
まあ人によっては初心者は卒業したって判断しそうなくらいのレベルはありそうだが。
- 402 ：デフォルトの名無しさん：2019/01/06(日) 14:02:55.44 ID:L4UGmOY3.net
- >>399
新人研修の半ばぐらいかな
- 403 ：デフォルトの名無しさん：2019/01/06(日) 15:46:11.59 ID:BcE7MgiE.net
- >>400
UserFormで直接WithEvents付きの変数使えるぞ
いろいろチェックとかはぶくとこんな感じ
Private WithEvents ws As Worksheet
Private Sub UserForm_Initialize()
Set ws = ThisWorkbook.Worksheets(1)
End Sub
Private Sub ws_SelectionChange(ByVal Target As Range)
Me.Label1.Caption = Target.Value
End Sub
- 404 ：デフォルトの名無しさん：2019/01/07(月) 02:40:02.74 ID:pgy1rNuG.net
- >>399
プログラミング経験無いまま前任者から引き継いでしまったので、ここで色々教えて貰ってました
最近は調べ方も大体わかってきたので余り来ていませんでしたが、
アドバイス側に回ってもいいかなと思って書いてみました
>>400
分からないのはどの部分でしょうか
後半は>>403さんの通りです
>>403
ヘルプにクラスのみと書かれていたので、フォームでは使えないと思ってました・・・
- 405 ：デフォルトの名無しさん：2019/01/07(月) 05:30:38.59 ID:fq4DjYiu.net
- IntegerよりLongだ
- 406 ：デフォルトの名無しさん：2019/01/07(月) 06:49:25.01 ID:fq4DjYiu.net
- >>362
- 407 ：デフォルトの名無しさん：2019/01/07(月) 18:19:40.41 ID:/LhWJ7aL.net
- Dim tinko as Long
- 408 ：デフォルトの名無しさん：2019/01/07(月) 21:52:39.53 ID:QrgUIT/b.net
- 俺しか見ることないだろうから、
Dim chinko&, unko$
- 409 ：デフォルトの名無しさん：2019/01/07(月) 22:53:42.33 ID:pgy1rNuG.net
- 中学生か・・・
- 410 ：デフォルトの名無しさん：2019/01/07(月) 23:07:15.99 ID:93Abj8CI.net
- セルにindirectを入力しないでプルダウンを連動させる方法はありませんか？
名前”地区” 第一 第二 第三
名前”第一” 製造 塗装
名前”第二” プレス 溶接
名前”第三” 組立 検査
J列にプルダウン”地区”第一 第二 第三
K列が隣のJ列を参照してプルダウン（indirect)が変わるようにしたいのですが、
K列に=indirectを入力するとファイルサイズが大きくなるので避けたいのです。
何か良い方法はありませんか？
https://dotup.org/uploda/dotup.org1740935.zip.html
入力用のブックとupローダーに挙げた台帳ブックを分けた方がいいのは
確かなんですが、要求元は台帳で連動するプルダウンを使いたいとのことで
困っています。ご指導ご鞭撻のほどお願い申し上げます。
- 411 ：デフォルトの名無しさん：2019/01/09(水) 10:11:24.83 ID:pekX2UBC.net
- 新元号対応の更新プログラムで早速バグ発生かよwww
- 412 ：デフォルトの名無しさん：2019/01/09(水) 16:10:15.28 ID:HhjCvbTy.net
- 新元号対応パッチは4月1日以降にしか出せないだろ
それに今はOffice単体じゃなくてWindows側の日付管理APIで一括対応する仕組みになってるし
- 413 ：デフォルトの名無しさん：2019/01/09(水) 16:50:06.39 ID:pp8qimk1.net
- 新元号アップデートでExcel 2010が起動しない不具合、Microsoftが削除を呼び掛け
https://internet.watch.impress.co.jp/docs/yajiuma/1160935.html
- 414 ：デフォルトの名無しさん：2019/01/09(水) 17:45:40.84 ID:Ybhx7jcq.net
- ただちに影響、出てるじゃん、何が立憲民主党だ、ホラ吹きの枝野！
2008年 12808万人 ＋ 5万 △△△△△
2009年 12803万人 − 5万 ▼▼▼▼▼
2010年 12806万人 ＋ 3万 △△△
2011年 12780万人 −26万 ▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
2012年 12752万人 −28万 ▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
2013年 12730万人 −22万 ▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
2014年 12709万人 −21万 ▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
http://lavender.5ch.net/test/read.cgi/asaloon/1546600138/l50
【モンサント、アマルガム】 厚労省、危険物を安心て、ふざけんな、国いらん。オノ・ヨーコ「来るな」
http://rosie.5ch.net/test/read.cgi/liveplus/1547000522/l50
- 415 ：デフォルトの名無しさん：2019/01/09(水) 18:41:39.05 ID:B8oaeAR+.net
- 「ぼくが政権にいる間は影響無いことにしておきます」(のんのん)
- 416 ：デフォルトの名無しさん：2019/01/09(水) 22:29:26.70 ID:60CROlND.net
- 安倍の犬うぜー
- 417 ：デフォルトの名無しさん：2019/01/10(木) 00:17:06.97 ID:RQUJx46Y.net
- ＶＢＡのフォームのツールボックスにコントロールを追加したいのですが、右クリックで「その他のコントロール」を追加してもコントロールの追加ダイアログが表示されず無反応のまま終わってしまいます。
ＷＩＮ７（64） OFFICEは2010（32） 2013（32） 2016（32）を入れ替えましたが全て同じでした。
C:\Windows\System32 C:\Windows\SysWOW64 どちらにもFM20.DLLは入っています。
オフィスのクリーンアンインストールも試しました。ツールの参照設定で参照しなおしてもＮＧです。
ＯＳに問題があるかもしれませんが、何かチェック事項はありますか？
よろしくお願いします。
- 418 ：デフォルトの名無しさん：2019/01/10(木) 00:28:18.54 ID:RQUJx46Y.net
- >>417です
参考までに、これと同じ状態です
https://answers.microsoft.com/ja-jp/msoffice/forum/all/excel/15087c63-48d1-48b8-84ba-4c6a693bc6e8
- 419 ：デフォルトの名無しさん：2019/01/10(木) 13:01:25.04 ID:xPJRPdGO.net
- fm20.dllで使えるコントロールってなんだ？
- 420 ：デフォルトの名無しさん：2019/01/10(木) 15:17:22.62 ID:sOvEngqx.net
- >>419
追加前の標準フォームのコントロール群です。
フォームを挿入するとエクセルのツールのメニューの方で自動的に有効になります。
ActiveXとかツールボックスのコントロールとか関係あるでしょうか？
- 421 ：デフォルトの名無しさん：2019/01/10(木) 20:21:39.50 ID:MwVMQTRa.net
- プログラム初心者ですがVBA勉強するのに優しく解説してくれてるサイト教えてください
- 422 ：デフォルトの名無しさん：2019/01/10(木) 21:44:24.98 ID:RQUJx46Y.net
- >>417です
C:\Documents and Settings\ユーザ名\Application Data\Microsoft\Forms
の中を見たところEXCEL.boxのみでしたが、他何か入っていますか？
- 423 ：デフォルトの名無しさん：2019/01/10(木) 21:59:37.39 ID:tfDJlaMd.net
- >>420
自動的に有効になるならそのまま使えばいいじゃん
- 424 ：デフォルトの名無しさん：2019/01/10(木) 22:06:22.42 ID:X3kdRf9X.net
- >>421
ここ
- 425 ：デフォルトの名無しさん：2019/01/10(木) 22:08:24.35 ID:MwVMQTRa.net
- なんだお前きも
- 426 ：デフォルトの名無しさん：2019/01/10(木) 23:01:57.46 ID:RQUJx46Y.net
- >>423
有効になるのは「標準のコントロール」のみだけです。
使いたいのはWebBrowserコントロールなのですが、それはデフォで表示されていないので追加をする必要があります。
他のＰＣでは問題なく出来ていますが、１台だけ同じ手順で追加できないＰＣがあるので困っています。
http://image.itmedia.co.jp/ait/articles/1502/06/ExcelVBA9TipsForm_02.png
このイメージでいうとツールボックスに地球のアイコンがありますよね。これを追加するために
イメージ右半分のコントロールの追加のダイアログを出したいのですが出ないという意味です。
- 427 ：デフォルトの名無しさん：2019/01/11(金) 02:46:48.54 ID:OnlOg3zM.net
- >>426
同じ手順でできるPCとできないPCがあるならPC個別の問題かな
うちの環境では MicrosoftWebBrowser なら ieframe.dll を使っているようだけど
- 428 ：デフォルトの名無しさん：2019/01/11(金) 03:33:50.23 ID:OnlOg3zM.net
- フォームが表示されている画面で 表示→ツールボックス
でツールボックスを表示してないと「その他コントロール」の項目が選択できないってやつかな？
- 429 ：デフォルトの名無しさん：2019/01/11(金) 08:37:10.61 ID:sIbnloi9.net
- いやいや、これは何かが壊れているわけで、当然PC個別の問題だし、ツールボックスが表示されている状態でその他のコントロールを選択すると普通は表示される筈のダイアログが表示されないという問題。
ExcelじゃなくてWindowsに問題のある可能性もある。
- 430 ：デフォルトの名無しさん：2019/01/11(金) 09:14:26.57 ID:YHHsLUsK.net
- 返信ありがとうございます。
私もＯＳ自体に問題があると思いますが出先のＰＣなので実際誰が何をしているのやらな状態です。
私はプログラマーではないので詳細はわからないのですが、ダイアログの参照先を調べてみた限りでは
ActiveXコントロールのDLLを色々なフォルダに参照にいっているようで、さすがにこれだけけのコントロールが壊れているとは考えにくいため
コントロールを表示するためのＯＳとの手続きの部分がおかしくなっている気がします（ｏｆｆｉｃｅ側の要求にＯＳが応えない）
ＯＳを初期化してしまえば良いと思うのですがもしそれで何かあった場合私では責任が取れないのでお手上げの状態です……トホホ
まずはiframe.dllの所在を調べてみます。上司は私より疎いのでなんとかならないの？の一点張りですが
もしどうしようもない場合もう一度言ってみたいと思います。（多分ここで解らなければお手上げだと思うので）
>>428 ツールボックスは表示できます（フォームをアクティブにして、メニューの表示で選択）
- 431 ：デフォルトの名無しさん：2019/01/11(金) 12:08:47.38 ID:OnlOg3zM.net
- あと一つだけ、参照設定画面でライブラリの優先順位が正常なPCと同じかどうか見たほうがいいかも
- 432 ：デフォルトの名無しさん：2019/01/11(金) 12:39:42.06 ID:1sVePy4G.net
- >>430
多分、レジストリに登録されているActiveX情報を見に行っているだけで実際のdllは見に行っていないと思う。
dllを見に行くのはダイアログ上でチェックした時じゃないかな。
リストアップに問題があるとすればレジストリに問題があるとか。
でも単純にそのダイアログを表示するだけの所でこけている可能性もある。
WordとかAccessでも同じ状況なのかな?
他にOffice以外でActiveXのリストを表示できるアプリがあれば、そこでは問題無いかなど。
- 433 ：デフォルトの名無しさん：2019/01/11(金) 13:24:28.67 ID:UHhRfKCF.net
- >>431
>>432
有用な情報ありがとうございます！
ここら辺も重点的に調べてみます！！
- 434 ：デフォルトの名無しさん：2019/01/11(金) 18:28:05.98 ID:s+JlNqnO.net
- オフィスを少し古いバージョンにロールバックさせてみれば？
2010とか2003にしろって言ってるわけではなくて
2016のパッチの適用状態を最新から4世代くらい前に戻してみてはどうかって言う話ね
- 435 ：デフォルトの名無しさん：2019/01/12(土) 11:49:00.24 ID:uvKv7UXV.net
- まだエクセルωなんて使ってるのかωω
- 436 ：デフォルトの名無しさん：2019/01/12(土) 12:31:34.63 ID:e9xF8Gpo.net
- ・客とのデータ交換フォーマットのデファクトスタンダード
・文字列、表、図形を混合したセマンティックレスな文書作成ツールとして優秀
・インストール監査がかからない
この条件を満たすツールは今のところエクセルしかないのでエクセルは必要
でもVBAの存在意義には正直なところ懐疑的かな
- 437 ：デフォルトの名無しさん：2019/01/12(土) 12:35:57.04 ID:02ysTAL5.net
- 【奇跡のリンゴ】 オノ・ヨーコ「来るな殺される」
http://rio2016.5ch.net/test/read.cgi/beatles/1547022582/l50
- 438 ：デフォルトの名無しさん：2019/01/12(土) 13:57:32.57 ID:Sk8d17OT.net
- エクセルωって何？
- 439 ：デフォルトの名無しさん：2019/01/12(土) 16:04:54.69 ID:+r4m8XcO.net
- おちんちん
- 440 ：デフォルトの名無しさん：2019/01/12(土) 20:42:36.47 ID:WuY9EGhJ.net
- >>436
すごい早口で言ってそう
- 441 ：デフォルトの名無しさん：2019/01/13(日) 00:05:22.07 ID:hjY5Ys6w.net
- 割り当てたショートカットキーが競合した際の優先順位ってどうなっているのでしょう。
複数ブックでマクロオプションが競合した場合は、先勝ちのような気がします。
OnKeyはそれよりも強い？
自ブックに割り当てたショートカットを優先させる手段はありますか？
- 442 ：デフォルトの名無しさん：2019/01/13(日) 04:14:15.34 ID:WBvXKiKr.net
- フォーカス順じゃないのか?
- 443 ：デフォルトの名無しさん：2019/01/13(日) 06:56:01.77 ID:SAPxjsPr.net
- >>442
えーと、同じキーアサインを持っているブック、A→Bの順に開いて、Bにフォーカスが当たっている状態で、Aのキー割付が反応しました。
先に読み込まれた方が居座るのかと、、
フォーカス順ってどういう状態？
- 444 ：デフォルトの名無しさん：2019/01/13(日) 07:17:03.79 ID:m/N1o858.net
- >>443
アクティブなブックかと思ってた
- 445 ：デフォルトの名無しさん：2019/01/13(日) 07:37:12.12 ID:SAPxjsPr.net
- >>444
そうだと嬉しいんだけど
- 446 ：デフォルトの名無しさん：2019/01/13(日) 20:14:37.35 ID:9xnKbe6r.net
- こんにちは>>417です。
更新の削除（ロールバック）も試してみたのですが改善しなくて結局もうお手上げ状態でした。
他のofficeアプリでも呼べなかったのでとりあえずドライブごとバックアップ取ってシステム入れ直すことにしました。
パスワードがないとか、アクティベーションができないとか、インストールしていたプログラムの原本がないとかどうなってんだよこの会社は程度には散々な目に合いました。
今どうにかこうにか復旧できて明日の業務には間に合いそうです。
ＩＤ・ＰＷを統合管理する何かを作らないとダメかも・・・
もうしんどいのでおうち帰りますＴ−Ｔ
アドバイスくださったかたどうもありがとうございました。
なんかおいしいものたべたい……
- 447 ：デフォルトの名無しさん：2019/01/13(日) 22:13:52.77 ID:4kwCYp6o.net
- お疲れ様としか言いようがない
- 448 ：デフォルトの名無しさん：2019/01/13(日) 23:14:49.60 ID:W6yQzIWL.net
- 黴の生えた産廃に固執し先へ進む努力をしてこなかった人間と組織の末路
- 449 ：デフォルトの名無しさん：2019/01/13(日) 23:49:20.57 ID:mzAlUYGr.net
- かわいそうに
くだらないトラブルで連休が潰れるなんてな
最初から.NETにしてたらゆっくり休めたかもなぁ
- 450 ：デフォルトの名無しさん：2019/01/13(日) 23:56:50.10 ID:LesaGnrm.net
- 会社がシステム更新の費用をケチって社員に残業や休出を強いるのはブラック判定丸です
- 451 ：デフォルトの名無しさん：2019/01/14(月) 01:11:47.03 ID:HbfNSvAf.net
- .netってvbaと比べて難易度高い？
- 452 ：デフォルトの名無しさん：2019/01/14(月) 01:27:46.11 ID:p535EsUF.net
- .NETは簡単すぎて驚くほど
- 453 ：デフォルトの名無しさん：2019/01/14(月) 06:51:38.95 ID:ztoWl03f.net
- じゃjavascriptってvbaと比べて難易度高い？
- 454 ：デフォルトの名無しさん：2019/01/14(月) 09:16:46.39 ID:Kw7zClor.net
- >>450
重度になると、ExcelをCalcに入れ替えられます。
- 455 ：デフォルトの名無しさん：2019/01/14(月) 09:44:43.02 ID:p535EsUF.net
- Calcのほうがマシでは？
機能面でも上だし無料でライセンスやインストールでのトラブルなどないからね
- 456 ：デフォルトの名無しさん：2019/01/14(月) 09:53:44.76 ID:/nPFdxzS.net
- >>453
VBA(というかVBシリーズ一般)ユーザーは他のものを覚えようとしないから未だにVBAユーザーなのだから、
VBAではないものは何であろうと極めて難しいよ
- 457 ：デフォルトの名無しさん：2019/01/14(月) 10:04:01.93 ID:p535EsUF.net
- 高い金を払ってるのだから問題をサポートに投げなきゃ損だよ
連休を使って自力解決するぐらいなら最初から無料・サポート無しのOSSツールを使うのが正解
- 458 ：デフォルトの名無しさん：2019/01/14(月) 10:21:32.96 ID:Gjhb4oYZ.net
- Calc使ったこと無いだろ…
動作が安定しないしよくわからない独自仕様があるから困るわ
絶対パス使って別ファイルのデータを参照しにいったら、内部的に相対パスに変換されてるらしくて、
ファイルの位置を変えたらリンクを張り直さないと動かないとかだし
- 459 ：デフォルトの名無しさん：2019/01/14(月) 10:27:00.01 ID:p535EsUF.net
- エクセルだって
動作安定しない(ちょくちょく落ちる、ファイル壊れる、操作が失敗する)
へんな独自仕様の塊(そもそも表計算の標準仕様とは?)
ファイル移動したらリンク切れる(当たり前)
もしかしてなんか違うツールの話してる？
- 460 ：デフォルトの名無しさん：2019/01/14(月) 10:49:16.77 ID:rhE9Hj5A.net
- calcってwindowsの電卓のことじゃなかったのか？
- 461 ：デフォルトの名無しさん：2019/01/14(月) 10:53:17.36 ID:rhE9Hj5A.net
- プロのプログラマならショートカット使うから
Winキー + E + calc + ENTERキー
でいつも瞬時に電卓立ち上げてるからな
その間0.1秒
- 462 ：デフォルトの名無しさん：2019/01/14(月) 11:22:28.62 ID:/xEWvTMC.net
- 電卓で計算してExcelに入力するおじさん見たことある
- 463 ：デフォルトの名無しさん：2019/01/14(月) 11:55:28.16 ID:9Cudnq1q.net
- 無料の、Libre Office を使えば？
- 464 ：デフォルトの名無しさん：2019/01/14(月) 12:42:47.66 ID:aPj/koI6.net
- >>446
おまえが壊したんだろどうみても
- 465 ：デフォルトの名無しさん：2019/01/14(月) 12:50:29.27 ID:w9DNi3U5.net
- 電卓ボタンがあるのに
- 466 ：デフォルトの名無しさん：2019/01/14(月) 15:17:38.41 ID:frEC6XsU.net
- >>464
典型的なステレオタイプ
- 467 ：デフォルトの名無しさん：2019/01/14(月) 15:19:29.30 ID:kL0Onkfi.net
- >>459
馬鹿は新しいものが良いものだと思ってるバージョンすぐ上げるからそうなる
- 468 ：デフォルトの名無しさん：2019/01/14(月) 16:17:48.40 ID:p535EsUF.net
- と思ってる人がセキュリティ事故や上の方でやらかしたようなトラブルにハマっっちゃうんだよな
何事も枯れてるほうがいいなんてのはとうの昔の話で、今は素早いアップデート(とテスト)が大切なんだよ
- 469 ：デフォルトの名無しさん：2019/01/14(月) 17:26:03.90 ID:YUjplXjc.net
- ID:p535EsUF
本日の死んだ方がいい大馬鹿
- 470 ：デフォルトの名無しさん：2019/01/14(月) 17:36:28.59 ID:Kh7Ilxpb.net
- でもVBAなんて未来ないじゃん
今から覚える意味ないのは間違いない
- 471 ：デフォルトの名無しさん：2019/01/14(月) 19:11:25.88 ID:p535EsUF.net
- ロジカルに意見できなくなって暴言を吐くしかできなくなった人ってたまに居るけどなんかかわいそう
- 472 ：デフォルトの名無しさん：2019/01/14(月) 19:11:30.68 ID:6UwZJ038.net
- 未来は無くても現在はあるから
- 473 ：デフォルトの名無しさん：2019/01/14(月) 19:15:17.29 ID:p535EsUF.net
- 過去の負債は沢山ありそうだ
- 474 ：デフォルトの名無しさん：2019/01/14(月) 19:21:43.79 ID:qRVrYCla.net
- いい加減、マクロの実行だけはできるけどVBEは別途開発者ライセンスの購入が必要、くらいの弾圧はしていいと思う
さすがにいつまでも甘やかしすぎ
- 475 ：デフォルトの名無しさん：2019/01/14(月) 19:23:33.71 ID:Kw7zClor.net
- >>462
意外と普通にいるんだわ。
- 476 ：デフォルトの名無しさん：2019/01/14(月) 20:35:40.54 ID:Cz3RFHYj.net
- ろくに組めない奴がマウント取りたがってる構図だな。
実際、俺の回りにいるできる奴はVBAを駄目だとか言う奴はいない。
- 477 ：デフォルトの名無しさん：2019/01/14(月) 20:43:07.10 ID:qRVrYCla.net
- >>476
実際、できる奴なら必ず他の選択肢を持っているからね
VBAに縛られていないから悪く言う必要もないだけであり、彼らが積極的にVBAを選択することはないよ
- 478 ：デフォルトの名無しさん：2019/01/14(月) 20:51:06.32 ID:Cz3RFHYj.net
- >>477
まあ、できる奴はC#も使わんけどね。
C++使うわな。
- 479 ：デフォルトの名無しさん：2019/01/14(月) 21:02:23.95 ID:qRVrYCla.net
- >>478
無意味な拘りで3倍の工数をかける奴は「できる奴」とは言わない
ただの迷惑で無能なオタクだな
- 480 ：デフォルトの名無しさん：2019/01/14(月) 21:57:12.74 ID:fMQSLe21.net
- C#やC++のスレでは自慢できないからここでマウントしたがる…というわけですね
- 481 ：デフォルトの名無しさん：2019/01/14(月) 22:21:10.88 ID:HbfNSvAf.net
- vbaのいいところってエクセル持ってれば無料で使えて大体のクライアントpcにエクセル入ってるって事なんだからあんまりあーでもないこーでもない言ってやるなよ
- 482 ：デフォルトの名無しさん：2019/01/14(月) 22:26:43.78 ID:HmGTNO3E.net
- エクセルのＶＢＡってシート＝変数の一覧みたいなものだし
素人にはやりやすいだからエクセルは好きですよ。
そんな感じでプロの人と棲み分けできていると思う。
- 483 ：デフォルトの名無しさん：2019/01/14(月) 22:26:54.46 ID:87eYPPUj.net
- Officeが入ってなくてもWindowsパソコンには必ず入ってるJavaScriptやC#の立場は
- 484 ：デフォルトの名無しさん：2019/01/14(月) 22:34:56.07 ID:HmGTNO3E.net
- JavaScriptっていますごく人気あるんじゃないの？
- 485 ：デフォルトの名無しさん：2019/01/14(月) 23:07:34.41 ID:Cz3RFHYj.net
- 結局、出来ない奴ってのはオラが世界だけなんだよな。
C#なんて出来ないこといっぱいあるのに工数とかいって言い訳するんだよ。
なんであんな遅くて出来ないこといっぱいのクソ言語使うのかねえ。
なんて言われた時の反論がバカにしてるVBAと同レベルの反論をするんだよな。
まともな奴ならそういう都合が分かってるからマウントなんて取らないものなんだが。
- 486 ：デフォルトの名無しさん：2019/01/14(月) 23:28:28.98 ID:HmGTNO3E.net
- >>485
あなたのいう出来る出来ないっていうのは何を指しているのかは解りませんが私にとっては何の価値も意味もないです。
それともあなたは自分が出来る奴っていう自慢をしたいんですか？
あなたが本当に凄いならあなたのいう下らないレベルの言語のスレではなく、もっと凄い人が沢山いるスレが相応しいと思います。
- 487 ：デフォルトの名無しさん：2019/01/14(月) 23:36:15.26 ID:6n/s2HAk.net
- >>478
キミ面白いね
- 488 ：デフォルトの名無しさん：2019/01/15(火) 01:46:38.96 ID:yHGEgwFF.net
- >>468
働いたこともない無職か
- 489 ：デフォルトの名無しさん：2019/01/15(火) 08:47:01.01 ID:2H7V8WUe.net
- >>486
出来る奴ってのはどんな言語にもいるけど言語の優劣を語るような奴は出来ない奴の典型。
C#の方が...などと言う奴の言ってることってのは突き詰めると「プログラマーなんて底辺」なんてのと一緒なんだよ。
そんなことも分からないからマウント取ろうと頑張るんだね。
自分のバカさ加減を喧伝するようなもんだ。
- 490 ：デフォルトの名無しさん：2019/01/15(火) 09:14:01.41 ID:S3yO0kW1.net
- >>489
自己紹介乙
- 491 ：デフォルトの名無しさん：2019/01/15(火) 13:10:33.30 ID:4ICOKV5/.net
- 相手するなよ…
- 492 ：デフォルトの名無しさん：2019/01/15(火) 15:44:09.85 ID:+MTMyzJj.net
- アプデしたらExcelうごかんくなった
たすけてえろいひと
- 493 ：デフォルトの名無しさん：2019/01/15(火) 17:14:50.09 ID:bs6RyUw7.net
- まず服を服を脱ぎます
- 494 ：デフォルトの名無しさん：2019/01/15(火) 17:49:29.10 ID:yHGEgwFF.net
- >>492
ID:p535EsUFに聞け
- 495 ：デフォルトの名無しさん：2019/01/15(火) 17:53:44.09 ID:LAAyKIEn.net
- >>489
できる奴ほど言語のメリットデメリットを正確に理解してるから優劣を語る
出来ない人はそもそも語るほどの知識がない
- 496 ：デフォルトの名無しさん：2019/01/15(火) 20:59:40.68 ID:2H7V8WUe.net
- >>495
メリット、デメリットを把握してたら優劣つかないんだが。
そうだな、このスレで何度となく言われてることだが、Excelのみで完結できるというメリットを挙げると、別ファイルが有っても大きな問題じゃないとかくだらない言い訳を始めるんだよ。
今まで、どんな場合でもVBAは駄目とか言ってたくせに。
- 497 ：デフォルトの名無しさん：2019/01/15(火) 21:49:29.77 ID:LAAyKIEn.net
- もうそれしか拠り所がない感じなのかな
- 498 ：デフォルトの名無しさん：2019/01/15(火) 23:55:27.89 ID:7/bomr1d.net
- 出たな単一ファイル老人
- 499 ：デフォルトの名無しさん：2019/01/16(水) 12:53:07.07 ID:dguj1mvw.net
- どんな場合でもと言ってたのが破綻したわけだ。
それに、この点は全てに係る重要な点だ。
他にも沢山あっただろ。
でもこれ1つで「どんな場合でも」は破綻したな。
- 500 ：デフォルトの名無しさん：2019/01/17(木) 10:25:15.47 ID:yJSDrWu9.net
- そもそも職場でexcelしか許可されてなくてほかのソフトが入れられない人にとって
ほかの言語がどれだけメリットがあっても使わせてもらえなければどうしようもないんじゃね
俺はVBA以外も多少知っているけどそっちの話は別のスレでやってる
- 501 ：デフォルトの名無しさん：2019/01/17(木) 11:51:25.20 ID:a+HEJ0Au.net
- 本当に必要なら申請すれば入れさせてもらえるはずとか言ってもねぇ
VBAでは絶対無理ってわけでもなく、出来ないこともないので、
本当に必要かって言われるとそうではないことも多いからなぁ
- 502 ：デフォルトの名無しさん：2019/01/17(木) 12:21:24.46 ID:oU9OMPiG.net
- C#やPowershellも含めて使えないってことは滅多にないだろ
そういう特殊環境を前提に語るべきではない
- 503 ：デフォルトの名無しさん：2019/01/17(木) 12:56:14.54 ID:JYUOuN3I.net
- 仕事ではその特殊環境となる場合が結構あるんだが。
VBA禁止って所もある。
けどこのスレはVBAが前提なんでね。
C#やPowerShell禁止はデメリットになるけどVBA禁止はデメリットにならないという前提を理解出来ない奴は結構来るけど。
- 504 ：デフォルトの名無しさん：2019/01/17(木) 13:09:47.45 ID:gy8QMGRk.net
- VBA禁止の本当の意味は、
馬鹿が作ったVBA禁止
- 505 ：デフォルトの名無しさん：2019/01/17(木) 13:42:50.54 ID:K8cT5dis.net
- IEをオブジェクトにしてフォームに入力、実行まではできます。
実行後、更新されたHTMLを取得するにはどうすればよいのでしょうか？
- 506 ：デフォルトの名無しさん：2019/01/17(木) 13:45:27.52 ID:Vm2XnGVD.net
- >>500
わかるわ。うちもシンクライアントでガチガチにＯＳ固められてるから必然的にVBAとJavascript覚えた。
- 507 ：デフォルトの名無しさん：2019/01/17(木) 14:38:35.71 ID:m9vUe5gc.net
- >>505
VBAでやることではありません
RPAでも購入してください
- 508 ：デフォルトの名無しさん：2019/01/17(木) 16:39:21.64 ID:yJSDrWu9.net
- >>502
C#やPowershell のスレでやるべきである
- 509 ：デフォルトの名無しさん：2019/01/17(木) 16:39:45.91 ID:Vm2XnGVD.net
- >>505
objIE.Document.Body.innerHTML で読めないの？
- 510 ：デフォルトの名無しさん：2019/01/17(木) 16:44:36.37 ID:YCcy3q+Y.net
- >>502
ここはVBAのスレ。文字読めないヴァカ？
C#やPowershell自慢やりたいんならそのスレに逝けアホンダラ
- 511 ：デフォルトの名無しさん：2019/01/17(木) 16:47:10.66 ID:6nl0xXGy.net
- >>510
何で自慢になるんだ？
馬鹿なのか？
- 512 ：デフォルトの名無しさん：2019/01/17(木) 17:43:02.84 ID:8rj4oJ0j.net
- 馬鹿には無理
- 513 ：デフォルトの名無しさん：2019/01/17(木) 18:08:51.74 ID:yJSDrWu9.net
- 自慢じゃなくて荒らしだな
- 514 ：デフォルトの名無しさん：2019/01/17(木) 19:42:56.03 ID:buYHz7fQ.net
- >>505
普通は、Ruby, Selenium WebDriver, Nokogiri で、スクレイピングするけど、
ピラフ大王は、5ch のスレを、PowerShell でスクレイピングしていた、強者！
- 515 ：デフォルトの名無しさん：2019/01/17(木) 19:57:04.61 ID:Vm2XnGVD.net
- >>514
あ、俺Seleniumでスクレイピングしてるわ
ＩＥ面倒なんだもんｗ
- 516 ：デフォルトの名無しさん：2019/01/17(木) 20:39:11.18 ID:JYUOuN3I.net
- IEオブジェクトはHTMLコード内の改行も1つのノードとして扱ってる点が特殊だな。
MSXML2.XMLHTTPとかhtmlfileでやる場合はそんなこと無いけど。
- 517 ：デフォルトの名無しさん：2019/01/17(木) 20:51:55.46 ID:/w6CmWBz.net
- スクレイピングをわざわざVBAでやろうという発想がどこから出てくるのか不思議だな
個人なら裁量があるのにあえてVBAを使う選択はありえないし、
会社だとするとスクレイピングをやろうと考える程度にリテラシーがありコンプライアンス意識が低く、
かつ他のツールを使えない程度には厳格なちゃんとした企業なのにRPAを買う金はない?
- 518 ：デフォルトの名無しさん：2019/01/17(木) 21:30:07.38 ID:Vm2XnGVD.net
- >>517
どうしてって、うーん、ただPCにOFFICEが入ってたから使ってるw
javascriptもPerlとかも無料だし、大体どこでも使えるし何か買うほどやる気ないし……
あなたの思っていることは理にかなっていると思うよ、多分色々なことを知っててそれが出来れば視野も広がるって親切心なんだろう。
でも、なんつーか個人で使うだけだから脱線しててもやりたいことが短時間で出来ればいいっていう視点もまぁ理解して欲しい。困ったら聞くかもしんないけどお手柔らかに頼みますw
あとありがとう。
- 519 ：デフォルトの名無しさん：2019/01/17(木) 21:48:09.40 ID:3qXsUeDf.net
- IEが消えりゃVBAでスクレイピングなんてのも消えるし
そう遠い未来じゃない
- 520 ：デフォルトの名無しさん：2019/01/17(木) 23:47:45.37 ID:1381LMvg.net
- >>501
俺もそんな理由でVBS使ってるわ。
本当は専用の開発ソフト欲しいけど、
やろうと思えばメモ帳だけで出来なくもない、ってのが曲者。
- 521 ：デフォルトの名無しさん：2019/01/18(金) 00:09:50.30 ID:3Aai6ayN.net
- うーんどうやら開発ツールを申請できない／入れてもらえない会社が無視できないくらい存在する、
というのはデタラメじゃなかったんだな
- 522 ：デフォルトの名無しさん：2019/01/18(金) 00:58:32.59 ID:ld1N2+LD.net
- 無視できないくらいってどのくらいだよｗ
- 523 ：デフォルトの名無しさん：2019/01/18(金) 04:56:39.52 ID:iqHxmsyd.net
- 馬鹿には入れさせないだけ
- 524 ：デフォルトの名無しさん：2019/01/18(金) 08:20:26.64 ID:FdTpqa5z.net
- >>517
別にわざわざでは無いけどね。
一瞬で出来るんだわ。
それ用のツールを昔、作ったんでね。
>>521
それは仕事の規模によるだろ。
それに、こっちも入れる迄もないと思ってるから申請なぞせんぞ。
VBAだとどうにもならない仕事が継続的に続くなら申請するんだろうが。
- 525 ：デフォルトの名無しさん：2019/01/18(金) 08:59:50.59 ID:HmTdANXo.net
- まずOS標準のPowershellでできることをやる
規模が大きくなって型安全性などが欲しくなったら.net CLIとVSCodeを入れる
VBAは本当にVBAが必要で他に選択肢がない場合にしょうがなく使う
- 526 ：デフォルトの名無しさん：2019/01/18(金) 09:13:15.26 ID:FdTpqa5z.net
- なんでExcel標準のVBAを使わないのかねw
バカじゃないの?
- 527 ：デフォルトの名無しさん：2019/01/18(金) 09:58:22.02 ID:Xg90leRQ.net
- VBAは公式には「レガシー」で「非推奨」な機能だよ
- 528 ：デフォルトの名無しさん：2019/01/18(金) 10:27:15.84 ID:02H4sO2V.net
- うちは無料ならツール申請すれば通常通るし、理由もそんなに掘り下げて詮索されることはない。
有料だととたんにハードルが上がるけど。
んでVisual Studioやらなんやら入れた後もVBAはがんがん使ってるな。
C++/C#と比較してもアドバンテージはあると思うよ。
ちなみにPowershellは起動できないようになってる。権限の問題だから単なるインストール申請よりハードル上がるとおもう。
- 529 ：デフォルトの名無しさん：2019/01/18(金) 12:01:36.56 ID:dGgLcYHd.net
- >>528
C# を禁止せずに PowerShell 禁止とか意味わからん
まあよくわかってない情シスとかが決めてたりするんだろうな
- 530 ：デフォルトの名無しさん：2019/01/18(金) 12:06:44.97 ID:Xg90leRQ.net
- >>529
そりゃ情シスなんかちょっとだけ意識高いPCユーザーに過ぎないんだから、その辺の層の人にとってexeは怖いでしょ
PowerShellなんか所詮テキストファイルだから安心
- 531 ：デフォルトの名無しさん：2019/01/18(金) 12:54:22.16 ID:FdTpqa5z.net
- PowerShellはデフォルトで実行出来ないでしょ。
で、実行できるようにして良いかが問題となる。
- 532 ：デフォルトの名無しさん：2019/01/18(金) 13:32:03.41 ID:ld1N2+LD.net
- うちは共有pcだと社員の個人情報とか社外秘のデータも扱っているから
情報漏洩やコンプライアンスはうるさいんだよね
そういうの適当な会社がうらやましいよ
- 533 ：デフォルトの名無しさん：2019/01/18(金) 13:46:56.62 ID:dGgLcYHd.net
- >>530
？？？
禁止してるのはテキストファイル（PowerShell）の方だよ？
- 534 ：デフォルトの名無しさん：2019/01/18(金) 13:52:14.57 ID:dGgLcYHd.net
- >>531
> PowerShellはデフォルトで実行出来ないでしょ。
できるよ
powershell -ExecutionPolicy RemoteSigned xxxx.ps1
ってやるだけ
- 535 ：デフォルトの名無しさん：2019/01/18(金) 15:05:03.66 ID:u9bkOu0s.net
- PowerShellデフォルトでスクリプト実行できないのは致命的。
「え？デフォルトからセキュリティ弛めるの？大丈夫なの？」ってなる。
- 536 ：デフォルトの名無しさん：2019/01/18(金) 15:58:31.39 ID:N2j3ka14.net
- >>535
>>534
- 537 ：デフォルトの名無しさん：2019/01/18(金) 18:10:43.98 ID:u9bkOu0s.net
- >>536
ウザっ
- 538 ：デフォルトの名無しさん：2019/01/18(金) 18:21:14.18 ID:FdTpqa5z.net
- >>534
それをどこでやるの?
当然ダブルクリック1発でできるんだよね。
もしかしてそのためにバッチファイルも作るとか言わんよな。
- 539 ：デフォルトの名無しさん：2019/01/18(金) 18:36:02.88 ID:dGgLcYHd.net
- >>538
やれる/やれないの話な
後出しでダブルクリックガーとか恥ずかしすぎるだろ w
ちなみに若干トリッキーだがバッチファイルにPowerShellのソースを入れちゃうこともできる
- 540 ：デフォルトの名無しさん：2019/01/18(金) 19:50:38.17 ID:BPWAMvDw.net
- ExecutionPolicyはCurrentUserスコープなら権限不要で変更可能
陽
この情報はプロならみんな知ってるけどアマチュアは知らない人が多いね
- 541 ：デフォルトの名無しさん：2019/01/18(金) 20:36:05.00 ID:3Aai6ayN.net
- 実行の話じゃないでしょ
- 542 ：デフォルトの名無しさん：2019/01/18(金) 20:43:46.91 ID:FdTpqa5z.net
- >>539
???
今まで何の話をしてたんだ?
PowerShellの方がVBAより有利だと言いたかったんじゃないの?
君の発言を聞いてるとPowerShellはますます使いものにならないように感じるんだが、もしかして君は実はVBAの方が有利だと言いたかったのか?
- 543 ：デフォルトの名無しさん：2019/01/18(金) 21:06:07.91 ID:dGgLcYHd.net
- >>542
> 今まで何の話をしてたんだ?
>>531 > PowerShellはデフォルトで実行出来ないでしょ。
とか言う情弱がいたって話 w
- 544 ：デフォルトの名無しさん：2019/01/18(金) 21:45:43.94 ID:WMbv0rpV.net
- あれ？ ExcelってVBAをデフォルトで実行できたっけ？
- 545 ：デフォルトの名無しさん：2019/01/18(金) 22:19:33.59 ID:dGgLcYHd.net
- >>544
まあ設定いるんだけど管理者権限は要らない
PowerShell も>>540が言うように管理者権限不要だけど>>531はSet-ExecutionPolicyの-scopeを知らなかったんだろうな
- 546 ：デフォルトの名無しさん：2019/01/18(金) 23:37:19.13 ID:c34mocfv.net
- 設定を変えなければ動かないことをデフォルトでは動かないというんじゃないかね
設定を変えるのが簡単かどうかは別問題だろ
- 547 ：デフォルトの名無しさん：2019/01/18(金) 23:49:44.04 ID:LGpZNaP9.net
- 右クリックするだけだろ
- 548 ：デフォルトの名無しさん：2019/01/19(土) 00:13:36.27 ID:Fjsb0QYM.net
- 既定では
右クリック→管理者として実行
右クリック→やWindowsPowerShellで実行
いずれも.ps1スクリプトは実行できない
>>545もまちがい
既定状態のPCでも
powershell -executionpolicy remotesigned -file 'hoge.ps1'
などと打てば自動的にプロセススコープで自作のスクリプトなどを実行可能
- 549 ：デフォルトの名無しさん：2019/01/19(土) 02:49:20.82 ID:S0ghMGDC.net
- PowerShell -Part 3
https://mevius.5ch.net/test/read.cgi/tech/1539074808/
- 550 ：デフォルトの名無しさん：2019/01/19(土) 05:10:03.36 ID:+IqL7b8U.net
- >>546
だからそんなこと言い出したらVBAだってディフォルトでは動かないって話
逆にPowerShellはオプションつければ設定変更なしに実行可能
要するに>>531が情弱っていう事実は変わらない
>>548
> >>545もまちがい
話の流れを読めよ…
既に>>534に書いてあることでドヤ顔されても困る w
- 551 ：デフォルトの名無しさん：2019/01/19(土) 06:27:03.00 ID:wkXfpZQC.net
- VBAってデフォルトでは動かないんだっけ？
マクロ入りファイルを開く時は許可か設定が必要だけど、新規ブックならいきなり使えたような
再インストールして確認するのは面倒だからうろ覚えだけど
- 552 ：デフォルトの名無しさん：2019/01/19(土) 07:08:08.04 ID:fPDnzLoP.net
- VBAはそもそもオフィスのインストールという過酷な作業が必要だからな
アマチュアの事務員さんは用意されたパソコンを使うだけだから知らないのかもしれないがな
プロはプロジェクトのたびに全員のパソコンを誰かが準備しなきゃならんのよ
オフィスのインストール作業は地味にでかい工数になるんだ
- 553 ：デフォルトの名無しさん：2019/01/19(土) 08:17:46.72 ID:pNQS4Xn+.net
- デフォルトで信頼されてる場所のファイルでも動かなかったっけ？
大昔のエクセルならデフォルトでどこでもマクロ動いてたけどなｗ
- 554 ：デフォルトの名無しさん：2019/01/19(土) 10:55:07.59 ID:gJfblIQ2.net
- 実行するファイルとは別に呼び出す仕組みを用意する必要があるからpowershellがクソだって言われてるのが分からないのか？
頭悪すぎない？
- 555 ：デフォルトの名無しさん：2019/01/19(土) 11:03:22.61 ID:Fjsb0QYM.net
- 実行スコープを細かく規定出来るのは進歩。クソだとのたまうアホはセキュリティ意識がおかしい
- 556 ：デフォルトの名無しさん：2019/01/19(土) 11:07:55.26 ID:OmtBIHUo.net
- 右クリックするだけだろ
- 557 ：デフォルトの名無しさん：2019/01/19(土) 11:12:21.71 ID:gJfblIQ2.net
- そのスコープを組み込めない時点で終わってるという話をしているんですよ？
- 558 ：デフォルトの名無しさん：2019/01/19(土) 11:39:33.19 ID:fPDnzLoP.net
- スコープを組み込む
この言葉の意味がよくわからんので詳しく説明してみて
- 559 ：デフォルトの名無しさん：2019/01/19(土) 11:47:23.37 ID:fPDnzLoP.net
- vbaもエクセルファイル自体が実行可能な訳じゃなくエクセルというプログラムが解釈してやってるだけ
なのでvbaも別に呼び出す仕組みが必要と言っていい
その仕組みは膨大なインストール時間とライセンス料金を支払ってオフィスをインストールするという苦行を乗り越えないと利用できない
それに比べたらパワーシェルは実行までの手間は殆ど無視できるほど小さい
シェルでたったの1行コマンドレットを打つだけでOK
しかも無料なので嬉しいね
- 560 ：デフォルトの名無しさん：2019/01/19(土) 11:47:30.68 ID:gJfblIQ2.net
- OSのデフォルト状態で出来ることが前提
拡張子が.ps1の場合右クリックのメニューにremotesingedを表示させるとか？
- 561 ：デフォルトの名無しさん：2019/01/19(土) 11:51:02.97 ID:8CGfSDeG.net
- もうその話はpowershellのスレに移動してやってください
- 562 ：デフォルトの名無しさん：2019/01/19(土) 11:51:52.41 ID:1cEunHBW.net
- >>554
> 実行するファイルとは別に呼び出す仕組みを用意する必要がある
はあ？
情弱自慢かよww
- 563 ：デフォルトの名無しさん：2019/01/19(土) 12:11:34.94 ID:lm8WiCyM.net
- 現実社会では話ができない寂しい「プロ」」のプログラマどもが何やらくだらん
雑談をしてスレを潰してるけど質問者の皆さんはそんなヨタ話に付き合う必要
はありませんので、遠慮なく質問をどぞ〜
- 564 ：デフォルトの名無しさん：2019/01/19(土) 12:14:32.41 ID:oaSrkPrl.net
- ところでホンマにブロなん？プロさんて？なんかあやしいんですけどw
- 565 ：デフォルトの名無しさん：2019/01/19(土) 12:25:03.26 ID:4FsWRGgY.net
- Officeインストールするしないがオプションなんて事業所あるの？
- 566 ：デフォルトの名無しさん：2019/01/19(土) 12:40:58.29 ID:wkXfpZQC.net
- 厳密な定義や資格があるわけじゃないんで「プロ」を名乗るのは自由です
- 567 ：デフォルトの名無しさん：2019/01/19(土) 13:14:50.16 ID:fPDnzLoP.net
- >>565
そりゃもちろんあるよ
禁止してる事業所だってある
そもそもOS違いで使えないこともある
- 568 ：デフォルトの名無しさん：2019/01/19(土) 13:21:53.40 ID:+IqL7b8U.net
- >>565
うちの会社は開発専用機にはインストールしないけどそういう機器は自分でセットアップするからなぁ
>>552の言うプロジェクトの度に準備とかはよくわからんな
- 569 ：デフォルトの名無しさん：2019/01/19(土) 13:26:53.56 ID:4FsWRGgY.net
- CADなんかの専用ソフトしか動かさんとか開発機とかそういうのならわかるけど、
このスレで話題にする以上関係ないというか対象外でしょ
- 570 ：デフォルトの名無しさん：2019/01/19(土) 13:35:07.44 ID:Fjsb0QYM.net
- 普通はイメージで展開して、個別はライセンス認証だけっしょ一台数分
- 571 ：デフォルトの名無しさん：2019/01/19(土) 14:06:33.45 ID:/+FUwnIm.net
- >>560
へえ、ExcelってOSのデフォルト状態で使えるんだ？
- 572 ：デフォルトの名無しさん：2019/01/19(土) 14:46:59.67 ID:Qiw5pxsO.net
- WSHだろ常考
- 573 ：デフォルトの名無しさん：2019/01/19(土) 15:22:25.47 ID:wiNfQeeu.net
- >>525-539
例えば、クリップボードでも、Ruby から、powershell コマンドを呼ぶ。
a.rb
str = `powershell Get-Clipboard`
str.encode! Encoding::UTF_8, Encoding::CP932 # UTF_8 へ変換
これをダブルクリックで起動したいのなら、バッチかVBS で起動する。
a.bat
ruby .\a.rb
テキスト処理は、VSCode, Rubyで十分！
- 574 ：デフォルトの名無しさん：2019/01/19(土) 15:49:39.46 ID:BW5TF7JU.net
- >>573
VSCodeは個別にライセンスのある膨大な数のオープンソースソフトウェアの塊であり、
PowerShellを禁止しているような糞組織のPCにインストールすることは不可能
RubyもライセンスにGPLの文字を見つけた途端に情シスが卒倒するレベルで全くもって論外
- 575 ：デフォルトの名無しさん：2019/01/19(土) 21:28:25.59 ID:AuMD8hxP.net
- プロさんてバカしかおらんの？
- 576 ：デフォルトの名無しさん：2019/01/19(土) 21:35:07.05 ID:+IqL7b8U.net
- 所詮自称プロだしw
- 577 ：デフォルトの名無しさん：2019/01/19(土) 21:40:37.46 ID:AuMD8hxP.net
- >>576
開きなおるなバカ
- 578 ：デフォルトの名無しさん：2019/01/19(土) 22:05:47.19 ID:+IqL7b8U.net
- >>577
開き直り？
嘲笑って意味わかる？ w
- 579 ：デフォルトの名無しさん：2019/01/19(土) 22:06:05.61 ID:ARTGttMK.net
- excelってVBAからpythonに変わるっていってなかったっけ？
- 580 ： ：2019/01/19(土) 22:08:25.92 ID:KpXpzNLK.net
- >>579
いってるだけ、今のところは
- 581 ：デフォルトの名無しさん：2019/01/20(日) 00:48:58.52 ID:QFn18v7i.net
- dictionaryに格納してるItemを検索して、存在してればKeyを返却する方法が知りたいのだけど、ループさせてヒットしたら値を出す方法以外でfind的な一発でポンと返す記述の仕方はない？
- 582 ： ：2019/01/20(日) 01:04:30.85 ID:yiNhGfDQ.net
- >>581
Item 間に順序関係があればそれを利用して二分探索を適用できる、無論、記述はループチェックに比べて量が多くなる
- 583 ：デフォルトの名無しさん：2019/01/20(日) 03:54:11.74 ID:IAu7YphR.net
- >>581
一行で書きたいということなら、文字列ならワークシート関数Matchで検索できます。
ただ存在しなかった場合はエラーが返るので例外処理か事前に調べておく必要があります。
例）
Dim map As Dictionary
Set map = New Dictionary
map.Add "みかん", "橙"
map.Add "りんご", "赤"
map.Add "さくらんぼ", "赤"
map.Add "ぶどう", "紫"
On Error Resume Next
Debug.Print map.Keys(WorksheetFunction.Match("赤", map.Items, 0) - 1)
'りんご
Debug.Print map.Keys(WorksheetFunction.Match("白", map.Items, 0) - 1)
'エラー
On Error GoTo 0
個人的には普通に関数作った方が使いやすいと思います。
- 584 ：デフォルトの名無しさん：2019/01/20(日) 08:04:01.23 ID:cWi8furK.net
- >>441
Excel.Application.Onkey で最優先ショートカットキーにできる
次いで.macroOptionsの古いほうが動くよ
- 585 ：デフォルトの名無しさん：2019/01/20(日) 08:25:03.17 ID:KJwN8fo6.net
- 配列とかコレクションに対してSQLが使えればいいんだけどな。
matchやvlookupより速いんだけど、いちいちシートとかcsvに書き出さなきゃならん。
- 586 ：デフォルトの名無しさん：2019/01/20(日) 09:17:44.39 ID:OfXqqqKI.net
- そこまで行くとAccessのお仕事を食っちまう
- 587 ：デフォルトの名無しさん：2019/01/20(日) 09:22:18.21 ID:1t0h4eLG.net
- Access VBAでやればいいじゃん
- 588 ：デフォルトの名無しさん：2019/01/20(日) 09:32:11.24 ID:brNktcWU.net
- >>584
おっと、回答いただけるとは。
onkeyだと、activeworkbookだろうが、thisworkbookだろうが、後定義したほうが上書き、後勝ちしません？
active側に定義されたショートカットがそれぞれ反応してくれると嬉しいのですが。
- 589 ：デフォルトの名無しさん：2019/01/20(日) 10:54:01.49 ID:mVpLWWyp.net
- >>585
MSにExcelでC#使えるようにしてくれ〜
って要望をガンガン出せばお前の望みが叶うかも知れない
- 590 ：デフォルトの名無しさん：2019/01/20(日) 13:02:37.66 ID:QFn18v7i.net
- >>582,583
ありがとう
Itemには順序関係ないから二分探索は出きなさそう
worksheet関数は完全に意識無かったので見た瞬間にあぁ！その手があったか！と目からウロコでした
- 591 ：デフォルトの名無しさん：2019/01/20(日) 13:13:34.11 ID:k7Xn9dKz.net
- C#スクリプトってOSSで軌道に乗っちゃってるからExcelの処理系として採用されることはないと思うぞ
同じものをClosedで再発明するってのも馬鹿馬鹿しいしな
強力な言語を使いたいならその言語を主としてExcelをコントロールすればいい
それで十分だ
わざわざExcelに乗っける必要性は薄い
- 592 ：デフォルトの名無しさん：2019/01/20(日) 13:31:13.08 ID:mVpLWWyp.net
- 再発明とか意味わからん w
- 593 ：デフォルトの名無しさん：2019/01/20(日) 16:43:57.95 ID:tNp2z70l.net
- この場合の再発明と言われれば車輪の再発明を連想出来ないのはかなり緩いんだろう
- 594 ：デフォルトの名無しさん：2019/01/20(日) 17:26:38.62 ID:GHMQXw/N.net
- 文脈的には再発明と言うより再実装かな
- 595 ：デフォルトの名無しさん：2019/01/20(日) 17:32:05.81 ID:mVpLWWyp.net
- いや、車輪の再発明はいいとして何を再発明するんだよって話
C#処理系のソースライセンス見てないけどMSが自社製品に使えなくなるようなライセンスにはなってないだろうし（なってたらVisual Studioの有償版とか売れなくなる）
普通にExcelに組み入れるだけだろ
- 596 ：デフォルトの名無しさん：2019/01/20(日) 17:45:17.54 ID:TQeakhfS.net
- >>595
メンテナンスのコストを甘く見すぎ
Excelに入れるなら最低でも以後10年は完全な互換性を維持し続けなきゃいけないわけ
今メインストリームのC#環境を入れるなら.NET Coreを組み込むことになるだろうけど、
.NET Coreって完全なサイドバイサイドを前提にガンガン破壊的変更をぶっ込んでいくスタイルだから、
Excelのバージョンアップのときに単純に.NET Coreのバージョンを上げるわけにはいかなくて、
Excel専用のブランチを作って継続的にメンテしていかざるを得ないの
それは実質的には新たに.NETの兄弟分を作って独立して育てていくことに他ならず、多大なメンテナンスコストを生じる上、
.NET エコシステムの分断を生むことになる
そんな馬鹿げたことをするくらいなら普通に.NET Coreを直接使わせた方が遥かにマシだろう
- 597 ：デフォルトの名無しさん：2019/01/20(日) 17:59:54.91 ID:mVpLWWyp.net
- >>596
> Excelに入れるなら最低でも以後10年は完全な互換性を維持し続けなきゃいけないわけ
それVBAの開発担当者にも言ってくれよ w
- 598 ：デフォルトの名無しさん：2019/01/20(日) 18:07:02.56 ID:TQeakhfS.net
- >>597
煽りはいいから直近10年でVBAに対して行われた破壊的変更を具体的に挙げてくれよ
当たり前だが不具合の話はしてないぞ？
- 599 ：デフォルトの名無しさん：2019/01/20(日) 18:28:52.57 ID:mVpLWWyp.net
- >>598
いや破壊的かどうかは別にしてもVBAも色々機能追加とかされてるだろ
VBAの機能追加をやめてそのリソースをC# for Officeに割くだけだよ
そもそもMac版はともかくWindows版のOfficeなら.NET Coreじゃなくて.NET Framework上に構築するだろうしな
- 600 ：デフォルトの名無しさん：2019/01/20(日) 18:31:24.08 ID:wKV5+GB/.net
- みっともないからいいかげん止めや似非プロさんの一人語り
そもそも出鱈目やってバレバレのプロ風の話して誰に対してマウント取りたいねんw
- 601 ：デフォルトの名無しさん：2019/01/20(日) 18:46:13.28 ID:TQeakhfS.net
- >>599
Full .NET はメンテナンスモードに入ったよ
4.8を最後に、今後大きな機能追加はない
残念ながら、今入れても新たに時代遅れのゴミが増えるだけだ
- 602 ：デフォルトの名無しさん：2019/01/20(日) 20:02:31.83 ID:mVpLWWyp.net
- >>601
逆に都合がいいじゃん
.NETFrameworkは簡単に廃止できないから君が大事にしてる互換性も保ちやすいしね
- 603 ：デフォルトの名無しさん：2019/01/20(日) 22:44:30.32 ID:aU4dkoPo.net
- A4用紙に上から4件ずつ異なるデータを入力して、
印刷したいのですが、どうすればいいか教えて下さい。
データ数は日によって異なり、30件〜50件程度あります。
1ページ目に1〜4、2ページ目に5〜8・・・という感じです。
うまく説明出来なくてすいません。
4つデータを入力して印刷したら次、っていう感じの
ループ処理のコードのサンプルなどありましたら教えてください。
- 604 ：デフォルトの名無しさん：2019/01/20(日) 22:48:25.28 ID:GTDVzsz1.net
- >>603
改ページを設定すればいいだけじゃね？
https://kosapi.com/post-3244/
- 605 ：デフォルトの名無しさん：2019/01/20(日) 22:55:12.40 ID:aU4dkoPo.net
- >>604
ありがとうございます。
- 606 ：デフォルトの名無しさん：2019/01/21(月) 09:00:45.75 ID:MgnF8xe3.net
- このループw
他言語を推奨してる奴らには馬鹿しかいない。
ExcelVBAのスレなんだからExcelが動いてるのが大前提なんだよ。
そこへノコノコ乗り込んで来てOfficeインスト―ルとか言ってる馬鹿は滑稽。
テキスト処理とかもアホ丸出し。
Excel関係無いなら、そもそもVBAでやる必要全く無い。
そして全くのスレ違い。
- 607 ：デフォルトの名無しさん：2019/01/21(月) 09:04:27.40 ID:MgnF8xe3.net
- その後のC#やPythonを組み込んでくれって話はどうでもいい。
入って来たらそれで組むだけだ。
- 608 ：デフォルトの名無しさん：2019/01/21(月) 10:06:31.18 ID:NbFzEAOW.net
- 終わった話にノコノコ乗り込んでくるウスノロかよww
- 609 ：デフォルトの名無しさん：2019/01/21(月) 12:17:14.05 ID:HulQp10o.net
- 言われてみればVBAの破壊的仕様変更ってまったく無いよな。
オブジェクトを省略してて挙動が変わったくらいならあるけど。
64bit対応くらいじゃ無いか？
- 610 ：デフォルトの名無しさん：2019/01/21(月) 16:29:48.24 ID:0Hj4ohcs.net
- LongPtr型とPtrSafe宣言くらいか
- 611 ：デフォルトの名無しさん：2019/01/21(月) 20:06:20.50 ID:mtdQDW0I.net
- >>609
ただパッチいれたら動かなくなったことはあった
- 612 ：デフォルトの名無しさん：2019/01/21(月) 20:57:18.88 ID:MgnF8xe3.net
- 2007の時、グラフ周りが軒並み動かなくなったことはあったな。
- 613 ：デフォルトの名無しさん：2019/01/21(月) 22:36:48.74 ID:+ZXh/xZN.net
- 改ページ位置の誤検出がヒドイ。
一旦、改ページプレビューにしてから戻せば大丈夫ですとか、何だよそれ。
- 614 ：デフォルトの名無しさん：2019/01/21(月) 23:15:39.37 ID:liT1rB8S.net
- 64bitはスクリプトオブジェクトがないとかは？
- 615 ：デフォルトの名無しさん：2019/01/22(火) 00:07:05.98 ID:TC75Tgsq.net
- よろしくお願いします。
あるシートのコピーだけを新規の別ファイルとして保存したいのですが、
1 dim fn as string
2 fn="c:\*****\集計表.csv"
3 ThisWorkbook.Worksheets("集計表").Copy
4 Application.DisplayAlerts = False
5 ActiveWorkbook.SaveAs fileName:=fn, FileFormat:=xlCSV
6 ActiveWorkbook.Close
このように書きました。普通だと問題なくいっているのですが、この処理をしている途中で、
使用者がガチャガチャとマウスをイジり、いくつも開いているうちの適当なブックをアクティブにしてしまった
りなどしてると、想定通りの動作をしなくなってしまいます。
3行目でコピーしたときに、コピー先のその新しいブック自体を名指しできれば、いいのではないかと
思うのですが、いかがでしょうか？
「ActiveWorkBook」ではなく、ちゃんと名指しする方法ってないでしょうか？
- 616 ： ：2019/01/22(火) 00:33:28.43 ID:zFHfz07h.net
- いろいろな事情があって、ExcelVBA に専心することになりそうです…Excel VBA から任意の win32api を呼び出すことは可能ですか？
- 617 ：デフォルトの名無しさん：2019/01/22(火) 00:44:54.38 ID:KMNb7p7Q.net
- >>615
処理中いじるなと表示させたフォームをモーダルにして処理終わるまで×ボタン消しとくとかは？
- 618 ：デフォルトの名無しさん：2019/01/22(火) 02:38:45.16 ID:WVGq8ekA.net
- activeじゃなくてもsaveできるだろ
- 619 ：デフォルトの名無しさん：2019/01/22(火) 05:03:39.16 ID:1xYsQegz.net
- >>615
方法１：新規ブックはWorkbooksコレクションの末尾に追加されるはずなので、Workbooks (Workbooks.Count)で参照できます。
方法2：先に新規ブックを作っておけば参照出来ます。
余計な新規シートが触られる不安があるなら削除する必要があります※
例）
With Workbooks.Add
Dim fn As String: fn = "c:\*****\集計表.csv"
Worksheets("集計表").copy Before:=.Worksheets(1)
Application.DisplayAlerts = False
Dim elem As Worksheet '※
For Each elem In .Worksheets
If elem.Name <> "集計表" Then elem.Delete
Next elem
.SaveAs Filename:=fn, FileFormat:=xlCSV
.Close
End With
方法3：集計表なので数式が入っていると思いますから、Copy時のCalculateイベントでシート自身に保存させます。
例）
Private Sub Worksheet_Calculate()
If Worksheets.Count > 1 Then Exit Sub 'Copyされた単一シートか判定
Dim fn As String: fn = "c:\*****\集計表.csv"
Application.DisplayAlerts = False
ThisWorkbook.SaveAs Filename:=fn, FileFormat:=xlCSV
ThisWorkbook.Close
End Sub
上記を集計表シートのシートモジュールに書き込むと、Worksheets("集計表").Copy だけで自動的に保存されます。
- 620 ：デフォルトの名無しさん：2019/01/22(火) 05:11:20.49 ID:1xYsQegz.net
- Worksheets("集計表").copy
↓修正
ThisWorkbook.Worksheets("集計表").Copy 👀
Rock54: Caution(BBR-MD5:1341adc37120578f18dba9451e6c8c3b)
- 621 ：デフォルトの名無しさん：2019/01/22(火) 08:07:57.46 ID:rTM/luD7.net
- >>616
トリッキーな技が技があるかもだけど「任意の」となると単独では無理と思った方がいい
- 622 ：デフォルトの名無しさん：2019/01/22(火) 08:14:29.14 ID:J7GVb3Rk.net
- >>616
任意ってのはどういう意味?
動的に呼び出したいってこと?
それだったらかなり高度になる。
- 623 ：デフォルトの名無しさん：2019/01/22(火) 12:45:48.79 ID:/p6ZcYuK.net
- declareで追加するだけでしょ
ぐぐればサンプル大量に出てくるし
高度でもない
- 624 ：デフォルトの名無しさん：2019/01/22(火) 13:00:35.87 ID:/wbMKv3O.net
- 厚生省の中の人がプログラムで不正するように描いてたのってExcel?
- 625 ：デフォルトの名無しさん：2019/01/22(火) 14:06:11.20 ID:Hs2/RF8Y.net
- あれはファイルの更新日をいじっただけだったはず（開いて上書き保存かもしれんが）
- 626 ：デフォルトの名無しさん：2019/01/22(火) 16:11:53.74 ID:twW7M/a9.net
- 関数間違えたって報道されてなかったっけ
- 627 ：デフォルトの名無しさん：2019/01/22(火) 20:39:31.87 ID:J7GVb3Rk.net
- >>623
それは静的に呼び出すということ。
動的の場合は、LoadLibraryとかGetProcAddressとかを使う話になる。
昔、調べまくってサンプル作ったことあるけど、何でも自由に動かせるものじゃなかった。
というより殆どのAPIは動かなかった記憶が。
- 628 ：デフォルトの名無しさん：2019/01/22(火) 20:52:29.66 ID:nExxZ55X.net
- LongPtr型とPtrSafe宣言ってそれぞれどういうときに使うんですか？
- 629 ：デフォルトの名無しさん：2019/01/22(火) 20:59:55.76 ID:IR20P2NM.net
- >>628
どっちも64bitでAPI呼ぶ時に使うけど、ほかの使い方は知らん
- 630 ：デフォルトの名無しさん：2019/01/22(火) 22:38:47.81 ID:CihaJZ6+.net
- Excelはどのくらいポリゴン表示出来るの?
1. PS並み
2. PS2並み
3. PS3並み
4. PS4並み
- 631 ：デフォルトの名無しさん：2019/01/23(水) 00:32:34.72 ID:glGBkXdT.net
- 5. PS5並み
- 632 ：デフォルトの名無しさん：2019/01/23(水) 00:54:57.75 ID:26O4EHUh.net
- 今のPCならオートシェイプで3DレンダリングしてもPS1には楽勝だろう
- 633 ：デフォルトの名無しさん：2019/01/23(水) 01:22:36.39 ID:xNUzgFQe.net
- >>619
ありがとうございました！
- 634 ：デフォルトの名無しさん：2019/01/23(水) 03:00:22.02 ID:aTlBVQjl.net
- http://blog.livedoor.jp/genkimaru1/archives/2095759.html
- 635 ：デフォルトの名無しさん：2019/01/23(水) 13:19:24.15 ID:dfxLcevf.net
- 闘神伝のエリスのシースルーは再現可能ということですね。
- 636 ：デフォルトの名無しさん：2019/01/23(水) 13:59:08.25 ID:b9b+73n9.net
- >>627
馬鹿には無理
- 637 ：デフォルトの名無しさん：2019/01/23(水) 15:57:45.44 ID:uebkOjvn.net
- もともと「任意の」APIだったのが途中から動的に呼び出す話になってる
- 638 ：デフォルトの名無しさん：2019/01/23(水) 16:19:34.41 ID:CpZRwgZL.net
- 回答者の連中が勝手に条件を考えて話をややこしくするのも
質問者がそれを修正しようとしないのもこのスレのお約束
- 639 ：デフォルトの名無しさん：2019/01/23(水) 17:37:28.67 ID:uebkOjvn.net
- だいたいDeclareなしに呼び出さなきゃいけない要件なんてあるか？
候補となるAPIの範囲なんてどう考えても限られてるだろう。
ジグネチャ情報ごと外部からもらうのか？
- 640 ：デフォルトの名無しさん：2019/01/23(水) 21:06:47.46 ID:e5qX8jhS.net
- >>639
プラグインdllを呼び出すような要件だな。
プラグインdllを指定のフォルダに入れてもらうようにしておいて、呼び出し方はこちらで決めておく。
指定フォルダからdllファイルを列挙して、ファイル名と、決められた通りの呼び出し方で呼び出すやり方になるからDeclareは使えない。
まあ、めったに無いだろう。
>>637
「任意」の意味がよく分からん。
動かしている最中に「任意」のAPIを呼び出したいという意味かと思った。
それともcdecl呼び出しのAPIは基本的に出来ないっていうような話をすれば良かった?
まあ、DispCallFuncでゴニョゴニョで出来るんだけども。
- 641 ：デフォルトの名無しさん：2019/01/23(水) 22:47:22.53 ID:9/VHRHNs.net
- VBAでは（トリッキーなことしないと）作れない引数型のAPIのこととかじゃね？
- 642 ：デフォルトの名無しさん：2019/01/24(木) 09:54:58.66 ID:9Yy7hd5n.net
- 初歩的かもしれない質問でお恥ずかしいのですが、知恵をお貸しいただきたいです。
1年の中で最大の数値が含まれる日付の値全てを別シートに貼り付けるというVBAプログラムを作成したいです。
また、この場合の1日とは前後1日分ではなく、その時間が含まれる1日の事です。
例えば、30分毎の売り上げ金額が入力されたexcelシートが1年分あるとします。
1年間の中で最大の売り上げ金額が、2018/2/14 12:30に存在すると仮定します。
その場合に、2018/2/14 0:00〜 2018/2/14 23:30
の値を抜き出し、別シートに貼り付けるというプログラムを作成したいです。
データの形は、
2018/2/14 0:00 300
2018/2/14 0:30 200
・
・
・
2018/2/14 23:30 500
のようになっています
自分でも一通り調べてみたのですが、どうしてもしっくり来るものが見つかりませんでした。
どうぞよろしくお願い致します。
- 643 ：デフォルトの名無しさん：2019/01/24(木) 12:17:49.04 ID:6DEMoFXg.net
- >>640
おまえは頭が悪くて他人にものを教えられる様な人間やない
ちゅう事をそろそろ思い知った方が幸せになれるで
- 644 ：デフォルトの名無しさん：2019/01/24(木) 12:27:34.76 ID:kIY0kOtD.net
- >>642
問題を分割して考えよう
1. 最大の値を持つ行（と言うか日時）を取得する → 最大日時とする
2. 以下を最初の行から最後の行までループする
2.1 行が持つ日時と最大日時の日付部分だけ比較する
2.2 日付部分が合致してたらコピーする
で、どこがわからないの？
- 645 ：デフォルトの名無しさん：2019/01/24(木) 12:37:36.92 ID:6BCdjRMd.net
- 調べるだけで頭を使っていないのだからわかるわけない
ゆとり教育世代にありがち
- 646 ：デフォルトの名無しさん：2019/01/24(木) 12:38:49.74 ID:FgOMH45t.net
- >>643
自分が頭が良いということを全く証明もせずに絡んで来られても困るんだがw
こういう絡み方で頭悪そうだとは思うけどね。
- 647 ：デフォルトの名無しさん：2019/01/24(木) 12:55:51.34 ID:6DEMoFXg.net
- 実にバカらしい困り方やね
- 648 ：デフォルトの名無しさん：2019/01/24(木) 13:12:21.15 ID:Ay2CLdQj.net
- >>645
マウント取りたいだけの老害
なんの生産性もないからやめた方がいいよ
- 649 ：デフォルトの名無しさん：2019/01/24(木) 13:13:31.30 ID:+O0AGYtG.net
- hoge.dll だけあるときに hoge.def を作りたいんだけどどうすればいい？
- 650 ：デフォルトの名無しさん：2019/01/24(木) 13:38:55.05 ID:pEQDGUsa.net
- >>648
悔しかったか、ゆとり世代
- 651 ：デフォルトの名無しさん：2019/01/24(木) 14:52:02.40 ID:DfMDGTcZ.net
- >>644
おっしゃる通り１つずつこなしていきたいと思います。
最大値を取得する所まではなんとかなりましたが、最大値が入っているセルの左からoffsetによって値の取得をしようとしています。しかしエラーが出てしまい(91エラー)詰まっています。
- 652 ：デフォルトの名無しさん：2019/01/24(木) 14:57:02.89 ID:xR9TqB96.net
- >>649
defファイルってビルドの時に使うもんだけど？
- 653 ：デフォルトの名無しさん：2019/01/24(木) 15:26:49.03 ID:ou4FYlNm.net
- >>651
馬鹿過ぎだろ
もっと悩んでから来い、ゆとり
- 654 ：デフォルトの名無しさん：2019/01/24(木) 15:36:46.38 ID:xR9TqB96.net
- 罵倒芸術？
- 655 ：デフォルトの名無しさん：2019/01/24(木) 15:53:26.03 ID:DfMDGTcZ.net
- >>653
そうします
ありがとうございます
- 656 ：デフォルトの名無しさん：2019/01/24(木) 16:52:58.88 ID:90ICJGKL.net
- >>653
お前なにしにきてんだここに。
最低だな、人として。
- 657 ：デフォルトの名無しさん：2019/01/24(木) 17:31:43.23 ID:uc3iE4iQ.net
- >>644で答えを教えてもらっても理解できないような頭の悪さが問題だろう。こんな頭の悪い奴はプログラムするなと俺は思う。
- 658 ：デフォルトの名無しさん：2019/01/24(木) 17:52:28.54 ID:Ay2CLdQj.net
- ほー
>>657くらいの天才になると最初からプログラム完璧に理解できたらしいな
凄い凄い
>>655
めげずに頑張ってくれよ
だれでも最初は初心者だ
- 659 ：デフォルトの名無しさん：2019/01/24(木) 18:00:27.00 ID:A3Pe4Ldy.net
- VB6で作ったADOを使ってデータベースからエクセルシート名をComboBoxに入れるソフトがあって、それをwindows10で動かすとエラーで止まるんだけど原因分かりますか？
シート名が一文字の時だけエラーが出るのは分かったけど何か理由だと思いますか？
- 660 ：デフォルトの名無しさん：2019/01/24(木) 18:15:16.93 ID:pEQDGUsa.net
- >>659
ここが何のスレだかわかってるか、馬鹿
- 661 ：デフォルトの名無しさん：2019/01/24(木) 18:58:14.37 ID:5lzQ1hz1.net
- >>642
その日付でアドバンスフィルタ。
検索する側の日付と、検索される側の日付は、
何型でもいいから統一する。
LeftやMidと"/"を組み合わせとか、
Format(日付, "yyyy/mm/dd")とか適当に。
- 662 ：デフォルトの名無しさん：2019/01/24(木) 19:06:26.31 ID:5lzQ1hz1.net
- アドバンスフィルタが何なのかわからなかったら、
フィルタオプションの設定の使い方を覚えて、
マクロの自動記録をするといい。
ちなみに、ループより激速だから。
- 663 ：デフォルトの名無しさん：2019/01/24(木) 19:32:10.91 ID:fZR3dOZW.net
- >>642-644
Ruby で作った
# 各行は空白で区切った、3列の配列。
# 全行は各行の配列、つまり配列の配列
all_rows = File.readlines( "input.txt" ).map( &:split )
# row[ 2 ]、金額が最大数値の行を求める
p max_row = all_rows.sort_by { |row| row[ 2 ].to_i }.last
# 全行からrow[ 0 ]、同じ日付の行だけを集める
p all_rows.select { |row| row[ 0 ] == max_row[ 0 ] }
- 664 ：デフォルトの名無しさん：2019/01/24(木) 21:13:39.94 ID:52bEuJTy.net
- >>663
ここが何のスレだかわかってるか、馬鹿
- 665 ：661：2019/01/24(木) 21:19:22.76 ID:fZR3dOZW.net
- >>663
修正
# row[ 2 ]、金額が最大数値の行を求める
>p max_row = all_rows.sort_by { |row| row[ 2 ].to_i }.last
p max_row = all_rows.sort_by { |row| row[ 2 ].to_i * -1 }.first
last だと、最後まで配列を作ってしまう。
一方、first では最初の1つだけを求めるから、速い
- 666 ：デフォルトの名無しさん：2019/01/24(木) 22:01:17.17 ID:KN/tNrgV.net
- >>663は
ﾎﾞｸﾀﾝﾝRubyが出来るんだぞぉおエライんだ。ﾎﾞｸﾀﾝﾝを褒めろぉぉお
Rubyのスレでは褒める奴が居ないからここでエラぶりたいんだよぉお
なウスラバカ
- 667 ：デフォルトの名無しさん：2019/01/25(金) 09:26:57.52 ID:VDjD4/gW.net
- 他言語質問スレの質問をRubyで解答するスレでもたてれば？
- 668 ：デフォルトの名無しさん：2019/01/25(金) 10:27:26.03 ID:OaoSScvY.net
- Rubyスレで相手にされず、ここならドヤ顔できるだろと思って来たのかw
- 669 ：デフォルトの名無しさん：2019/01/25(金) 12:18:15.80 ID:aKVOVgYE.net
- プロさん荒ぶりまくっとってワロタw
- 670 ：デフォルトの名無しさん：2019/01/25(金) 12:37:49.55 ID:kDiuvRrn.net
- Ruby信者くんどこのスレでもKYだよね
- 671 ：デフォルトの名無しさん：2019/01/25(金) 12:52:29.05 ID:EnRgcOgq.net
- dumpbin /exports hoge.dll
と
lib /def:hoge.def
でいけるな
- 672 ：デフォルトの名無しさん：2019/01/25(金) 19:43:02.79 ID:EKURiA+R.net
- DispCallFuncって最近また流行ってるの？
- 673 ：デフォルトの名無しさん：2019/01/26(土) 07:48:55.80 ID:SzhvFgNa.net
- Private Function getIE(arg_title As String) As InternetExplorer
↑
こういう書き型ってどういう意味になるんですか？
普通に関数を作るなら
private fanction 関数名(ByVal 引数名 as 引数の型)
みたいな形になると思うんですが
上記にあげた例でとくに引数を()で閉じた後のas InternetExplorerの部分がよくわかりません
- 674 ：デフォルトの名無しさん：2019/01/26(土) 08:30:57.60 ID:0//Vwm17.net
- >>673
"as 引数の型"の意味が理解できるなら
"as InternetExplorer"は簡単に想像つくだろ
- 675 ：デフォルトの名無しさん：2019/01/26(土) 09:22:53.54 ID:xtvWXKE/.net
- Private Sub 関数名(引数名 As 引数の型)
Private Function 関数名(引数名 As 引数のデータ型) As 戻り値のデータ型
- 676 ：デフォルトの名無しさん：2019/01/26(土) 09:34:59.74 ID:HSTKeB2g.net
- VBAやってるなんて恥ずかしくて言えないだろ？
- 677 ：デフォルトの名無しさん：2019/01/26(土) 09:38:00.59 ID:+NbQI97A.net
- >>673
中の処理を見ないとわからんけど、
そういう書き方をする場合、普通に考えたら、
getIEにInternetExplorerのオブジェクトがセットされて返ってくる。
- 678 ：デフォルトの名無しさん：2019/01/26(土) 09:49:01.06 ID:/P2VC+Mr.net
- タイトルバーの文字列からウィンドウを検索する関数だろ
IE操作のサンプルとして、ネットでも本でも色んな所で見かけるやつ
- 679 ：デフォルトの名無しさん：2019/01/26(土) 09:59:33.30 ID:0//Vwm17.net
- >>676
あらたまって「俺VBAできます」なんて言うことは無いけど
問題の解決にVBAが最善なら偏見持たずに採用するよ
- 680 ：デフォルトの名無しさん：2019/01/26(土) 10:13:39.98 ID:54XYYYdu.net
- 初心者に優しくなろうぜ
- 681 ：デフォルトの名無しさん：2019/01/26(土) 10:33:16.30 ID:MaEquCGy.net
- どうしても使わなきゃならない場合にはVBAを使う
なにも理由がなければこんなもの使わない方が精神的に健全
- 682 ：デフォルトの名無しさん：2019/01/26(土) 10:56:55.38 ID:z7S/RMkn.net
- Windows10のアップデート1809を適用したらcreateobject("InternetExplorer.application")でオートメーションエラー(実行時エラー -2125463506)が発生するようになりました。
これを回避する方法があれは教示ください。
- 683 ：デフォルトの名無しさん：2019/01/26(土) 11:00:34.08 ID:MaEquCGy.net
- >>682
他の言語とSeleniumを使う
- 684 ：デフォルトの名無しさん：2019/01/26(土) 11:08:46.81 ID:+NbQI97A.net
- >>682
参照設定もInternetExplorerMediumもダメ?
- 685 ：デフォルトの名無しさん：2019/01/26(土) 11:09:00.46 ID:z7S/RMkn.net
- >>683
会社の方針でOffice以外のアプリや言語は使えません。そのため、VBAのみとさせてください。
- 686 ：デフォルトの名無しさん：2019/01/26(土) 11:13:02.00 ID:MaEquCGy.net
- >>685
ではIEも使えないのですね？
- 687 ：デフォルトの名無しさん：2019/01/26(土) 11:17:13.78 ID:z7S/RMkn.net
- >>684
参照設定はInternetcontrolsとHTML object libraryを設定しています。これは適用前と変わりません。
New InternetExplorerMediumでもおなじエラーが発生します。
1809適用前の他PCでは正常に動きます。
- 688 ：デフォルトの名無しさん：2019/01/26(土) 11:18:26.43 ID:z7S/RMkn.net
- >>686
すみません、クロームやエッジは使えませんが、IEは可能です。
- 689 ：デフォルトの名無しさん：2019/01/26(土) 11:32:26.37 ID:MaEquCGy.net
- なるほど状況はわかりました
問題の検証にはまず最初に他の言語が必要です
パワーシェルの使用許可を取ってください
- 690 ：デフォルトの名無しさん：2019/01/26(土) 12:31:44.07 ID:WRAGgpBx.net
- >>685
マジメな話、本当にダメなのかは思い込みの部分が多いんじゃないかと思うぞ
- 691 ：デフォルトの名無しさん：2019/01/26(土) 12:33:07.15 ID:SzhvFgNa.net
- >>674
>>675
>>677
ありがとうございます。VBAは戻り値の型も指定できるんですね。
というか、思い出しました、Ｃ言語でも頭にstringとかintとかつけましたね。
あれが末尾に来てこういう書き方になると。
ありがとうございました。
- 692 ：デフォルトの名無しさん：2019/01/27(日) 07:11:52.32 ID:KwlBhw9C.net
- しかしVBAは良くて他がダメっておかしな話だな
使い勝手が違うだけで、大概の事出来ちゃうだろ
- 693 ：デフォルトの名無しさん：2019/01/27(日) 07:15:14.02 ID:MJttX1my.net
- >>692
VBAの利用を推奨していないのは他でもないMSだ
- 694 ：デフォルトの名無しさん：2019/01/27(日) 07:25:44.98 ID:v6cey9sT.net
- 逆に、C#にできてVBA+APIでできないことって何がある？
- 695 ：デフォルトの名無しさん：2019/01/27(日) 07:37:49.03 ID:94l2cllZ.net
- ソフトウェアが端末毎に異なると動作検証の障害になるケース
- 696 ：デフォルトの名無しさん：2019/01/27(日) 07:53:57.32 ID:e7HDIdYV.net
- もうよそいけよ
- 697 ：デフォルトの名無しさん：2019/01/27(日) 08:13:04.45 ID:/fU4frLP.net
- IE参照とか終わっとる
- 698 ：デフォルトの名無しさん：2019/01/27(日) 08:29:08.12 ID:MJttX1my.net
- >>694
そらWebアプリとかスマホアプリとかMac/Linuxとかゲームとか科学技術計算とかいくらでもある
VBA(API, COMなし)で無理なく可能、かつExcelワークシート操作が必要な場合に態々C#を使うのはそれこそ馬鹿の一つ覚えだと思うけどね
- 699 ：デフォルトの名無しさん：2019/01/27(日) 08:59:08.57 ID:DsJJt6N4.net
- 希に、変数が定義されてませんみたいなエラーが出るんだけど、何だろう?
しかも変な位置で。
Dim a As Long : a = 1
Dim b As Long : b = 1
MsgBox a ←普通、aにエラーが出るとしたらここだけど、
Cells(a, 1).Value = b ←なぜかこの時点で出る
Excelを再起動しても治らないんだけど、
3行目と4行目を入れ替えて、また戻すと治る。
わけわからん。
- 700 ：デフォルトの名無しさん：2019/01/27(日) 09:48:02.97 ID:UZak3JEV.net
- >>699
参照設定を確認かな…
- 701 ：デフォルトの名無しさん：2019/01/27(日) 11:10:55.75 ID:RJ6yXKbG.net
- >>699
当方、excel2010の新しいブックでテストしても何の問題もなし
- 702 ：デフォルトの名無しさん：2019/01/27(日) 12:04:29.48 ID:5DHtGtFO.net
- >>699
> MsgBox a
で値は表示されてるのか？
表示されてるなら値はどうなっているのか？
- 703 ：デフォルトの名無しさん：2019/01/27(日) 12:48:15.98 ID:TaAzn7Fo.net
- >>699
全角空白とか混ざってない？
マルチステートメントもやめよう
- 704 ：デフォルトの名無しさん：2019/01/27(日) 14:13:43.46 ID:eEXpRKk5.net
- マルチステートメント推進
- 705 ：デフォルトの名無しさん：2019/01/27(日) 15:18:35.61 ID:g3iq6aIo.net
- まじ?
- 706 ：デフォルトの名無しさん：2019/01/27(日) 16:30:18.65 ID:DsJJt6N4.net
- >>700
特殊なものはつかってないけど・・。
>>702
表示前にエラーになったから見てないや。
>>703
VBSで全角空白がダメなのは知ってるけど、VBAでは実行できてたので、気にしてなかった。
マルチステートメントって「:」使うやつ?
- 707 ：デフォルトの名無しさん：2019/01/27(日) 16:31:28.53 ID:DsJJt6N4.net
- ↑途中送信しちまった。
Constは1行で書けるのに、Dimが2行になるのが嫌なので、宣言は1行にしてる。
- 708 ：デフォルトの名無しさん：2019/01/27(日) 16:33:56.14 ID:DsJJt6N4.net
- >>701
こっちは2013。
普通は問題ないんだよ。行を入れ替えて戻せば治るから、
構文的におかしいことも無いだろうし。
- 709 ：デフォルトの名無しさん：2019/01/27(日) 18:01:05.46 ID:OBIAkwM2.net
- コードのコピペをミスったとかじゃないかな
どこか編集すると大文字小文字や空白が自動的に修正されて直るとか
- 710 ：デフォルトの名無しさん：2019/01/27(日) 18:29:58.57 ID:k4Sj+hy8.net
- >>699
たぶんデバッグ中に宣言書いたりしたんやろ？
そう言うことするとバグる。
一旦コードコピーして、モジュール作り直せばいいよ
- 711 ：デフォルトの名無しさん：2019/01/27(日) 18:33:24.52 ID:qv2Aznbx.net
- そもそも1列目にはどんな数字が羅列されてるの
- 712 ：デフォルトの名無しさん：2019/01/28(月) 20:10:52.48 ID:i9xb9DBB.net
- 1行目にデータを取って2行目に1行目を参照したmid関数を1行目と同じ数だけ用意したいのですが
Dim m As Integer
m = 1 'カウンタmを用意して1を設定
Do While Cells(m, 1) <> "" '1行目が空になるまでループ
Cells(m, 2).Formula = "=mid(" & Cells(m, 1) & ",15,5)" '2行目には真横のセルを参照したmid関数を入れる
m = m + 1
Loop
これじゃダメなんですが、4行目のmid関数をセルに代入するとき相対的にcells(m,1)を参照させていきたいんですが
どういう風に書けばいいんでしょうか？
- 713 ：デフォルトの名無しさん：2019/01/28(月) 20:41:36.83 ID:9NcZtM+2.net
- Cells(m, 2).Formula = "=MID(" & Cells(m, 1) & ", 15, 5)"
Cells(m, 2).FormulaR1C1 = "=MID(RC[-1], 15, 5)"
- 714 ：デフォルトの名無しさん：2019/01/28(月) 20:42:27.70 ID:9NcZtM+2.net
- みすった
Cells(m, 2).Formula = "=MID(" & Cells(m, 1).Address & ", 15, 5)"
- 715 ：デフォルトの名無しさん：2019/01/28(月) 20:47:12.92 ID:i9xb9DBB.net
- ありがとうございます、いけました！
- 716 ：デフォルトの名無しさん：2019/01/29(火) 18:20:14.94 ID:uYHQBjCX.net
- 1から30の乱数字を5回ループした合計を出したい。
同一数字が出ることをよしとした場合のコードってどんなですか？
- 717 ：デフォルトの名無しさん：2019/01/29(火) 18:28:48.64 ID:ywRkqTQf.net
- >>716
For i = 1 To 5
s = s + Int(Rnd()*30+1)
Next
細かいことを言うと、「同じ数字が出てはいけない」などの条件を付けた時点で、それは乱数じゃなくなる
- 718 ：デフォルトの名無しさん：2019/01/29(火) 19:08:34.73 ID:+icPBYbY.net
- >>717
> 細かいことを言うと、「同じ数字が出てはいけない」などの条件を付けた時点で、それは乱数じゃなくなる
べつに乱数が欲しいとは言ってないようだが？
- 719 ：デフォルトの名無しさん：2019/01/29(火) 19:40:09.62 ID:dBY1qrqG.net
- 「乱数字」ってなんだ？初めて聞く言葉だゾ
- 720 ：デフォルトの名無しさん：2019/01/29(火) 19:42:57.71 ID:LpX7EYli.net
- 日本語だと乱数、乱数字は中国語で同じ意味
- 721 ：デフォルトの名無しさん：2019/01/29(火) 20:05:34.32 ID:KErsf3wp.net
- つまり>>716 は中国の方ということね
- 722 ：デフォルトの名無しさん：2019/01/29(火) 20:10:45.02 ID:aCb5tvGW.net
- randbetween(1,30)は？
- 723 ：デフォルトの名無しさん：2019/01/29(火) 21:04:31.66 ID:t1GGJDgX.net
- WorksheetFunction.RandBetween
長いな
- 724 ：デフォルトの名無しさん：2019/01/29(火) 21:09:20.18 ID:ZMlTx8zG.net
- 3D6+5とかをループ使わず一発で計算したいって質問なんじゃね？
- 725 ：デフォルトの名無しさん：2019/01/29(火) 22:06:13.32 ID:5yOKK0P6.net
- int(rnd()*146)+5
- 726 ：デフォルトの名無しさん：2019/01/29(火) 22:13:12.12 ID:TIeo+FQH.net
- >>725←これが世間でバグと言われるものです
- 727 ：デフォルトの名無しさん：2019/01/29(火) 22:19:46.43 ID:5yOKK0P6.net
- >>726
どこがバグ？
- 728 ：デフォルトの名無しさん：2019/01/29(火) 22:22:56.72 ID:TIeo+FQH.net
- >>727
それぐらい自分で考えろやプロさんw
脳ミソついとらんかプロさんの頭にはw
- 729 ：デフォルトの名無しさん：2019/01/29(火) 22:40:58.72 ID:2ngnqyHd.net
- >>728
お前が馬鹿
- 730 ：デフォルトの名無しさん：2019/01/29(火) 22:57:33.37 ID:ywRkqTQf.net
- >>727
もっと簡単な例で考えれば分かる
1〜6のサイコロ2個と、2〜12のサイコロ1個で合計7の出る確率は、前者は6/36=1/6、後者は1/11
結果(確率)がまったく違うから、同じプログラムとは言えない
- 731 ：デフォルトの名無しさん：2019/01/29(火) 23:02:31.19 ID:TIeo+FQH.net
- ワイは>>729の恥ずかしさをもっと掘りさげたいんやw
- 732 ：デフォルトの名無しさん：2019/01/29(火) 23:06:27.72 ID:kf38Yh2H.net
- いつも思うんだが、どういう状況で使うんだよ。
Excelでゲームでも作るの?
- 733 ：デフォルトの名無しさん：2019/01/29(火) 23:13:55.62 ID:TIeo+FQH.net
- 話をそらさずにもっと>>729の恥ずかしさを語り明かそうやw
- 734 ：デフォルトの名無しさん：2019/01/30(水) 00:12:38.41 ID:7kXOqwqB.net
- 数学の確率は人間の直感を裏切ることがけっこうあるから、慎重に扱わないと痛い目を見る
- 735 ：デフォルトの名無しさん：2019/01/30(水) 00:15:46.22 ID:mmfL+KpI.net
- 乱数が欲しいんて書いてないし
- 736 ：デフォルトの名無しさん：2019/01/30(水) 00:18:07.14 ID:yYgJ37mP.net
- 確率が直感に合わないのはほとんどの場合解釈を間違えてるだけ
- 737 ：デフォルトの名無しさん：2019/01/30(水) 00:21:14.29 ID:Q4JlCs68.net
- バグと確率の問題をすり替えて逃げてる馬鹿がいる。どこにバグがあるか指摘してみろや。
VBAしかしらない馬鹿どもが。
- 738 ：デフォルトの名無しさん：2019/01/30(水) 00:26:30.71 ID:4G8qGWeY.net
- 「乱数字」という言葉の意味がわからない限り、誰も何も回答できないわけだが
回答者が勝手に問題を作って議論を始めるいつものパターンになってるな
- 739 ：デフォルトの名無しさん：2019/01/30(水) 00:34:51.85 ID:3ZvsJrgT.net
- 結果が意図と違っていたらバグ
たとえば乱数でサイコロをシミュレーションするプログラムで、どれだけ試行しても確率が1/6に収束しようとしなかったらバグがある
- 740 ：デフォルトの名無しさん：2019/01/30(水) 00:36:43.73 ID:ILSDuF01.net
- よっぽど悔しかったんだな。。。
- 741 ：デフォルトの名無しさん：2019/01/30(水) 07:02:27.20 ID:3/CBrgdG.net
- >>737←バグの意味を知らんプロさんwwww
ええでもっと恥ずかしがってもwww
- 742 ：デフォルトの名無しさん：2019/01/30(水) 12:54:53.35 ID:X+zaqEGo.net
- よろしくお願いします。
あるxlsmファイルを、１ヶ月間だけ使える、という形にしたいです。
つまり、各使用者がそのファイルを自分のPCに置いてから、１ヶ月だけは操作できると
いうことなのですが、どのようにしたらよいかわかりません。
ファイルを開いたときに、そのファイルが設置後１ヶ月経っていたら「もう期限切れ」とメッセージを出して
操作を不可能にしてしまうのを考えていたのですが、その設置日というのをどう取得すればいいのか。
「USBメモリなどから、そのファイルがそのPCにコピーされた日」を取得するにはどうすればよいでしょうか？
- 743 ：デフォルトの名無しさん：2019/01/30(水) 13:21:11.92 ID:TCBbgKI9.net
- 「ブックの作成日」でググって出てきた二つ目のサイト
ttps://www.moug.net/tech/exvba/0130015.html
- 744 ：デフォルトの名無しさん：2019/01/30(水) 18:49:20.66 ID:vrvbffTa.net
- 鞄
- 745 ：デフォルトの名無しさん：2019/01/30(水) 19:54:50.43 ID:E22FaIEN.net
- Excel 2016 (64bit) のVBAで質問です
とある理由で、大規模桁の計算をしないといけなくなったので
取り急ぎLongLong型の配列を作って必要な演算を作ろうかと
そこで、エラーが出て悩んでいる案件と、ちょっとした疑問が
とりあえず、代入されるものが数値であるかのチェックは必要よね…と思い
IsNumeric関数を使おうかと思うのですが
これって、例えば100桁の整数を表す文字列でも通るんでしょうか…って通るみたいなんですが
上限は文字列として扱える上限まで行けるんでしょうか？
計算の都合で商を求める演算「\」を使ったところ、10^12 \ 2^22 あたりの計算でオーバーフローとなりました
（実際には、2^22のところはそのオーダーの定数）
「\」の計算は64bitに非対応なのでしょうか？
- 746 ：デフォルトの名無しさん：2019/01/30(水) 21:02:23.30 ID:E37rjQ75.net
- それこそPowerShell呼んでBigInteger使えよ
- 747 ：デフォルトの名無しさん：2019/01/30(水) 22:56:12.99 ID:dsQEAAmt.net
- >>742
基準日をどうするかにもよるけど、
一番簡単なのは、If 今日の日付 = 2019/2/28 Then Exit Sub 的なやつ。
- 748 ：デフォルトの名無しさん：2019/01/30(水) 22:59:06.78 ID:dsQEAAmt.net
- あ、コピーされた日か。
じゃあFileSystemObject使うとか。
- 749 ：デフォルトの名無しさん：2019/01/31(木) 07:12:05.16 ID:Z5McOm4q.net
- コピーされた日なんてどこにも記録されてないんだから取得のしようもないだろ
- 750 ：デフォルトの名無しさん：2019/01/31(木) 07:50:39.64 ID:tKdk8GYp.net
- 起動時にあるセルが空白なら今の日付入れる。
空白でないのなら、セルの内容と今の日付を比べる。
セルは非表示のシートとかでよくね？
- 751 ：デフォルトの名無しさん：2019/01/31(木) 08:17:14.63 ID:mZzaZtfh.net
- >>746
別に作成されているマクロのコンポーネントになるので不採用ですね…。
- 752 ：デフォルトの名無しさん：2019/01/31(木) 10:24:09.90 ID:ivIRiWY+.net
- スルーされてるけど>>743に日付取得のソースが丸々載ってますよ
余程変なことをしなければ、コピー日時はファイルの（≠エクセルのプロパティ）の作成日時です
適当なセルをパスワード保護して、ブックモジュールのOpenイベントに空白条件で日付を入れるコードを書けば初回起動で記録されます。
>>745
\演算子が良く分からないのですが、除算の結果から小数点以下を消すという意味なら
Int(10 ^ 12 / 2 ^ 22)
でどうでしょうか
- 753 ：デフォルトの名無しさん：2019/01/31(木) 12:39:08.81 ID:xxTKFGAk.net
- >>751
WScript.Shell で呼べばいい
VBAのソース内に書いたPowerShell実行できるぞ
- 754 ：デフォルトの名無しさん：2019/01/31(木) 12:43:51.49 ID:B2lY3/DV.net
- >>753
何でそういう面倒くさい方法にしなきゃならんの?
VBAじゃどうにもならんという結論か?
- 755 ：デフォルトの名無しさん：2019/01/31(木) 12:52:33.19 ID:xxTKFGAk.net
- >>754
VBAでやろうとすれば自前で多倍長整数演算を実装する必要があり、開発とテストで誇張抜きで工数数百倍かかるよ
- 756 ：デフォルトの名無しさん：2019/01/31(木) 16:39:19.38 ID:aH0rCOCG.net
- >LONGLONG
>101桁の整数
あほですか
- 757 ：デフォルトの名無しさん：2019/01/31(木) 19:07:59.37 ID:B2lY3/DV.net
- >>755
だからさ、まずお前の結論としてVBAじゃ無理というのがあって、それからだろPowerShell云々は。
で、本当のところ、無理かどうかは分からんが、仮に無理だとしてどうしてPowerShellになるんだ?
別に他でも良いわけだろ。
- 758 ：デフォルトの名無しさん：2019/01/31(木) 19:08:45.03 ID:2eoSLZbf.net
- >IsNumeric関数を使おうかと思うのですが
On Error Resume Next
数字じゃないとエラーが起きるような処理
エラーが起きたら終了みたいな
On Error Goto 0
- 759 ：デフォルトの名無しさん：2019/01/31(木) 19:28:01.37 ID:ivIRiWY+.net
- >>745
>>IsNumeric関数を使おうかと思うのですが、上限は文字列として扱える上限まで行けるんでしょうか？
ちょっと質問内容が良く分からないのですが、
・そもそもLongLong型（64bit＝8バイト）の話では無かったのですか？100桁とは？
・ヘルプに有る通り文字列型の上限は2GBですが（以下同様）
仮に2GBの判定が出来たとしても、その膨大な時間を使うよりは例外処理してしまった方が早いと思います。
- 760 ：デフォルトの名無しさん：2019/01/31(木) 19:28:54.99 ID:kne0z8/A.net
- >>745
よくそんな仕事請け負ったな、依頼者に騙されてないか？
- 761 ：デフォルトの名無しさん：2019/01/31(木) 19:31:09.20 ID:ivIRiWY+.net
- お話を聞いてる限り、恐らく元々の依頼内容も勘違いされている部分があると思うので、
差し支えない範囲で教えて貰えれば根本的な部分に回答が出来るかもしれません。
- 762 ：デフォルトの名無しさん：2019/01/31(木) 19:31:49.59 ID:ivIRiWY+.net
- みんな同じ様な事言っててワロタ
- 763 ：デフォルトの名無しさん：2019/01/31(木) 21:50:14.70 ID:xxTKFGAk.net
- >>757
別にPowerShellでなくてもいいけど、標準のWindowsだけで特に追加で何か入れることなく使えて
多倍長演算もサポートしててVBAから簡単に呼べるのなんて他にある?
- 764 ：デフォルトの名無しさん：2019/02/01(金) 01:19:40.80 ID:UQQ7ub0a.net
- >>759
そちらの質問は興味本位です。与えられた数値に見える文字列を信じるなら不要です
それと、LongLong型で済むなら配列はいりませんし
やりたいことは、例えば「100桁同士の四則演算をする」というようなことです。
コンパイラのインストールをセキュリティポリシーで禁止されているので
困っているのですよ。
>>761
そちらは時間があれば勉強してみようかと
ただ、それで実装すると引き継ぐときに後の人が大変そうですが
- 765 ：デフォルトの名無しさん：2019/02/01(金) 02:51:10.44 ID:Jdk/7rOF.net
- 100桁ぐらいなら、Ruby でも演算できる
- 766 ：デフォルトの名無しさん：2019/02/01(金) 03:10:10.30 ID:HKJPuzL8.net
- >>764
あまりに馬鹿過ぎて話しにならん
どうして馬鹿と言われるか理解できるか？
- 767 ：デフォルトの名無しさん：2019/02/01(金) 04:03:45.69 ID:bJm3iiDn.net
- >>752
初回起動で設定しても元のブックをコピーし直せば何度でも使える
何の条件で期間指定したいのかわからないけど
パソコン限定ならレジストリでも使うのかな
- 768 ：デフォルトの名無しさん：2019/02/01(金) 07:03:41.22 ID:gp0X8o+d.net
- >>745
言語の動作もわかっていないこんな奴に依頼するなんて。頼む方も頼む方。
- 769 ：デフォルトの名無しさん：2019/02/01(金) 07:18:07.26 ID:76fUr+Yk.net
- Excel VBAの質問スレだろ
質問も回答もする気無いならスルー出来んのか？
- 770 ：デフォルトの名無しさん：2019/02/01(金) 07:44:04.79 ID:eMw5OSNU.net
- 答えられない質問はとりあえず馬鹿にして勢いで乗り切る方針のプロさんw
バカwww
- 771 ：デフォルトの名無しさん：2019/02/01(金) 08:37:10.62 ID:UEAxmDKm.net
- ComboBoxで↓を押して表示されるリストの行数は固定でしょうか？
表示行数を増やす方法がありましたら、ご教授ください
よろしくお願いします
- 772 ：デフォルトの名無しさん：2019/02/01(金) 08:51:37.94 ID:76fUr+Yk.net
- >>767
Excelのレジストリ操作だと簡単なのはそのパソコンのユーザー毎の設定だな
無論APIを使えば何でもできるけどね
所詮はバーチャルマシンも考えればユーザー側も何でもできる
その程度と思って使うか ネットにDB持つかだな
- 773 ：デフォルトの名無しさん：2019/02/01(金) 08:51:40.44 ID:8kRZ6Lw/.net
- 最近はexcel2010とVB.netで改元対応しています。
excelのイベント少ないなって思っているのですが、2016などの新しいのはイベントや関数などは増えているのでしょうか？
2019なんかはタブレット操作用のイベントもあったりするとかでしょうか？
- 774 ：デフォルトの名無しさん：2019/02/01(金) 09:05:53.38 ID:qPCno0Ra.net
- なんかすごいところだな
>>766とか上から目線ってかもう天から垂直に見下ろして魔法打ち込んでるレベルだな
しかも書き込んでる時間が深夜3:00とか超絶生活者
- 775 ：デフォルトの名無しさん：2019/02/01(金) 10:01:49.43 ID:FlvBcwUR.net
- 763 名前：デフォルトの名無しさん[sage] 投稿日：2019/02/01(金) 02:51:10.44 ID:Jdk/7rOF
100桁ぐらいなら、Ruby でも演算できる
ｹﾞﾗｹﾞﾗｹﾞﾗｹﾞﾗｹﾞﾗｹﾞﾗ
- 776 ：デフォルトの名無しさん：2019/02/01(金) 10:50:03.45 ID:3Ud/K8J0.net
- >>775
計算するライブラリーが有るってことじゃないの
Rubyしらんが
- 777 ：デフォルトの名無しさん：2019/02/01(金) 10:54:24.80 ID:rRNrmt+/.net
- >>773
VBAはレガシー扱いだからMSのポリシー的に積極的な機能追加は不可
ちなみにVB.NETのWindowsフォームも既にレガシーで開発終了してる
- 778 ：デフォルトの名無しさん：2019/02/01(金) 10:55:12.36 ID:3Ud/K8J0.net
- >>775
計算できるライブラリーがあるだけじゃないの
どんな言語でも、４則演算程度なら作れるだろ
- 779 ：デフォルトの名無しさん：2019/02/01(金) 10:56:26.07 ID:wTTD69jh.net
- VBAだって超多倍長演算ライブラリぐらいネットに転がってんじゃない？
ちなLongLongで扱えるのは18桁まで、乗除算でオーバーフローを起こさないようにするなら半分以下の桁で使うのが無難
- 780 ：デフォルトの名無しさん：2019/02/01(金) 10:57:36.71 ID:3Ud/K8J0.net
- すまん、ダブって書き込みしても〜た
- 781 ：デフォルトの名無しさん：2019/02/01(金) 15:50:46.63 ID:eD54qyaY.net
- VBAなんて低級言語を真剣にやってるバカ
言い訳は色々あるんだろうけどそろそろちゃんとしたのを覚える時期だよ
- 782 ：デフォルトの名無しさん：2019/02/01(金) 16:15:57.80 ID:9mJigrZN.net
- >>781
心が病んでるな、かわいそうに。
- 783 ：デフォルトの名無しさん：2019/02/01(金) 17:19:33.59 ID:oMFegD+z.net
- 低級言語・高級言語の意味すら分かってないのって
かわいいな
- 784 ：デフォルトの名無しさん：2019/02/01(金) 18:56:31.92 ID:dMBA0PwK.net
- もしレベル的な意味合いで貶すなら下級または低俗じゃないかな
低級だと金額的な意味合いだからオフィス製品みたいな安い言語使いやがって、という意味か
高い開発言語ってなんだろ
- 785 ：デフォルトの名無しさん：2019/02/01(金) 19:14:07.93 ID:OpRhgdeW.net
- >>781
お前の馬鹿頭ではアセンブラは何言語になっているんだ？
- 786 ：デフォルトの名無しさん：2019/02/01(金) 19:21:01.59 ID:69So7CMb.net
- どんな状況で100桁の計算が必要なんだよwwwwww
弾道計算でもするのかよwwwwww
どうしても必要だとして、
16777216を、256×256×256で表現するRGBみたいに、
分離して計算できないの?
- 787 ：デフォルトの名無しさん：2019/02/01(金) 19:48:56.75 ID:oMFegD+z.net
- 桁数じゃあなくて精度の問題だろ
何桁精度が必要か
全部なら分けて計算するんだろ
整数限定かよ
- 788 ：デフォルトの名無しさん：2019/02/01(金) 20:43:56.48 ID:ldeBmXAI.net
- >>764
Mid関数がString型の限界である20 億文字（桁）まで対応出来るようなので、限界まで判定可能です。
実際に試そうと思ったのですが、1000万桁あたりからエラーは起きないものの処理が終わる気配がありませんでした。
また、311桁目から判定がFalseとなり正常に判定できませんので注意してください。
- 789 ：デフォルトの名無しさん：2019/02/01(金) 21:29:30.54 ID:6BaLLxbK.net
- >>774
腹筋イタイｗｗｗ
- 790 ：デフォルトの名無しさん：2019/02/01(金) 21:35:52.61 ID:yy1ts1sJ.net
- >>784
>低級だと金額的な意味合いだから
は？？？？？？？？？
- 791 ：デフォルトの名無しさん：2019/02/01(金) 23:01:14.33 ID:UXXgl86T.net
- >>766
中学生かそれ以下の質問だな
- 792 ：デフォルトの名無しさん：2019/02/01(金) 23:02:01.30 ID:UXXgl86T.net
- >>771
64kbの壁でぐぐれ
- 793 ：デフォルトの名無しさん：2019/02/02(土) 02:17:14.50 ID:nzR6xkI9.net
- >>788
こんな馬鹿に人月とかで請求されたらブチ切れる
馬鹿だから時間を食うだけだろ
- 794 ：デフォルトの名無しさん：2019/02/02(土) 03:55:47.52 ID:XBSRuYVd.net
- 機械よりか人間よりかで低いか高いか
- 795 ：デフォルトの名無しさん：2019/02/02(土) 06:09:03.94 ID:jIzNjlQE.net
- >745
何桁通るかは別として、IsNumericって例えば"1.2e3"とか"\30"とかでもTrue返すんだけど、それはいいの？
- 796 ：デフォルトの名無しさん：2019/02/02(土) 09:04:05.51 ID:jIzNjlQE.net
- あと"&hDEADBEEF"とか"&o77"とか
ついでに全角/半角が混在しててもTrueだし、文字列の前後にスペースタブ改行なんかが入っててもTrueだね
- 797 ：デフォルトの名無しさん：2019/02/02(土) 11:42:55.97 ID:QW9QiURg.net
- declareのシグニチャー間違えたらフリーズするんだけどdllから型情報取れないの？？？？？
- 798 ：デフォルトの名無しさん：2019/02/02(土) 13:15:40.31 ID:C6ef9W0S.net
- >>797
調べりゃ出てくるんだからそんな面倒なことしなくてもよくね？
- 799 ：デフォルトの名無しさん：2019/02/02(土) 19:22:50.38 ID:VsnxbMPu.net
- そんなに桁数使うことあるの？
桁数ならアセンブラなら言語的な制限がないから
C++のインラインアセンブラで作ってDLL化しておけばいいんじゃない？
ま、あまり桁数が多い場合は外に出しても数字として扱えないだろうから
文字列として扱うしかないけど
- 800 ：デフォルトの名無しさん：2019/02/02(土) 20:08:24.01 ID:mZCa7M9L.net
- >>799
アホか
CPUがネイティブで扱える桁数は決まっている
- 801 ：デフォルトの名無しさん：2019/02/02(土) 21:45:51.31 ID:l+0aiRcv.net
- 8bitCPUがネイティブで扱える電卓は決まっている
- 802 ：デフォルトの名無しさん：2019/02/02(土) 22:18:38.36 ID:Ep74GMaU.net
- 昔々、256桁の四則演算ルーチン組んだことある。アセンブラで。
今なら VBAでも同じくらいの速度で動くんだろうな…
- 803 ：デフォルトの名無しさん：2019/02/02(土) 22:40:50.50 ID:nzR6xkI9.net
- このスレで質問する薄ら馬鹿に匹敵する馬鹿ばっか
Python3使えよというまともな提案が未だなし
- 804 ：デフォルトの名無しさん：2019/02/02(土) 22:57:11.62 ID:IQGxMEya.net
- 801＜ｶﾏｯﾃｰ、ｶﾏｯﾃｰ、ﾎﾞｸﾁｬﾝｦ ｶﾏｯﾃｰ
- 805 ：デフォルトの名無しさん：2019/02/02(土) 23:30:42.83 ID:32vETS5N.net
- シート１をアクティブにしてWEBクエリで取り込んだあとReplaceで置換したいのですが
うまくいきません。なぜかF8でステップ実行したらできるのですが、普通に実行すると置換されません。
何がいけないんでしょうか。
- 806 ：デフォルトの名無しさん：2019/02/03(日) 00:12:07.90 ID:1X9tFGjy.net
- >>800
アホか桁繰り上げ繰り下げのフラグを知らんのか？
むかーしのZ80や6502だってメモリの許す限り
際限なく計算出来るわ
- 807 ：デフォルトの名無しさん：2019/02/03(日) 00:35:40.02 ID:1X9tFGjy.net
- そもそもそう言った計算方法を
知らなかったとしても
8bitや16bitしか演算に扱えなかった時代に
テレビゲームとかで255や65535を超える
スコアが表示されていたことを思い出せば
普通は人をアホ呼ばわりすることを
書き込む前に気付きそうなもんだけどな
- 808 ：デフォルトの名無しさん：2019/02/03(日) 06:14:34.05 ID:eVzJd4zP.net
- そういう処理をアセンブラでしかできないと思ってるからアホだって言われるんだよ
- 809 ：デフォルトの名無しさん：2019/02/03(日) 06:43:05.61 ID:Q6V8DKqV.net
- 多少非効率になるけどたいていの言語で多倍長演算はできる
なので
> 桁数ならアセンブラなら言語的な制限がないから
とか意味わからん、って話だろ
- 810 ：デフォルトの名無しさん：2019/02/03(日) 06:57:12.02 ID:1X9tFGjy.net
- >>808
いや>>800はあからさまに
「CPUがネイティブで扱える桁数は決まっている」からって言ってるんだが？
それに俺は実現方法の一例を挙げただけだと思うが「アセンブラでしか出来ない」なんて
どこに書いてあるんだ？
もっとも、桁数制限のない計算を
もっと効率よくVBAで使用する方法が
あるのであればそれはそれで聞いてみたいけど
- 811 ：デフォルトの名無しさん：2019/02/03(日) 07:06:03.78 ID:1X9tFGjy.net
- >>809
効率を考えなければ別にC++の時点で出来るんだよ
なんでC++からインラインアセンブラを
使用するような話をしていると思う？
- 812 ：デフォルトの名無しさん：2019/02/03(日) 07:34:17.85 ID:Q6V8DKqV.net
- >>810-811
>>799を見てからレスしなよ…
- 813 ：デフォルトの名無しさん：2019/02/03(日) 08:52:19.94 ID:kk/DtOkp.net
- >>807
まあ、単位が100点だと、後ろの00は飾りだと思うけどな。
- 814 ：デフォルトの名無しさん：2019/02/03(日) 09:10:44.36 ID:eVzJd4zP.net
- >>810-811
なに効率とか後付けしてんだアホ
あと「コンパイラのインストールをセキュリティポリシーで禁止されている」って書いてあるのを読めてないのもアホ
- 815 ：デフォルトの名無しさん：2019/02/03(日) 09:36:56.46 ID:C7VVL/VH.net
- ゼビウス1000万点超えは9999990で表示が止まるがゲーム続行
- 816 ：デフォルトの名無しさん：2019/02/03(日) 09:40:40.04 ID:J1QLe6/n.net
- 足し算ならExcelでも実用レベルで作れるわ
- 817 ：デフォルトの名無しさん：2019/02/03(日) 10:00:11.19 ID:tEc8TngX.net
- >>814
> あと「コンパイラのインストールをセキュリティポリシーで禁止されている」って書いてあるのを読めてないのもアホ
今時C#とかVB.NETのコンパイラなんてインストールいらんぞ
情弱なのかXPでドヤってるのかは知らんけどw
- 818 ：デフォルトの名無しさん：2019/02/03(日) 10:19:47.32 ID:vrXjtSxX.net
- >>814
今のWindowsはインストールしなくてもC#コンパイラが最初から入ってる
- 819 ：デフォルトの名無しさん：2019/02/03(日) 10:39:36.74 ID:eVzJd4zP.net
- 誰がC#とかVBの話してんだよアホども
- 820 ：デフォルトの名無しさん：2019/02/03(日) 11:12:27.82 ID:tEc8TngX.net
- >>819
コンパイラの話な
恥ずかしいからもう出てくんなw
- 821 ：デフォルトの名無しさん：2019/02/03(日) 11:42:00.66 ID:o6ig8vkN.net
- >>820←恥を知らないプロさんwww
- 822 ：デフォルトの名無しさん：2019/02/03(日) 12:05:01.97 ID:Q6V8DKqV.net
- ダサw
- 823 ：デフォルトの名無しさん：2019/02/03(日) 15:02:23.40 ID:kTgfWuu8.net
- >>819
日本語に不自由か真性のバカ発見
- 824 ：デフォルトの名無しさん：2019/02/03(日) 15:51:29.62 ID:xJhhUajw.net
- ｈｔｍｌ？のようなパラメーターのあるURLから ActiveSheet.QueryTables.Add を使って
WEBクエリで取り込むにはどうすればいいでしょうか？
一部変数を使うのですが文字列を結合するやり方ではうまくいきません。
- 825 ：デフォルトの名無しさん：2019/02/03(日) 16:02:39.05 ID:vrXjtSxX.net
- >>824
認証やクッキーが必要か、URLが間違ってるか、エンコードが必要か、原因は色々考えられる
- 826 ：デフォルトの名無しさん：2019/02/03(日) 22:56:23.72 ID:xJhhUajw.net
- >>825
エンコードが原因みたいです。
&や=は使えないのですね。
返信ありがとうございました。
- 827 ：デフォルトの名無しさん：2019/02/03(日) 23:53:48.67 ID:OgrV47La.net
- 以下のアプリを作って欲しい
画面上でオンスクリーンかなんでもいいので、文字が瞬間的に現れて消えるアプリ。
１つのばりばらに並んだ文字につき！約1秒から0.05秒の間で調節できるようにしたい。
文字のデータベースは、同ブック内の別シートにて管理するものとする。
- 828 ：デフォルトの名無しさん：2019/02/03(日) 23:59:07.80 ID:I0mCFuyH.net
- >>827
死ね
- 829 ：デフォルトの名無しさん：2019/02/04(月) 03:07:11.70 ID:ZoDPv0KA.net
- >>827
ExcelとかVBAじゃなくていいなら作るけど
- 830 ：デフォルトの名無しさん：2019/02/04(月) 06:46:04.48 ID:d8a/a/xM.net
- >>827
作るのは他の要件が有るだろうから他の人に
Excelのシートから枠線を消して全画面表示
ランダムに出す文字はワードアートを挿入したり
消すだけでいいだろ
- 831 ：デフォルトの名無しさん：2019/02/04(月) 07:25:45.63 ID:d8a/a/xM.net
- >>826
>&や=は使えないのですね。
エンコードでは使えるだろ、デコードはデコードする
文字の法則があるけど
ちなみに、エンコードやデコードは必要なの？
- 832 ：デフォルトの名無しさん：2019/02/04(月) 07:29:54.23 ID:d8a/a/xM.net
- このスレもワッチョイ入れたら？
- 833 ：デフォルトの名無しさん：2019/02/04(月) 08:04:31.54 ID:q/1gUcq+.net
- >>829
じゃあ、Androidアプリでいいから、つくってフリーでGoogleストアにだせる？
- 834 ：デフォルトの名無しさん：2019/02/04(月) 08:24:31.69 ID:zwEJkqhi.net
- ルパン三世？
- 835 ：デフォルトの名無しさん：2019/02/04(月) 09:55:11.03 ID:fGXzCPh9.net
- >>833
Androidアプリ関係ないだろ
VB C#なんかでCVS形式などでパラメーターで受けて表示するプログラムなら簡単に作れるってことだろ
- 836 ：デフォルトの名無しさん：2019/02/04(月) 10:53:03.12 ID:Kbv/gmVc.net
- フラッシュ暗算みたいなやつか？
- 837 ：デフォルトの名無しさん：2019/02/04(月) 12:14:30.52 ID:q/1gUcq+.net
- >>836
イエス。言語を選ばないとやっぱり難しい？
- 838 ：デフォルトの名無しさん：2019/02/04(月) 12:40:18.01 ID:OuHrukdw.net
- >>837
別にVBAでも簡単だと思うけど作成依頼だったら費用が発生するのが普通だと思うんだが。
0.05秒ってのがどうかだね。
- 839 ：デフォルトの名無しさん：2019/02/04(月) 12:58:23.32 ID:+5141PVg.net
- 費用が発生しとる作成依頼なんか見たことないわw
何を言っとるんやこのバカw
- 840 ：デフォルトの名無しさん：2019/02/04(月) 13:05:48.06 ID:aEyGOWy8.net
- >>837
死ねよ
- 841 ：デフォルトの名無しさん：2019/02/04(月) 14:32:52.57 ID:d8a/a/xM.net
- >>837
別に難しくない
0.05秒を気にしている人もいるが、正確な時間を取得することは出来る
ワードアートの作成・削除の時間を気にしているなら、表示・非表示の切り替えで
対応すればよいだけ
全画面表示・タイトルバー・スクロールバー・シートタブの非表示
ボーダーも0に設定すれば良いだけ
- 842 ：デフォルトの名無しさん：2019/02/04(月) 14:47:47.78 ID:Mgc+6WQD.net
- 取得できても(人間の反応速度と比較して無視できる程度の誤差で)正確に表示するのはExcelでは厳しいでしょ
ちらつきまくるよ
- 843 ：デフォルトの名無しさん：2019/02/04(月) 15:08:11.96 ID:d8a/a/xM.net
- まあ、出来ない人間には出来ないだけ、書き込む必要もないのに
やり方なんていくらでもある
- 844 ：デフォルトの名無しさん：2019/02/04(月) 17:01:02.28 ID:fGXzCPh9.net
- 細かいこといわなければパワポでVBAで十分だろ
- 845 ：デフォルトの名無しさん：2019/02/04(月) 18:26:41.76 ID:OuHrukdw.net
- >>843
やってから言ってんの?
俺はまだ、やってないから気にしただけなんだが。
ちなみに、俺はVBAのUserFormもシートも使うつもりは無い。
スピードも速いとは思うが、何ぶん計測したことは無いからね。
- 846 ：デフォルトの名無しさん：2019/02/04(月) 18:38:32.34 ID:OuHrukdw.net
- >>839
自分は何もせずに依頼すれば出てくるというのは虫が良いだろという意味なんだが。
- 847 ：デフォルトの名無しさん：2019/02/04(月) 18:51:55.31 ID:VG0XR/Gw.net
- でも結局誰も作ってなくて草
- 848 ：デフォルトの名無しさん：2019/02/04(月) 18:53:45.79 ID:fefAq5Di.net
- まあ 出来の悪い奴は文句も多いからな
- 849 ：デフォルトの名無しさん：2019/02/04(月) 19:28:29.36 ID:iZ37iel0.net
- CSS アニメで作れば？
- 850 ：デフォルトの名無しさん：2019/02/04(月) 19:59:53.09 ID:q/1gUcq+.net
- >>847
1に作成依頼受け付けますと書いてあったから期待して依頼したが、馬鹿を見たよ
- 851 ：デフォルトの名無しさん：2019/02/04(月) 20:02:20.97 ID:aEyGOWy8.net
- >>850
じゃあ、
｢ExcelのVBAに関する質問スレです｣も守れや。死ねよ。
- 852 ：デフォルトの名無しさん：2019/02/04(月) 20:08:32.00 ID:5NG821Xc.net
- >>850
分かったよ
受けるよ
- 853 ：デフォルトの名無しさん：2019/02/04(月) 20:19:41.54 ID:R+dJYoTm.net
- vbaやってるサラリーって何故かマッチョ多くね？
- 854 ：デフォルトの名無しさん：2019/02/04(月) 20:54:17.47 ID:VG0XR/Gw.net
- >>850
https://www.axfc.net/u/3957636
初学者が作ってやったぞwほらよｗ
まぁもっと良いの>>852が作ってくれるやろｗ
- 855 ：デフォルトの名無しさん：2019/02/04(月) 22:43:34.77 ID:lmibofpe.net
- エディタは別のを使わずに備え付けのものを使いますか？
- 856 ：デフォルトの名無しさん：2019/02/04(月) 22:52:12.63 ID:WAN0VVnl.net
- 高速でシートを切り替えるとか、
ふざけるのかと思ったら、結構真面目に作っててﾜﾛﾀ。
- 857 ：デフォルトの名無しさん：2019/02/05(火) 08:19:52.51 ID:8bHFC9p3.net
- >>856
後で見てみるけど、仕様になかったインターバルの時間とか可変で設定できる？
- 858 ：デフォルトの名無しさん：2019/02/05(火) 08:25:47.35 ID:Bt9udYT0.net
- フラッシュ暗算て何？
てっきりルパン三世だと思ったんだが
- 859 ：デフォルトの名無しさん：2019/02/05(火) 09:46:15.11 ID:seWX9f2k.net
- >>858
画面に数字が次々に出て暗算で合計を求めるやつ
https://www.youtube.com/watch?v=wTkVZne-i2g
- 860 ：デフォルトの名無しさん：2019/02/05(火) 10:20:39.56 ID:Kjw5jSR6.net
- >>859
まあ、これが評価できる最低限の仕様だな
- 861 ：デフォルトの名無しさん：2019/02/05(火) 10:22:40.38 ID:Kjw5jSR6.net
- ちゃんとしたのを、>>852が作ってくれるやろ
ことを期待しよう
- 862 ：828：2019/02/05(火) 11:08:12.53 ID:Kjw5jSR6.net
- >>830 デフォルトの名無しさん2019/02/04(月) 06:46:04.48ID:d8a/a/xM
>>827
> 作るのは他の要件が有るだろうから他の人に
> Excelのシートから枠線を消して全画面表示
> ランダムに出す文字はワードアートを挿入したり
> 消すだけでいいだろ
最低限でもこの程度のことやれよっと、ワードアートの動作速度が問題なら全て作成してから
表示非表示を切り替えるだけだよっと
- 863 ：デフォルトの名無しさん：2019/02/05(火) 11:15:39.50 ID:seWX9f2k.net
- >>854
↑これで骨組みは十分だろ
- 864 ：デフォルトの名無しさん：2019/02/05(火) 11:22:46.31 ID:Kjw5jSR6.net
- >>863
こんなの客に提示するとすぐ帰っていくよ
イメージが違い過ぎる
- 865 ：デフォルトの名無しさん：2019/02/05(火) 11:25:28.34 ID:Kjw5jSR6.net
- 行間を読めない奴はいつまでたってもろくなもの作れないんだよ
おれは、年取ったから行間いっぱいある奴は遠慮するけどな
- 866 ：デフォルトの名無しさん：2019/02/05(火) 11:53:42.93 ID:Kjw5jSR6.net
- ちゃんとしたのを、>>852が作ってくれるやろ
ことを期待しよう。
- 867 ：デフォルトの名無しさん：2019/02/05(火) 12:15:44.59 ID:jg7BNmXb.net
- なんやバカ必死やなw
- 868 ：デフォルトの名無しさん：2019/02/05(火) 12:19:32.33 ID:8bHFC9p3.net
- >>867
面白いな何で草はえるの
- 869 ：デフォルトの名無しさん：2019/02/05(火) 12:32:36.37 ID:Kjw5jSR6.net
- >>867
ちみぐらいバカをからかうのって私の趣味ではありません
あわれ過ぎるから
- 870 ：デフォルトの名無しさん：2019/02/05(火) 12:53:49.77 ID:jg7BNmXb.net
- 加速するバカw
- 871 ：852：2019/02/05(火) 12:54:18.46 ID:uJYvVabq.net
- >>857と>>859の要素を気持ち取り入れてみたよ
あとはもうシラネ
https://www.axfc.net/u/3957750
- 872 ：852：2019/02/05(火) 13:02:38.95 ID:uJYvVabq.net
- 間違えた。こっちで
https://www.axfc.net/u/3957753
- 873 ：デフォルトの名無しさん：2019/02/05(火) 13:05:08.57 ID:Kjw5jSR6.net
- >>871
知らねえと言われても
ファイルが見つかりません
既にファイルが削除されたか、期限切れになったか、ダウンロード上限数に達した、若しくは誤ったURLが指定されています。
再度ご確認下さいますようお願い致します。
- 874 ：デフォルトの名無しさん：2019/02/05(火) 15:50:53.68 ID:Kjw5jSR6.net
- >>872
今さっき起きた。
ソースを１分程度見たけど、毛が１本生えただけだろ
オリジナル性もない、引かれている部分もありで
評価はマイナスだな、マクロを動かす気にもならん
- 875 ：デフォルトの名無しさん：2019/02/05(火) 16:03:55.64 ID:Kjw5jSR6.net
- >>859
ホントなんだよ、この映像少なくとも全画面表示で
他の表示はテスト中いらないは
結果は、答え合わせでちゃんと出るようにな
問題作成だって、何の機能もないって考えてないだろ
指定した桁数で数字を作成しろよ・・・こんなの仕様の内の一寸な
- 876 ：デフォルトの名無しさん：2019/02/05(火) 16:18:43.72 ID:Kjw5jSR6.net
- >>872
テストしないのは申し訳ないと思ってもう一度２０秒ぐらい見た
あまりにごみで、テストしてない
- 877 ：デフォルトの名無しさん：2019/02/05(火) 20:09:31.48 ID:2313QgIt.net
- 必死すぎてアンタッチャブルのバカw
- 878 ：デフォルトの名無しさん：2019/02/05(火) 20:30:50.84 ID:seWX9f2k.net
- 金もらえるならきちんと作るだろうけど金出さないんでしょ？
- 879 ：デフォルトの名無しさん：2019/02/05(火) 21:01:45.45 ID:WLSIITfa.net
- きちっとって このレベルを１００倍してもくずはくずだな
- 880 ：デフォルトの名無しさん：2019/02/05(火) 21:13:23.45 ID:seWX9f2k.net
- ただでもらったものにケチつけるって人間としてクズだな
- 881 ：デフォルトの名無しさん：2019/02/05(火) 21:45:13.17 ID:84y7DIGj.net
- なんかつらいことがあったんでしょ
そっとしといてあげなさい
- 882 ：852：2019/02/05(火) 23:50:58.70 ID:uJYvVabq.net
- ユーザーフォームに変えてみた
あと少し機能を足してみた
https://www.axfc.net/u/3957855
- 883 ：デフォルトの名無しさん：2019/02/06(水) 00:44:18.42 ID:ZnA/X3oO.net
- A B
1 あ
2 い
1 か
2 き
3 く
1 さ
1 た
2 ち
となっているデータを、連番でまとめて
あい
かきく
さ
たち
とするにはどうすればいいですか？
- 884 ：デフォルトの名無しさん：2019/02/06(水) 01:00:17.91 ID:Piy/PJ2X.net
- >>883
死ねばいいよ
- 885 ：デフォルトの名無しさん：2019/02/06(水) 05:43:02.95 ID:DSThmZXP.net
- 死ねばいいよ
- 886 ：デフォルトの名無しさん：2019/02/06(水) 10:06:21.68 ID:pkuTd0pW.net
- >>883
関数で直接は難しいけどVBAでやるなら簡単だろ
ただそれもわからない人間に提示しても無駄だな
- 887 ：デフォルトの名無しさん：2019/02/06(水) 10:48:09.84 ID:pkuTd0pW.net
- >>882
マクロを実行してみた、君は自分で考えてるんで良いと思う
１．出力する問題は固定ではなく文字とか長い数字もいらない
桁数（上限・下限）を指定してランダムに数値を発生すること
フラッシュ暗算を考えると余分な機能はいらない
２．バックを全画面表示にすること
もちろん、画面の中央に表示する、画面の大きさから割合で文字の大きさを指定する
３．タイミングをｍｓで指定指定しているが
ディスプレーって最大解像度ではリフレッシュレート60hz（16.6msおき）程度なんだよ
ディスプレーの反応速度も早くて5msかかる、10ms単位で十分だが、好みはある
４．答えの表示がチェックだが
要するに終わった後、計算が合ってるかを確認するんだから
終了後に特定のキーを押したら答えを出すでいいだろ
ざっくり、大きく気になった点だけ、やり方は分からなければ聞け
- 888 ：デフォルトの名無しさん：2019/02/06(水) 10:57:13.19 ID:pkuTd0pW.net
- 全画面表示は数字表示部をユーザーフォーム（全画面）で表示文字をVBAで切り替えたほうが簡単だな
- 889 ：デフォルトの名無しさん：2019/02/06(水) 11:03:53.28 ID:inxqkSwn.net
- 上司気取りの人が上から目線でダメだしし出したけどこの人どんだけ偉いの？
まさか感謝でもしてもらえるとか妄想してんのかな
- 890 ：デフォルトの名無しさん：2019/02/06(水) 11:26:06.43 ID:pkuTd0pW.net
- >>889
で、君にはどんなダメ出しが欲しいんだ？
- 891 ：デフォルトの名無しさん：2019/02/06(水) 11:34:27.39 ID:pkuTd0pW.net
- まあ、自分で作って「フラッシュ暗算」で面白いものを作ってみろよ
自分で満足できないものは、他人は評価しないよ
- 892 ：デフォルトの名無しさん：2019/02/06(水) 12:26:19.63 ID:FGND1cQA.net
- おいwこのバカ必死すぎてダメ出しとかしだしたでw
- 893 ：デフォルトの名無しさん：2019/02/06(水) 12:43:34.25 ID:eyuAOAwV.net
- >>883
Dim i As Long
i = 1
Do While Range("A1").End(xlDown).Row > i
Cells(Cells(i, 1), 3) = Cells(Cells(i, 1), 3) + Cells(i, 2)
i = i + 1
Loop
答えやアドバイスをしないでマウントしてくるやつは結局何も出来ないやつと同じなので放置で。
- 894 ：デフォルトの名無しさん：2019/02/06(水) 12:45:00.03 ID:eyuAOAwV.net
- あ、質問の意味まちがえてたｗ
- 895 ：デフォルトの名無しさん：2019/02/06(水) 12:50:23.01 ID:oteDmMe3.net
- >>894
だよね
ひらがなのあ行か行…で括るっぽいし
2行目の2と4行目の2が紐づく1が違うから考えれば出来そうだけど面倒そう
- 896 ：デフォルトの名無しさん：2019/02/06(水) 12:56:44.95 ID:pkuTd0pW.net
- >>895
え、どんだけ
- 897 ：デフォルトの名無しさん：2019/02/06(水) 12:58:37.07 ID:pkuTd0pW.net
- バカって、すぐ熱くなるよな、面白いけど
- 898 ：デフォルトの名無しさん：2019/02/06(水) 13:07:21.25 ID:eyuAOAwV.net
- これでどうや！ｗ
Dim i, j, k As Long
i = 1: j = 1: k = 1 'i=データの行 j=書き込みセルの行 k=数列のカウント用
Do While Range("A1").End(xlDown).Row >= i
Cells(j, 3) = Cells(j, 3) + Cells(i, 2)
If Cells(i + 1, 1) <> k + 1 Then j = j + 1: k = 0
i = i + 1
k = k + 1
Loop
- 899 ：デフォルトの名無しさん：2019/02/06(水) 13:15:51.19 ID:pkuTd0pW.net
- >>898
>これでどうや！ｗ
何に対して言ってるのかな？。なんだろう？こんなの提示して？
よくわからんな
- 900 ：デフォルトの名無しさん：2019/02/06(水) 13:22:01.82 ID:eyuAOAwV.net
- >>899
ばっかだなぁ、881に対していってんだろｗ
つかお前マウントとることしかしないASDのザコという認識だから何も求めてない。レスいらない。
するならちゃんと自分で作ったものを提示してからだ。できたらあやまる。
- 901 ：デフォルトの名無しさん：2019/02/06(水) 13:25:32.81 ID:pkuTd0pW.net
- 例えば
「Do While Range("A1").End(xlDown).Row >= i 」
こんなの"A1"と変数jとiが同期できていないことでプログラムじゃないよ
- 902 ：デフォルトの名無しさん：2019/02/06(水) 13:27:12.93 ID:pkuTd0pW.net
- >>900
うふ〜面白いな
- 903 ：デフォルトの名無しさん：2019/02/06(水) 13:30:48.46 ID:pkuTd0pW.net
- >>900
からかうしかないけど、>>883って何か意味あるんか？
バカって面白いな
- 904 ：デフォルトの名無しさん：2019/02/06(水) 13:34:49.77 ID:pkuTd0pW.net
- >>900
頭悪いのに大変だな
- 905 ：デフォルトの名無しさん：2019/02/06(水) 13:37:03.76 ID:eyuAOAwV.net
- >>901
いや、そうじゃなくってよ。
俺はプロじゃないから変なことしてるかもしれない。いやあるだろう。
そいでお前は凄いのかもしれないけど結局何も作ってないわけだろ？
それって何も出来ないのと同じなんだから偉そうにするなって言いたいの。
お前さ、俺の言っている意味解ってる？
- 906 ：デフォルトの名無しさん：2019/02/06(水) 13:41:27.75 ID:pkuTd0pW.net
- >>905
無能が無能に教える意味あるか、無能が威張る意味あるか？
役に立つってなんだよ？
お前の満足は何だよ、作ったってことか？
- 907 ：デフォルトの名無しさん：2019/02/06(水) 13:43:57.13 ID:eyuAOAwV.net
- >>906
ん？お前無能なの？無能なのに威張ってるの？ダメじゃん。
役に立つって何？満足って何ってどういう意味？
俺はそんなこと書いてないけどそれはどこから出てきたんだ？
お前ののーみそか？
- 908 ：デフォルトの名無しさん：2019/02/06(水) 13:44:16.40 ID:pkuTd0pW.net
- おれがこのスレで作っても意味ないからな質問スレだ答えるだけ
- 909 ：デフォルトの名無しさん：2019/02/06(水) 13:53:46.56 ID:eyuAOAwV.net
- ああ、そういうことか。
質問には答えるけど代りにお前が作ることはないって意味でいいのか？
それがお前のポリシーなら俺はお前に口はさまないよ。
偉そうにされて終わるだけみたいだからお前には質問もしたくないけどな。
質問してるやつはいろいろ試して困ってるんだろ？
俺は動くもの見せて、あとは自分で工夫するなりなんなりした方が良いと思ってる。
だって、具体的なほうが解りやすいじゃん。
それに対してお前がどうこう言うことはないだろ？俺はお前に何も聞いてないんだから。
- 910 ：デフォルトの名無しさん：2019/02/06(水) 13:57:29.30 ID:pkuTd0pW.net
- >>909
まあ、補足すると具体的なものを使えるのは少し考えたやつ
考えない奴は応用できない、だから答えではなくヒントなんだがな
- 911 ：デフォルトの名無しさん：2019/02/06(水) 14:10:39.95 ID:eyuAOAwV.net
- >>910
うーん、辞書がわりに次々聞かれても結局俺が作ってるかいー！
みたいになりそうで確かに嫌だな。
ただお前凄そうなんだからそんくらいしてやってもバチあたらんべ。
あ、そこらへんは俺が口はさむことじゃないな、すまん。でももったいないわーほんまに。
俺は基本は自分で調べるから聞くことってほとんどないけど
本当に困っててもまともな返答来なさそうでここで聞けないからさらに困ることあるもん。
お前に言ってるわけじゃないけどライトユーザーからしたら雰囲気怖いよここ。
- 912 ：デフォルトの名無しさん：2019/02/06(水) 14:12:54.78 ID:pkuTd0pW.net
- >>882
お前、ちゃんと満足いくもの作ってみろ
やめるのは簡単だまんぞくできるレベルもお前しだい
おれは、ダメ出しはしてやるよ、ダメな点は数多いがプライオリティは下がっている
- 913 ：デフォルトの名無しさん：2019/02/06(水) 14:32:47.81 ID:sQxfU38+.net
- >おれがこのスレで作っても意味ない
は>>882も同様だな
- 914 ：デフォルトの名無しさん：2019/02/06(水) 14:35:44.06 ID:pkuTd0pW.net
- >>913
別にそれでいいが♡♡♡
- 915 ：デフォルトの名無しさん：2019/02/06(水) 14:38:23.25 ID:sQxfU38+.net
- 次の質問どうぞ
- 916 ：デフォルトの名無しさん：2019/02/06(水) 14:45:26.84 ID:Piy/PJ2X.net
- 頭が悪いのが丸わかりな次の質問どうぞ
- 917 ：デフォルトの名無しさん：2019/02/06(水) 14:48:20.14 ID:54X0jJM7.net
- マウントしたがりのバカしか居ないスレですけど、それでもよかったら質問をどうぞ
- 918 ：デフォルトの名無しさん：2019/02/06(水) 23:06:50.96 ID:pkC1NeiE.net
- パラパラ漫画作って、動画に撮って再生すればいいんじゃね?
- 919 ：852：2019/02/06(水) 23:08:35.09 ID:gXPhlUR0.net
- 作ってるうちに楽しくなってつい作りこんでしまいました
https://www.axfc.net/u/3958012
変更点
・ランダム表示
・乱数生成
・（ほぼ）フルスクリーンモード(1920x1080、1600x900、1280ｘ720、800ｘ600の4種類の画面に対応)
・ユーザーインターフェースの強化
・デバッグを少々
最初に作ってほしいといっていた人の要望にかなってるかが心配
- 920 ：デフォルトの名無しさん：2019/02/06(水) 23:27:15.81 ID:pkC1NeiE.net
- フルスクリーンならDirectXだろ、と思ったら、
Windows10だと色々面倒なのな。
- 921 ：852：2019/02/06(水) 23:33:49.56 ID:gXPhlUR0.net
- いえ、知識がないだけです
- 922 ：デフォルトの名無しさん：2019/02/07(木) 00:04:38.13 ID:o0PdMVgb.net
- Excelの起動画面、ドラクエでエンカウントしたみたいな感じにできないかな。
緑画面に白文字でExcelって、ちょっと地味じゃない?
- 923 ：デフォルトの名無しさん：2019/02/07(木) 00:55:54.67 ID:XTuXysWv.net
- ID:pkuTd0pWだけど
やっぱり午前中はましだが午後は酒がだいぶ効いて
すまんな
まあ文字結合のお題はExcelの問題をコピペしたものだろう
これ関数とExcelの機能を使って解いた方が面白い
- 924 ：デフォルトの名無しさん：2019/02/07(木) 01:10:49.40 ID:XTuXysWv.net
- >>919
中身を見ていないが
ディスプレイの解像度を取得する(API)
https://www.moug.net/tech/acvba/0020006.html
- 925 ：デフォルトの名無しさん：2019/02/07(木) 01:15:55.77 ID:XTuXysWv.net
- >>883
ｃを作業列にして
結果をピボットテーブルを使って表示
- 926 ：デフォルトの名無しさん：2019/02/07(木) 06:41:43.06 ID:C6bM/gU/.net
- 質問です
同じブック、同じシート上にある
任意の二つのセル間を
セルで直線を引きたいと思っています
例えばA1セルとD4セルを指定したら
A1、B2、C3、D4のセルが黒く着色されるような
そんな感じです
どのようなロジックを組めば宜しいでしょうか？
- 927 ：デフォルトの名無しさん：2019/02/07(木) 07:17:58.06 ID:sLOxqlfO.net
- >>926
まず動作仕様を決める
１，指定の仕方をどうするか クリック Or 別セルで指定
２，複数回線を引くのか 取り消しは同じ指定で取り消すのか
３，クロスしたセルの色は
４，線の色はどの様に指定するのか
５，全てクリアーする処理は必要か?
- 928 ：デフォルトの名無しさん：2019/02/07(木) 07:27:46.12 ID:sLOxqlfO.net
- >>926
セルの色の指定方法は、マクロの記録でセルの色を変えて、マクロの記録の終了で確認してください
- 929 ：デフォルトの名無しさん：2019/02/07(木) 08:42:01.81 ID:94HRw/Ac.net
- >>926
何に使うのかが謎だ。
絵でも描くのかな？
- 930 ：デフォルトの名無しさん：2019/02/07(木) 08:46:47.16 ID:C6bM/gU/.net
- >>927
返答ありがとうございます
特にトリガーは定めていませんし
複数回引くことも考慮しなくていいです
こちらとしては
「二つのセル間にセルで線を引くこと」の
実際にどのセルが着色対象となるのかが
求められるロジックが必要となっています
>>928
ありがとうございます
ただ、上記しました通り
着色自体が焦点ではなく
どのセルが着色対象となるのかを
求めることができればなぁと考えています
- 931 ：デフォルトの名無しさん：2019/02/07(木) 09:04:22.19 ID:sLOxqlfO.net
- >>930
セルの位置情報から列の差が大きいか行の差が大きいかでループする側を決定します
ループする側は１増えるいく
その数に小さい側を大きい側で割って少数側を四捨五入したものが小さい側の増分でいいでしょう
- 932 ：デフォルトの名無しさん：2019/02/07(木) 09:09:14.04 ID:sLOxqlfO.net
- 追記 ループ変数は０から差分まで
列ぎょうとも 初期値に増分を足していく
- 933 ：デフォルトの名無しさん：2019/02/07(木) 09:45:06.58 ID:aUTfkvT8.net
- 列幅、行幅ともにまちまちだと考えるとマジメに座表計算がいりそうだ
- 934 ：デフォルトの名無しさん：2019/02/07(木) 10:25:13.14 ID:nA5U51xW.net
- >>933
セル単位での指定だから、幅は関係ない
- 935 ：デフォルトの名無しさん：2019/02/07(木) 10:30:41.24 ID:nA5U51xW.net
- >>933
すまん、関係あるなそれをかんがえると確かに難しいが
実質的にその構造で線を引く意味あるのかな？
- 936 ：デフォルトの名無しさん：2019/02/07(木) 11:11:43.55 ID:nA5U51xW.net
- >>919
この感覚だと、遠いな
- 937 ：デフォルトの名無しさん：2019/02/07(木) 11:16:37.25 ID:nA5U51xW.net
- >>933
所詮線はシェイプで引けばいいだけだからな
セルの色を変えることにどんな意味があるかが問題
- 938 ：デフォルトの名無しさん：2019/02/07(木) 11:38:14.89 ID:aUTfkvT8.net
- >>937
セルにシェイプが掛かっているかはすぐ判定できるんだっけ？
できるならまあ簡単かな
- 939 ：デフォルトの名無しさん：2019/02/07(木) 11:59:06.94 ID:nA5U51xW.net
- >>938
セルの色を変える仕様が実質的に意味あるかが疑問なだけ
意味ないもの検討する必要ないからな
- 940 ：デフォルトの名無しさん：2019/02/07(木) 12:08:17.49 ID:nA5U51xW.net
- まあ、意味あることならいくらでも方法がある（各行列のプロパティから幅なんて取れるからな）けど
お題が意味ないこと検討する必要もない
- 941 ：デフォルトの名無しさん：2019/02/07(木) 13:37:49.53 ID:JiT+m3d9.net
- 数学的な問題でＶＢＡ関係ないんじゃね
- 942 ：デフォルトの名無しさん：2019/02/07(木) 14:00:56.39 ID:C6bM/gU/.net
- 皆さんありがとうございます
セルで線を引く質問をした者です
セル幅がまちまちのケースは
こちらも想定外でした
均等幅で求められれば良いと
考えていましたから
既に回答して頂いた方法で
試してみたいと思います
どうもありがとうございました
- 943 ：デフォルトの名無しさん：2019/02/07(木) 16:33:46.50 ID:IUpQT5qY.net
- 質問です
文字列のカラムと数値のカラムが混在する表
数値カラムは空欄セルもある
この表からセル値をコピーするとき、数値カラムでセルが空欄の時はコピー先を0にしたい
文字列カラムでセルが空欄の時はコピー先も空欄
タイトル名で判定するのはスマートじゃないと思って
セルや変数の仕様を使って上手くできないでしょうか
- 944 ：デフォルトの名無しさん：2019/02/07(木) 17:12:43.16 ID:suQqSSWO.net
- セルの書式を1つずつチェックするのが確実
- 945 ：デフォルトの名無しさん：2019/02/07(木) 17:18:57.62 ID:nA5U51xW.net
- >>943
これはVBAの質問ですか？
機能はExcelの質問だよ
- 946 ：デフォルトの名無しさん：2019/02/07(木) 22:22:10.23 ID:kH7/pekJ.net
- 数値カラムの空欄はそのまま空欄で
文字カラムの空欄を長さ0の文字列にしておけばセル参照で
- 947 ：デフォルトの名無しさん：2019/02/07(木) 23:16:40.13 ID:o0PdMVgb.net
- >>883
1が出てくる回数をそのまま行番号に使って、
1・2・3という数字を、そのまま列番号に使う。
- 948 ：デフォルトの名無しさん：2019/02/07(木) 23:30:09.71 ID:nA5U51xW.net
- >>947
それを式で表記すると？
- 949 ：デフォルトの名無しさん：2019/02/08(金) 00:39:13.26 ID:nir6IlOg.net
- 質問です
C言語のFILEポインタをexternしているdllをvbaから呼び出すときにシグニチャーは何型ですか
- 950 ：デフォルトの名無しさん：2019/02/08(金) 00:50:45.35 ID:WrxcLohJ.net
- >>948
ごめん、勘違いしてた。
何とかできたけど、ものすごくダサい。
C列 =COUNTIF(INDIRECT("A1:A"&ROW()),A:A)
D列 =MATCH(ROW(),C:C,0)
E列 =LEFT(F:F&G:G&H:H&I:I&J:J&K:K,FIND("0",F:F&G:G&H:H&I:I&J:J&K:K)-1)
F列 =INDEX($1:$1048576,INDIRECT("D"&ROW())+COLUMN()-6,2)
G列以降 =IF(INDEX($1:$1048576,INDIRECT("D"&ROW())+COLUMN()-7,1)<=INDEX($1:$1048576,INDIRECT("D"&ROW())+COLUMN()-6,1),INDEX($1:$1048576,INDIRECT("D"&ROW())+COLUMN()-6,2),0)
E列が答えだけど、2016なら、ここはCONCATENATEで。
- 951 ：デフォルトの名無しさん：2019/02/08(金) 01:05:57.02 ID:WrxcLohJ.net
- ↑ごめん、これもなんかおかしいわ。
- 952 ：デフォルトの名無しさん：2019/02/08(金) 04:25:07.76 ID:49YgIYkI.net
- よろしくお願いします。
ある住所リストを宛名印刷するためのVBAを書きました。
印刷したときに、枠に収らないとまずいし、とはいえ町名の途中などで機械的に次の
行になるのもまずいので、途中、全角スペースがあったら次の行にする、という
ことを考えて、名簿リストを入力する係の人に「だいたい○文字目くらいで、市町村名あたりの
キリのいいところで全角スペースを入れておいてください」と頼んでおきました。
Jusho = sheets("名簿").cells.(rowcnt,2)
If InStr(Jusho, " ") Then
tmp = Split(Jusho, " ")
Jusho1 = tmp(0)
Jusho2 = tmp(1)
Else
Jusho1 = Jusho0
Jusho2 = " "
End If
sheets("印刷元").range("A1")=Jusho1
sheets("印刷元").range("A2")=Jusho2
sheets("印刷元").printout
こうやって、長い住所を２行に分けることに成功したのですが、
今になって、マンション名やらなんやらで、全角スペースがいくつもある場合があることがわかりました。
つまり、Jusho0に、２つ以上のスペースがある場合が出てきて、そうすると、tmp(2)やtmp(3)が
発生することなってしまい、印刷の住所が途切れてしまうことになりました。
私のVBAの書き方が悪かったのだと思います。
「１つ目のスペースで２つに分ける。２つ目以降のスペースは無視」というVBAを書きたいです。
どうすればよいでしょうか？
- 953 ：デフォルトの名無しさん：2019/02/08(金) 05:17:51.52 ID:0dQnaPPd.net
- >>883
Ruby で作った
require 'csv'
results = [ ]
# 空白区切りで、ヘッダー有り
options = { :headers => true, col_sep: " " }
# CSV 入力ファイルを、1行ずつ処理する
CSV.foreach( "input.csv", options ) do | row |
if row[ 0 ] == "1"
results.push row[ 1 ] # 要素の追加
else
results[ -1 ] += row[ 1 ] # 最終要素に文字列を連結
end
end
puts results
- 954 ：デフォルトの名無しさん：2019/02/08(金) 05:23:12.23 ID:imEPOnT1.net
- >>952
tmp = Split(Jusho, " ", 2)
- 955 ：デフォルトの名無しさん：2019/02/08(金) 06:20:13.15 ID:Ec5y9MTZ.net
- >>952
Instrは検索文字が文字列の左から何文字目にあるかを返すよ
Instr(“東京都 渋谷区 ほげほげ町”, “ ”) は4が返ってくるのでそれでSplitする
ちなみに右から調べるInstrRevもある
- 956 ：デフォルトの名無しさん：2019/02/08(金) 06:40:44.15 ID:Ec5y9MTZ.net
- >>952
あと検索文字がない場合は0を返すから条件式で使うなら
Instr(Jusyo, “ ”) <> 0 Then にしといた方がいいかも
他の人が見たとき「？」になる
- 957 ：デフォルトの名無しさん：2019/02/08(金) 07:17:52.94 ID:SOh8GklL.net
- >>950
やってみた
結果、E列
あ い
か き く
さ た ち
た ち
答えは以下が正しいのとG列の式を
H列以降に無限に張らなければいけないのが問題ある
他にも問題があるかもしれないが・・・
あい
かきく
さ
たち
- 958 ：デフォルトの名無しさん：2019/02/08(金) 07:21:27.36 ID:SOh8GklL.net
- >>925
ここで、ヒントを出してるのに
作業列は１列で十分
- 959 ：デフォルトの名無しさん：2019/02/08(金) 07:26:35.12 ID:ViZCNFeP.net
- フラッシュ演算のやりとり見てて思ったけど
文字にして答えを文字結合すればアルツハイマーテストに使えるんじゃね？
- 960 ：デフォルトの名無しさん：2019/02/08(金) 08:20:58.27 ID:SOh8GklL.net
- >>958
すまん
無理にピボットテーブルや式でやらず
フィルターで列Aが1を表示でいいな
- 961 ：デフォルトの名無しさん：2019/02/08(金) 11:14:58.05 ID:SOh8GklL.net
- >>952
住所印刷なら、郵便番号が有るだろう
郵便番号の住所変換ルーチンはある
住所は郵便番号と比較すべきで比較してエラーを出すべき
郵便番号に合致する部分を１行目、それ以外を２行目が良いだろ
- 962 ：デフォルトの名無しさん：2019/02/08(金) 11:46:52.42 ID:SOh8GklL.net
- >>959
色々使えるだろうね
文字の表示位置を変えてタッチパネルでやるとか
応用範囲は広いがちゃんと全画面表示や文字の大きさ位
自動でできないとな、今時４Kモニターも出てるし・・・
- 963 ：デフォルトの名無しさん：2019/02/08(金) 12:00:58.70 ID:CDEogeBV.net
- >>952
limitオプションで回答は出てますが、実用的には長い住所の時は複数回改行も有り得るんではないでしょうか
またフォーマットが変わったときに全ての住所録の全角位置を調整するのが大変だと思われます
なので記入者には単純に単語毎にスペースを入れて貰って、適時自然な位置で改行するのはどうでしょうか
- 964 ：デフォルトの名無しさん：2019/02/08(金) 12:14:24.08 ID:WyTY+E9f.net
- >>963
運用でカバーできたら誰も苦労しないよね
- 965 ：デフォルトの名無しさん：2019/02/08(金) 12:19:37.60 ID:jEYFKApV.net
- 自然な位置てなんやねん
- 966 ：デフォルトの名無しさん：2019/02/08(金) 12:29:29.52 ID:CDEogeBV.net
- 一行の文字数を決めて、そこからInStrRevで最後のスペース位置を検索してLF挿入です
コード書いたんですが何故かブロックされます・・・
- 967 ：デフォルトの名無しさん：2019/02/08(金) 12:31:14.56 ID:SOh8GklL.net
- >郵便番号に合致する部分を１行目、それ以外を２行目が良いだろ
２行目があふれても、それは枠内で表示するだけで問題ないだろ
どうせ印刷はWordのあて名書きだろ２行目の表示エリアを広くしておけば問題ない
- 968 ：デフォルトの名無しさん：2019/02/08(金) 12:35:06.44 ID:CDEogeBV.net
- 拙いですが折角書いたのでうｐしました
https://ux.getuploader.com/dialogues_txt/download/129
>>967
エクセルだと思うし、表示エリアを広くで済むならそもそも改行不要なのでは・・・ 👀
Rock54: Caution(BBR-MD5:669e095291445c5e5f700f06dfd84fd2)
- 969 ：デフォルトの名無しさん：2019/02/08(金) 12:59:45.99 ID:WyTY+E9f.net
- >>967
普通は郵便番号と住所は別カラムだろ
というか質問者は郵便番号の話してないから
- 970 ：デフォルトの名無しさん：2019/02/08(金) 13:11:41.88 ID:SOh8GklL.net
- >>969
空想の世界で生きるのも人生
実態を考えるのも人生 好きにしてね
ちなみに、午後だからやばいかも
- 971 ：デフォルトの名無しさん：2019/02/08(金) 13:14:37.20 ID:SOh8GklL.net
- >>968
見栄えがあるよな、企業が出すなら
すまないが午後になったのでテストはしてない
- 972 ：デフォルトの名無しさん：2019/02/08(金) 13:19:24.26 ID:WyTY+E9f.net
- >>970
くっさ
- 973 ：デフォルトの名無しさん：2019/02/08(金) 15:18:18.79 ID:ZcpxXTEs.net
- >>963
うちのシステムだとテキストボックスが既に３つになってて一段目が市区町村まで、二段目が枝番まで、三段目が物件名と部屋番+様方、会社名とかって決まってる。
- 974 ：デフォルトの名無しさん：2019/02/08(金) 15:20:53.99 ID:SOh8GklL.net
- まあ、なんだな住所を２行にしたいなんてあて名書きだけだろ
それって、Wordのあて名書き印刷ぐらい
で、きれいに住所を分けるのは郵便番号に載っている住所で区切るんだよ
それ以外は長いマンション名あるけど適当に範囲内で打てばいいんだよ
今時郵便番号を管理しない住所録もないだろ
まあ、引きこもりにはわからないかもしれないが
- 975 ：デフォルトの名無しさん：2019/02/08(金) 15:21:19.17 ID:ZcpxXTEs.net
- >>973
追記、登録する人にはこれで宛名出るからって言ってある。
- 976 ：デフォルトの名無しさん：2019/02/08(金) 15:21:58.27 ID:RRS+yeTf.net
- 市区町村の名前のDB作ればいいんじゃね
- 977 ：デフォルトの名無しさん：2019/02/08(金) 15:29:02.53 ID:SOh8GklL.net
- >>973
お前の所への質問じゃないな
あと、分けて入力するフォームも結構あるが
無視されることも多いだろ
気にしているところは、まず郵便番号を聞くな
- 978 ：デフォルトの名無しさん：2019/02/08(金) 16:46:02.55 ID:QatAiOm8.net
- >>952
「１つ目のスペースで２つに分ける。２つ目以降のスペースは無視」という解決ではなく
「分割が発生したら住所を2つに再結合する」という解決だけど
Sub test()
Dim tmp As Variant
Dim i As Integer
Dim jusho0 As String
Dim jusho1 As String
Dim jusho2 As String
jusho0 = Sheets("住所").Range("A1").Value '参照するセルは自分で書いてください
tmp = Split(jusho0, " ") '文字を分割して
If UBound(tmp) > 0 Then '分割が発生していたら再結合する
jusho1 = tmp(0)
For i = 1 To UBound(tmp)
jusho2 = jusho2 & tmp(i)
Next i
Else
jusho1 = jusho0 '分割が発生していなかったらそのまま代入する
jusho2 = " "
End If
Sheets("印刷元").Range("A1") = jusho1
Sheets("印刷元").Range("A2") = jusho2
End Sub
これでいけるはず
- 979 ：デフォルトの名無しさん：2019/02/08(金) 18:27:58.69 ID:CDEogeBV.net
- >>978
>>954でいいですし、デリミタが潰れたままになってますよ
- 980 ：デフォルトの名無しさん：2019/02/08(金) 19:06:53.88 ID:imEPOnT1.net
- >>978
もしSplit( )で分割数の制限ができなくて
> 「分割が発生したら住所を2つに再結合する」
としても
Sub test()
Dim tmp As Variant
Dim i As Integer
Dim jusho0 As String
Dim jusho1 As String
Dim jusho2 As String
jusho0 = Sheets("住所").Range("A1").Value '参照するセルは自分で書いてください
tmp = Split(jusho0, " ") '文字を分割して
jusho1 = tmp(0)
jusho2 = ""
For i = 1 To UBound(tmp)
jusho2 = jusho2 & tmp(i)
Next i
Sheets("印刷元").Range("A1") = jusho1
Sheets("印刷元").Range("A2") = jusho2
End Sub
でいいだろ
ちょっとトリッキーだけど
jusho1 = tmp(0)
tmp(0) = ""
jusho2 = Join(tmp, "")
ってやる手もあるな
- 981 ：デフォルトの名無しさん：2019/02/08(金) 20:28:18.13 ID:v6US6OW1.net
- どこで質問していいのかわからないので、ここにお邪魔します
Jscript、 拡張子がjsのファイルですが、これでエクセルを操作するのですが、
複数のワークシートがあるxlsファイルを開いた状態で
var book = GetObject("C:\\file.xls");
var sheet = book.Worksheets( 1 );
sheet.cells( 2, 2 ).Select;
としたとき、１のワークシートを開いているときは問題ないのですが、他のワークシートを開いているときは
エラーになります。でも、
sheet.cells( 2,2 ) = 5
は問題なくできます
つまり、タブで対象となるワークシート以外の他のワークシートを選択しているとき、
代入はできるのに、選択ができないのです
選択をできる方法ってありますか
- 982 ：デフォルトの名無しさん：2019/02/08(金) 21:07:58.30 ID:sNzlIvCP.net
- >>981
セルをセレクトする前に、シートもセレクトすればいいよ
- 983 ：デフォルトの名無しさん：2019/02/08(金) 21:17:15.14 ID:v6US6OW1.net
- あ、出来た。シートのセレクトってできたんですね。ありがとうございました
- 984 ：デフォルトの名無しさん：2019/02/09(土) 09:52:28.52 ID:45ZMFjRM.net
- コード書く画面を
背景黒、文字色白にするには
どうしますか？
- 985 ：デフォルトの名無しさん：2019/02/09(土) 10:11:07.65 ID:0f9Fhb3P.net
- >>919
あとでみます。
- 986 ：デフォルトの名無しさん：2019/02/09(土) 10:13:47.89 ID:7J3n1w5Y.net
- >>984
オプション
- 987 ：デフォルトの名無しさん：2019/02/09(土) 10:52:22.81 ID:4JLmAX8Q.net
- 依頼者ですがみました。ここまでやってくれるとは思わなかった、それぐらいの完成度の高いです。感謝です。
フラッシュ演算「のような」ツールがほしいニュアンスで言ったのですが、演算までやってくれるプラスアルファまでやってくれるとは思わなかったです。恐れ入りました。
- 988 ：デフォルトの名無しさん：2019/02/09(土) 10:59:52.07 ID:76xhR9ul.net
- >>883
まあ、Excelの関数や機能でやるのはスレ違だが
基本的にVBAでやるのは最終手段っと考えてるのであしからず
A1 B1から始めてるとして C1に入れる式は「=IF(A1>0,IF(A2>A1,B1&C2,B1),"")」
これをC列にコピーすれば、A列に1が入っているところに答えが入る
A列B列C列に、フィルターを設定して、A列の１のみを表示するだけ
- 989 ：デフォルトの名無しさん：2019/02/09(土) 11:07:15.59 ID:4JLmAX8Q.net
- 連投すみません。
さらに要望なのですが、
要望その一
現状、横並びでフラッシュ表示しますが、縦並びに切り替えることはできます？
可能であれば対応いただきたいです。できたら、円並び、ランダム配置といったバリエーションも検討いただきたく。
要望その二
「問題セット」シートにて、登録した文字列の順序をボタン一つでランダムに入れ換えることは可能でしょうか？
可能であれば対応いただきたいです。
もともと登録した文字列は同一シート内の別の列に退避させてください。
- 990 ：デフォルトの名無しさん：2019/02/09(土) 11:10:02.53 ID:k8PbCSOR.net
- >>989
直接メールでやれ
既にただの仕事依頼になっていてさすがに質問スレでやることじゃない
- 991 ：デフォルトの名無しさん：2019/02/09(土) 11:17:52.46 ID:76xhR9ul.net
- >>990
いいじゃないかたくるしく考えるなよ
回答者が嫌じゃなければそれでいいよ
- 992 ：デフォルトの名無しさん：2019/02/09(土) 11:21:46.36 ID:4JLmAX8Q.net
- 要望その二はわかりづらいと思うので、具体的には「きりん」を登録します。
これをランダムで文字を入れ換えて「んきり」といったイメージです。
「んきり」をみてばらばらの文字を自分が知っている既知の情報「きりん」に変換し、きりんをイメージする。
個人的な、ツールの用途として、左脳で文章をよまず、文章をぱっと見で右脳でビジュアルに思い描く右脳活性化のための訓練として扱いたいのです。
これができるようになると、本を読むとき、文章で読むより右脳でイメージでとらえながら読むので、速読が可能そしてイメージでみるので記憶に残りやすくなります。
- 993 ：デフォルトの名無しさん：2019/02/09(土) 11:32:56.47 ID:6oInKB58.net
- こんちには みさなん おんげき ですか？
わしたは げんき です。
この ぶんょしう は いりぎす の ケブンッリジ だがいく の けゅきんう の けっか
にんんげ は もじ を にしんき する とき その さしいょ と さいご の もさじえ
あいてっれば じばんゅん は めくちちゃゃ でも ちんゃと よめる という けゅきんう に
もづいとて わざと もじの じんばゅん を いかれえて あまりす。
どでうす？ ちんゃと よゃちめう でしょ？
ちんゃと よためら はのんう よしろく
- 994 ：デフォルトの名無しさん：2019/02/09(土) 11:44:46.80 ID:76xhR9ul.net
- ---------上記はワッチョイ表示用（この行の後を1行目から ）--------
!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑の二行はﾜｯﾁｮｲつけ忘れ防止用の予備です。 立てた時点で１行消耗します
スレを立てる方は本文の文頭に上記行を三行重ねて立てて下さい
ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK
※前スレ
Excel VBA 質問スレ Part58
https://mevius.5ch.net/test/read.cgi/tech/1542577644/
---------上記はワッチョイ表示用（この行の前）---------
私は新参者なのでスレたては控えさせていただきますが
ワッチョイを入れることも検討してください
- 995 ：デフォルトの名無しさん：2019/02/09(土) 15:10:39.63 ID:3lTArmdf.net
- 建てま
- 996 ：デフォルトの名無しさん：2019/02/09(土) 15:13:23.38 ID:3lTArmdf.net
- >>995
した
https://mevius.5ch.net/test/read.cgi/tech/1549692750/
- 997 ：デフォルトの名無しさん：2019/02/09(土) 16:27:54.49 ID:dlyNQvdo.net
- スレ最後の質問。
あるファイルに、
on error goto err
******
exit sub
err:
msgbox err.description
end sub
↑
こういうコードをたくさん書いてきました。
しかし、エラーが出たときに、どのプロシージャで発生したのか知りたくなり、
msgbox err.description & このプロシージャ名
に変更したくなりました。
「このプロシージャ名」を書く方法ってあるのでしょうか？
- 998 ：デフォルトの名無しさん：2019/02/09(土) 18:30:41.53 ID:wulgFGFC.net
- >>993
もうそのコピペあきた
- 999 ：デフォルトの名無しさん：2019/02/09(土) 18:34:38.97 ID:gPze9fmT.net
- 乗りかかった船だし、自分自身も勉強になっているのでこの案件は、できるところまでやりたいと思います。
>>989
要望その1
縦並び ＝ 今でも（一応）可能。セルの書式設定からB2の書式で「配置タブ」の「方向」で縦を選んでみてください。
文字の大きさとかも合わせて調整したら画面に収まりきると思います。後はセルの大きさも調整してみて。
ランダム配置 ＝ スレの上のほうで案が出てたけどオートシェイプとかワードアートでできるかもしれないしできないかもしれない。あんま期待しないで。
円並び = 自分にはできません。
総じて、要望その１はあまり自信なしです！！！
要望その2
おそらく可能。まずはこっちから手をつけます。
時間がかかると思うのでのんびり待ってください。
>>924
922さんが想定された使い方かどうかはわかりませんが、使い方が解った気がします。
ヒントありがとうございます。
- 1000 ：デフォルトの名無しさん：2019/02/09(土) 18:56:58.62 ID:2u7e0Xtv.net
- >>999
要望その二ができれば、要望その一のランダム配置は解決済みでよいです。
本は横書きと縦書きな二種類しかないので、円並びはあまり意味がないかなとおもうので対応は不要です。縦並びの実現はセルの書式設定で変えることができるので、実質要望その二だけになります。
余談ですが、Androidアプリでフラッシュカードというフリーのアプリを一週間前から使ってましたが、スマホでデータ登録は面倒、フラッシュ速度最大にしても0.5秒くらい望んでるものではないのでアンインストールしました。
- 1001 ：デフォルトの名無しさん：2019/02/09(土) 21:15:13.37 ID:mrBfx6rS.net
- 999
- 1002 ：デフォルトの名無しさん：2019/02/09(土) 21:15:45.94 ID:jdOhgT4v.net
- いまからお前の名前は せん だ
- 1003 ：2ch.net投稿限界：Over 1000 Thread
- 2ch.netからのレス数が1000に到達しました。
総レス数 1003
302 KB
掲示板に戻る
全部
前100
次100
最新50
read.cgi ver 2014.07.20.01.SC 2014/07/20 D ★