Excel VBA 質問スレ Part58

レス数が1000を超えています。これ以上書き込みはできません。
2018/11/19(月) 06:47:24.99ID:Qq88xGOU
ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK


※前スレ
Excel VBA 質問スレ Part57
https://mevius.5ch.net/test/read.cgi/tech/1536583359/
2018/11/19(月) 09:52:02.94ID:5k0nvJVR
>>1乙
2018/11/20(火) 22:35:35.36ID:HCcZ0ovU
Dim Otimpo As Variant
Set Otimpo = New Penis
Otimpo.Insert Woman.Vagina
2018/11/20(火) 22:46:03.40ID:vvK8gepa
俺だったらInsertToメソッドにする
5デフォルトの名無しさん
垢版 |
2018/11/22(木) 09:37:41.30ID:ZIGZU+Kk
>>1
=LEFT("おつかれあかたあまや",4)
2018/11/22(木) 09:49:09.43ID:hMczrcoU
昭和の臭いプンプン
2018/11/22(木) 11:44:50.42ID:DvNJLexV
昭和なら $ 付けるだろ
8デフォルトの名無しさん
垢版 |
2018/11/23(金) 09:01:48.81ID:pYaMx0la
ややExcelと離れるのですが、他に適切な場所が見当たらないのでこちらで質問。

WordやPowerpointに、埋め込み、またはリンクで表示されているExcelの表やグラフについて、
1:ファイル名(フルパス、ないし相対パス)
2:表示されているシート名(またはシート番号)
3:表示されている表の範囲(A1からB20まで、みたいな)
を、WordやPowerpointで動かすVBAから列挙する、みたいなのを作りたいと考えてます。

(1)についてはある程度(たまに取れないのがある)なんとかなるのですが、
(2)と(3)の手段が分からないでいます。
この辺を得る手段について、ご存じの方いましたら教えてください。
2018/11/23(金) 10:13:26.49ID:NlhnMW/X
表示されているシート名 って要は現在アクティブなシートってことでしょ？
ActiveSheet.Nameで取れるんじゃ？
2018/11/23(金) 11:15:52.26ID:OdmoxaxG
>>8
やったことがないから保証できないが、
OLEObject.ObjectプロパティからOLEオブジェクトのコントロールを取得できるはず
ここからExcelのオブジェクトモデル経由でシート名等は取れるかも
118
垢版 |
2018/11/23(金) 11:27:11.08ID:pYaMx0la
>>9,10

　そういえば、シート名はそれで取れますね。うっかりしてました。
ただ、Powerpointで表示されている、シート上の範囲( >>8 の(3) )がマジわからん。
ActiveSheetまでは到達出来るので、シート全体のデータは取れるのだけども、
表示範囲となるとどこを見れば良いのやら……
2018/11/23(金) 16:52:45.93ID:NlhnMW/X
表示範囲っての意味がよく判らない。使用されている範囲ならUsedRangeプロパティだけどそうじゃない？
2018/11/23(金) 18:46:47.55ID:A5v+c7Q3
QueryTables.addを利用して取り込んだテキストデータを
TextFileFixedColumnWidths = array(5,4,2)
とVBソースに記述して5、4、2バイト目で区切ってエクセルに貼り付けしているのですが、
このarrayのカッコ内の値5,4,2の部分を1つのセル内に定義しておき、そこから取得して処理する方法を教えてください。(セル値を変えるだけで区切りバイトを変えられるようにしたいです)
セル内の定義は下記のような感じの形式で実現できたらいいなと思っています。
5,4,2
または
"5","4","2"
など
よろしくお願いします。
2018/11/23(金) 18:47:07.61ID:pYaMx0la
>>12
UsedRangeは、まさに「Excel上で利用されている範囲」になるので、ちょっと違う。

探しているのは、(WordとかPowerpointとか) 「被貼付側から見えている範囲」。
コピペを行うときにExcel上で範囲指定してる、まさにその範囲の情報が欲しいのです。
『広い範囲が使われているシート(埋め込みオブジェクト)の一部分だけが表示されている時、
　その表示部分を特定する』がやりたいの。
2018/11/23(金) 20:29:14.68ID:SJrbhhQk
>>13
3つパラメータがあるならそもそも3つのセルで管理すればいいんじゃないかと思うが、区切る回数も動的にしたいのかな？

パラメーター記述用のセルに5,4,2と入力しておいて、コード内でSplit関数を使いそのセルの値をカンマ区切りで配列化するのが普通かな

そうやって得たString配列の要素全てをCIntで型変換してInteger配列に入れ直せば、TextFileFixedColumnWidthsプロパティに代入できる
2018/11/23(金) 20:45:52.52ID:A5v+c7Q3
>>15
区切る回数も動的にしたいんです。
さっそく試してみます。ありがとうございます。
2018/11/24(土) 07:26:12.22ID:XV/jbN3E
>>15
無事にやりたいことが実現できました。ありがとうございました。勉強になりました。
2018/11/26(月) 18:21:38.61ID:jE4mmGCd
ユーザーフォームのボタンでExcel以外のファイルを開くのにShell.Execute使ったんだけど、ボタンを押しても何も反応しない

CreateObject("Shell.Application").ShellExecute "c:\test\test.pdf"
2018/11/26(月) 19:08:14.69ID:sSO4v+r+
>>18
試してみたけど、そのコードで問題なく動くなあ
2018/11/26(月) 19:30:02.47ID:VtKrTehC
>>18
デザインモードがオンになってるとかじゃね
2018/11/26(月) 20:06:27.80ID:c8QT25Tm
検証ありがとう！
ちな標準モジュールに書くと普通に動く。
どうもユーザーフォームに書くとダメみたい
2018/11/26(月) 20:09:03.00ID:c8QT25Tm
>>21
違った
ユーザーフォームじゃなくてユーザーフォーム内のボタンね
2018/11/26(月) 22:08:01.92ID:sSO4v+r+
ユーザーフォーム作ってボタン配置してボタンのOnClickにコード書いたけど問題ない
2018/11/26(月) 22:25:28.75ID:c8QT25Tm
みんなマジか〜
環境は2010、2007ともにダメだった。
明日2016で試してみる。
ちなみにパスがフォルダ指定までなら動く。
もう意味わからん
2018/11/26(月) 22:57:14.49ID:sSO4v+r+
>>24
もしかしてpdfをダブルクリックした時に「このファイルを開くアプリ」の選択メニューが出てない？
2018/11/27(火) 08:58:52.14ID:TmwvOLJp
>>25
すまぬすまぬ。実は開かないのは.xlsxや.xls。
さっきやったら.txtや.bmpに書き換えるとちゃんと動いた。関連付けがおかしいかと思ったけどファイルダブルクリックでexcelファイルは開く。
2018/11/27(火) 09:23:34.69ID:OWqQZ565
さすがにExcelはOpen関数使えよ。。。
2018/11/27(火) 11:44:24.61ID:Y7caogE6
>>27
やっぱりそうですよね、、
ありがとうこざいました！
2018/11/27(火) 21:03:19.26ID:JHhXTC3j
>>26
VISTA３２ビットのEXCEL2007で再現した
ちなみにブレークポイントはってステップインさせたらちゃんと動いた
30デフォルトの名無しさん
垢版 |
2018/11/28(水) 21:03:32.22ID:btdWGy6U
切り取り・コピーしようとしたら「クリップボードを開くことが」と表示されました 前までは正常に出来てたのに急にあんなになるなんて
どうしたらなおるんですか

原因不明の謎の症状
3130
垢版 |
2018/11/28(水) 21:11:36.27ID:btdWGy6U
>>30のところ、再起動したら直りました
自己解決
32デフォルトの名無しさん
垢版 |
2018/11/28(水) 21:55:41.99ID:6iHSQiFE
WorksheetFunctionを使うと遅くなると聞きました。セルで計算して取得したほうがいいですか？
2018/11/28(水) 22:15:02.98ID:T0n8cI1t
>>32
遅いと言っても、よほど大量のデータを処理しない限り大差ないから気にしなくていい
34デフォルトの名無しさん
垢版 |
2018/11/28(水) 23:27:06.65ID:6iHSQiFE
>>33
ありがとうございます
2018/11/30(金) 08:07:23.94ID:yuW+a+er
workbook.Aのマクロから、workbook.Bのマクロパスワードを解除できますか？
*パスワードは分かっています
**windows10 / excel 2016

同じパスワードをかけた大量のファイルのマクロパスワード解除が必要になった為
2018/11/30(金) 08:09:10.42ID:cHj05URw
できるかと言えばできる。
2018/11/30(金) 08:53:39.83ID:yuW+a+er
>>36
ありがとうございます。

VBAでsendkeyでパスワード入れたいのですが、プロジェクトエクスプローラーのウィンドウで、目的のworkbook.Bを選択してパスワードウィンドウを開く事がうまくできないところです。
2018/11/30(金) 09:06:54.20ID:cHj05URw
>>37
いや、Sendkeysは絶対使っちゃいかんものNo.1だろ。
制御出来ないからな。
わかってて一過性のプログラムで使う以外に使うことは無い。
2018/11/30(金) 11:07:00.94ID:yuW+a+er
>>38
ご忠告ありがとうございます。
2018/11/30(金) 12:03:29.38ID:LyLvfax5
>>35
MSDNライブラリでWorkbookオブジェクトのOpenメソッドの説明を詳しく読めば解決
2018/11/30(金) 18:19:35.02ID:RELaXAo9
>>40
マクロのパスワード解除ってワークブックオープン関係なくね。
2018/11/30(金) 18:57:50.86ID:cHj05URw
そもそもマクロパスワ―ドってことはVBEを弄ることになるから普通はセキュリティ設定に引っかかる。

VBAでVBEを弄れる設定になってるなら、参照設定でVisualBasic for Applications Extencibilityを追加して頑張ることになるわけだけどセキュリティ皆無となって危険だぞ。

それにそのコードがウィルス判定されるかも。
2018/11/30(金) 19:30:48.61ID:D2Lo7Qd2
>>41
この質問者が「解除」という言葉で言いたいのは、パスワードなしのファイルとしてファイルを再保存することじゃなくて、ただ単に読み取りパスワード付のファイルを普通に実行することだと思うぞ
Sendkeysとか恐ろしいことを上で言ってるので
2018/11/30(金) 23:26:49.39ID:1+TlpALp
>>43
プロジェクトエクスプローラーって言ってるのにそんなわけ無いだろ
4535
垢版 |
2018/12/01(土) 07:37:11.82ID:0dTVd6NK
>>43
マクロのロック解除です。

ワークブックと書いて混乱を招いてしまいました。
ファイルは開けます。

現状はマクロでVBAをアクティベートし、vbkeyで操作する方法で試してますが未だにうまく動かないです。
2018/12/01(土) 12:13:55.48ID:bMs1CWzL
>>45
VBAのsendkeyは不安定なので、vbsとかを経由しろとか聞いたことある気がする。ちょっと調べてみては？
4735
垢版 |
2018/12/01(土) 12:16:20.34ID:0dTVd6NK
>>46
ありがとうございます。
試してみます。
2018/12/01(土) 12:20:42.98ID:TS4bNkMJ
フォルダ内にある全てのtxtファイルをピボットテーブルで変換して一つのファイルに結合するにはどうしたら良いですか？
2018/12/01(土) 12:22:51.76ID:TS4bNkMJ
>>48
一つのテキストファイルあたりExcelの104万行を超えています
2018/12/01(土) 12:30:20.41ID:Yrektqt+
>>49
Accessに取り込んで104万件以下に整理してからExcelに読み込む
2018/12/01(土) 13:39:55.20ID:TS4bNkMJ
>>50
Accessで一括に読み込めますか？
2018/12/01(土) 17:27:15.14ID:qC6lat5H
>>47
vbsとか経由でも駄目だろ。
何が駄目かと言うと入力したい所にピンポイントで入力するわけじゃ無いところ。
直前に入力したい所にフォーカスを当てるとか工夫してる人もいるけど根本的によろしく無いんだよ。
動かしてる時に別の何かをクリックしたりするとそっちに入力されちまう。

改めて確認するけどVBAがパスワード保護されてコ―ド編集出来ない状態になっている。
パスワードは分かっていて手動で解除出来るけどブックが大量で解除と再設定が大変という問題?
2018/12/01(土) 17:45:25.58ID:qC6lat5H
>>51
そのテキストファイルはどんなファイル?
データベースのデータのようなものなの?
その104万行というのは、そもそも全部必要なの?

全部必要じゃない、特にもし必要なのはごく一部というのだったら、テキストファイルとして開いて1行ずつ読み込んで、必要あるデータのみ抜き出すという方法が良いと思う。

全部必要だったらAccessを使うべきデータ量だな。
でも、そのデータをどんな風に扱いたいか分からないから一概には言えない。
5435
垢版 |
2018/12/01(土) 17:56:01.08ID:0dTVd6NK
>>52
おっしゃる通りです。
マクロで大量に作ったマクロパスワードが同じファイルのパスワードを解除し、マクロを消すプログラムを作りたいです。
マクロを消すプログラムはマクロパスワード無しのファイルに関しては全てうまく動いています。
またエクセルファイルにはパスワードはかけていません。

過去に作ったエクセルファイルは残したままマクロを全て消せとの指令で必要となっています。
2018/12/01(土) 18:47:27.12ID:X1CAEXrd
xlsxで保存すればマクロは消えない？
2018/12/02(日) 12:24:29.74ID:RxJGbltM
そんな大量のデータ、一行ずつ読んでたら日が暮れるぞ。
バイナリモードで開いてメモリの許す半範囲で読んで、末尾の改行までを消すの繰り返して読み込んだ方が遥かに早いよ
2018/12/02(日) 13:35:42.09ID:QrHhUpeR
100万行越えのデータは、まず複数列、複数シートを使って読み込んでみれば？
内容によっては固まって何もできなくなる悪寒しかないけど
2018/12/02(日) 17:24:20.84ID:L8bj4c7S
100万行が大量か?
それはどんな100万行かによる。
100万個の改行だって100万行だ。
2018/12/02(日) 17:27:05.82ID:L8bj4c7S
>>54
>>55が書いてるようにxlsxで保存するようなのは駄目なのか?
60デフォルトの名無しさん
垢版 |
2018/12/02(日) 21:09:54.29ID:V0qE8100
ユーザーフォーム上のクリックボタンが、Tabで通過する分には何も起こらないのだけどカーソルキーで通過するとチェック入るのだけど、コード書いて制御するしかない？
2018/12/02(日) 22:14:16.48ID:KrKU+109
クリックボタンにチェックとは?
2018/12/03(月) 00:04:08.66ID:X8MytAwB
EXCELのVBA使いたいのですが
どうやったら起動できますか？
最初からEXCELにソフト入ってるんですか？
2018/12/03(月) 00:39:02.99ID:eKdLT8zi
Microsoft Visual Basic for Applications(VBA)エディターが開きます。

Alt+F11
64デフォルトの名無しさん
垢版 |
2018/12/03(月) 07:02:37.21ID:F098t6Ls
>>61
すみません、チェックボックスでした
2018/12/03(月) 19:46:40.74ID:zpf7CT60
>>55
>>59

xlsx保存し元ファイルを全て消すでやりたい事ができました。
ありがとうございます
2018/12/03(月) 23:49:02.49ID:Ks+qj00w
フランス政府からマクロン消したら市民が泣いて喜ぶよね
ありがとうございます
2018/12/04(火) 00:09:42.14ID:fkKXq52U
>>62
まずは首を括れよ
2018/12/04(火) 06:14:33.41ID:Jf/aCYja
>>62
消えろ小僧
2018/12/04(火) 09:00:31.20ID:F519qlgb
"ab","bc","c
d"
みたいなcsvがあり、これを処理速度重視で読み込みたいんですがなにかいい方法無いですかね
なんか配列操作で計算、集計して最後シート出力すると早いと思うので配列に入れたいんですが1行ずつの読み込みだとうまく行かずで困ってます
fsoで全文読んでも改行されてますし…
2018/12/04(火) 09:15:39.52ID:TjlcF2tR
>>69
めんどそう
そんなんじゃ " のエスケープとかも考慮しなきゃいけないんでしょ？

だけど気合い入れてアルゴリズムごりごり実装するのを勧める
2018/12/04(火) 09:18:52.95ID:FU2ewWox
>>69
ボトルネックがFile I/Oならバイナリで全部読んでコンマでsplit
ただし文字列変数の限界は2GBなのでファイルサイズに注意
2018/12/04(火) 12:54:59.46ID:HOLQGFa9
どうでも良いけど1レコードの定義をちゃんとしないと膨大なカラムの1レコードデータになっちまうぞ。

バイナリ読み込みでやるのは確かに早いんだが、そこを気にする程のデータ量なのかなあ。
この間の100万行デ―タもサンプル作って読み込んだら10秒とかだったぞ。
2018/12/04(火) 13:26:11.27ID:F519qlgb
全文読んだ後にレコード単位に分けてカンマ区切りで分けてーをしっかりアルゴリズム書くて感じですかね
そこそこ面倒臭いですねこれ
2018/12/04(火) 13:31:22.51ID:nDNFtNox
セルコピーでValudatonの中身までコピーする方法ってありますか？
愚直にコピーすると設定したプルダウン情報が消えてしまいます
2018/12/04(火) 17:53:21.87ID:eg0Zt3qJ
>>73
エスケープなし、カンマのみ項目なし、改行のみ項目なしなら楽なんだけどね
2018/12/04(火) 18:44:19.91ID:F519qlgb
>>73
自己レス
adodb使ったらなんかいい感じにいけました
2018/12/04(火) 23:45:07.95ID:foGY0MAA
外部のExcelマクロを呼び出し、その処理の中でMsgBoxが表示された場合、それを呼び出し元で認識する方法はありますか？
Msgboxを操作したいとかではなく、表示されたということがわかればいいです
2018/12/05(水) 01:51:39.17ID:bmTXilR5
>>77
APIでHWNDを列挙
2018/12/05(水) 08:11:01.31ID:j7wcFAGs
>>77
外部のExcelマクロというのが別プロセスのExcel上で動いてるマクロという意味なら方法はある。

内部でもExcelが落ちる可能性を承知するならある。
2018/12/05(水) 18:51:03.67ID:cxhucZsa
>>78,79
APIでの実現方法がよくわからなかったので、呼び出されるマクロに認識用のモジュールを追加することにしました
ありがとうございました
2018/12/05(水) 22:21:05.50ID:LTu8VXCT
>>76
自己レス
adodbも面倒臭かったacces無いんでcsvのデータ型判定の為にschma.iniみたいなの作る必要あったり…
元の文字コードとかbomとか考慮しないといけないけどworkbookのopen使ってマズかったらエラー出した方が早かったかも
2018/12/06(木) 08:13:12.56ID:5yG8Yqq9
>>81
いい肥やしになったと思います
2018/12/06(木) 23:32:22.39ID:O2YT1bAS
肥やしって具体的には何のこと？
2018/12/07(金) 08:39:50.57ID:a2+Odvtp
普通にOpenしてLine Inputした方が速くて簡単だったんじゃない?
と思ったら文字コード?BOM?

最初の質問は何だったのか。
文字コード考えなきゃならんのなら、
最初から選択が限られるだろ。
2018/12/07(金) 23:08:14.09ID:vEdbg58X
まあでもsplitはないよな
2018/12/07(金) 23:45:43.79ID:ny7N65D8
データ内の改行やカンマを正しく解釈するためにモジュール自作してる
2018/12/08(土) 08:49:31.99ID:D25PXYri
データ内のダブルクォーテーションもあるで
2018/12/08(土) 10:23:21.41ID:qbpmcynn
この手のことはだいたい同じ事を先に考えている人がいるから、
参考にするなりDLして利用するなりすれば、やりたいことは秒で完成させられる
理解するのはまた別で、ちゃんとソース読めな話になるけど。

たとえば、「VBA CSV BAS」でググって即出るヤツだとこんなとか。
ttps://github.com/sdkn104/VBA-CSV
2018/12/08(土) 11:33:49.23ID:KOgxZmAl
Range("C1:C10") = "=A1+B1"
とセルに式を埋め込むと自動で　A2+B2、A3+B3　とやってくれますが
WorksheetFunctionで上と同じ事を1行で簡単に書くことってできますか？
うまい方法思いつかないのでいつも　関数埋め込み→値貼り付けで式を消す　とやってます
WorksheetFunctionのループは式の埋め込みより遅かったです
2018/12/08(土) 15:59:33.39ID:/nD5g8zA
>>89
わざわざ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
2018/12/08(土) 16:47:33.14ID:X2RnV3YS
俺ならVBAで各セルに計算式埋めるけどな
2018/12/08(土) 17:13:31.83ID:Zw8nZFqz
Range("C1:C10").Formula = "=A1+B1"
Range("C1:C10").Value=Range("C1:C10").Value
2018/12/08(土) 18:00:32.80ID:FvhEiENk
>>89
人に教えてもらう分際で、一行でとか注文つけてんじゃねーよ。
2018/12/08(土) 19:19:47.59ID:I01ncySI
ワークシートか配列へ代入したり配列をワークシートに直接貼り付けたりって技いつ頃から一般的になった？
なんか20年前からやってたという人がいて本当かよと思ったんだが。
2018/12/08(土) 20:28:45.94ID:/nD5g8zA
>>94
特定の個人が知ってたのと、一般的かどうかなんて全然関係ないじゃん
ExcelもVBAも20年以上前からあるんだし、知ってても不思議じゃない
2018/12/08(土) 20:53:05.77ID:dkUbxCqg
>>95
ああごめんなさい
「そんなの20年前から一般的だったよ」みたいなニュアンスで言われたんですよ。
自分としてはここ2〜3年で知られた新しめのテクニックだと思ってたんで、「マジか？」と。
2018/12/08(土) 21:00:40.14ID:/nD5g8zA
20年前のことは知らんけど、さすがにここ2〜3年てことはない
もっと昔から知られてた
2018/12/08(土) 21:04:04.90ID:Ac8D4eVv
>>97
ですね。

そもそもいちいちセル移動して操作なんて、トロくさくてやってられん。

Google Apps Scriptなんかでも配列で操作なんて、速度稼ぐ為に普通に使う枯れたテクニック。

あまりにもセル操作という初歩だけが広まった弊害だね。
2018/12/08(土) 21:07:43.53ID:KOgxZmAl
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
2018/12/08(土) 21:09:26.57ID:KOgxZmAl
時間（秒）
A　0.035
B　0.265
C　0.031
D　0.015
E　0.062

配列は頭がごちゃごちゃして苦手なんだけどやっぱ配列かなー
いつものは書くのが楽だけど見栄えがあんま良くない
Range("C1:C10000") = "=A1+B1"の部分を数式残さずWorksheetFunction一括で書けないかなーと思ってた
みなさんどうも
2018/12/08(土) 21:12:06.71ID:KOgxZmAl
書き間違い
ans→計算結果格納配列
2018/12/08(土) 22:34:44.30ID:Pds2yprW
Range("c1:c10") = Evaluate("=a1:a10+b1:b10")
2018/12/08(土) 23:08:03.54ID:KOgxZmAl
>>102
速くて簡潔
今までの中で一番早い
Evaluate知らないので勉強してみます。有難う。
104デフォルトの名無しさん
垢版 |
2018/12/08(土) 23:21:36.60ID:Q+l9Re6e
>>102
あーなんかいいのがあったはずだと思っていたがEvaluateかーー
くやしいから
Range("c1:c10") = [a1:a10+b1:b10]
105デフォルトの名無しさん
垢版 |
2018/12/09(日) 07:19:28.94ID:Pe0BknB8
データを蓄積、変更して管理するシステムをVBAで作るとして、普通、データとプログラムを分けるよな？
106デフォルトの名無しさん
垢版 |
2018/12/09(日) 08:55:53.41ID:BPsncq85
>>105
分けるけど、わざわざそういう質問するってことは現状データをBookに蓄積先してる状況なのかな？
入出力画面をExcel & VBAで作って、データはDBに蓄積するってのがこの場合の模範解答だと思うが。
2018/12/09(日) 21:01:53.98ID:F2zjByp1
>>94
配列数式ってのは大昔からあったな。エクセルはＶＢＡ書かないと標準機能ではクロス集計が
面倒くさいダメダメ君だった。「条件付き合計式ウィザード」なんていう冴えないシロモノに失望して
108デフォルトの名無しさん
垢版 |
2018/12/10(月) 12:24:50.65ID:F1/sCBz9
>>96
おまえが2〜3年前に知ったからってなんで勝手に一般化して皆そうだと思うんだよ
2018/12/11(火) 08:00:45.59ID:VzVuR/sH
みんな、落ち着いて聞いてくれ。
間も無く2019年だ。2019だぞ？
配列に突っ込んで一括処理するのは、少なくともEXCEL98から使われてきた手法だ。
既に20年経過してやがる。
2018/12/11(火) 08:30:34.19ID:jr4KaA92
>>109
٩(๑`^´๑)۶＼(^-^ ) ヨシヨシ
2018/12/11(火) 08:41:05.40ID:mN+cBX2v
空白行が複数ある範囲から、空白行を除いて配列に取り込むのはどうやるのが効率がいい？
条件
・行内は完全に空白かそうでないかで中途半端にデータが入ってるところはなし
・空白行を除いたデータ総数は300前後で最大で16程度に分割されている
・空白行は連続することもある

一行一行調べるより、データの塊の上下の行番号を調べるのが正解な気がするんだけど
2018/12/11(火) 08:55:39.61ID:OAAPkOpt
>>111
そのデータがワークシート上にあるんなら、オートフィルターかければ？
VBAで1行で書けるぞ
2018/12/11(火) 09:27:01.56ID:zUaOIyWC
>>111
> データの塊の上下の行番号を調べる
それ一行一行調べないとわからないんじゃね？

普通に一気に配列に読み込んで空白行を詰める処理を入れればいいかと

>>112
フィルタ掛けた結果を一気に配列に読み込むってできたっけ？
2018/12/11(火) 11:43:07.63ID:U/EFAptV
>>109
fjだかのExcel会議室では配列がホットな話題になったよ
t.Tanaka氏とかもコテハンで議論に参加してさ
なつかしいなあ
2018/12/11(火) 11:50:12.79ID:s7r8QuRW
>>114
お
っ
さ
ん
2018/12/11(火) 12:15:58.68ID:/u4ZG0F2
>>115
当時からおっさんだったら、今頃じーさんかも知れないぞ。
2018/12/11(火) 14:13:54.04ID:mN+cBX2v
>>113
下からCtrl↑で止まったセルの行番号を取得するを繰り返せば毎行調べなくて済む

オートフィルターで絞った結果を可視セルだけ選択しても、取り込まれるのは左上だけになるから無理だね
一行一行調べる羽目になる
やるなら作業シート作ってコピペしてから取り込むんだけだ、それはやりたくない訳で
2018/12/11(火) 14:39:45.96ID:zUaOIyWC
>>117
> 下からCtrl↑で止まったセルの行番号を取得するを繰り返せば毎行調べなくて済む
それはそうだけど速いかどうかは状況次第だね
>>112 > VBAで1行で書けるぞ
って方法があるみたいなことを書いてるので聞いただけ
2018/12/11(火) 20:47:54.18ID:r2my7w49
>>118
元々、どういう考えで>>112が言ったのかは分からんけど、配列に取り込むまでを1行って言ってたのかなあ。
オートフィルタをかけるコードが1行という意味じゃないかな。

だからといって、そこからどうするんだ?とは思うけどさ。
2018/12/11(火) 21:00:32.57ID:zUaOIyWC
>>119
元々は
>>111
> 空白行が複数ある範囲から、空白行を除いて配列に取り込むのはどうやるのが効率がいい？
なので、フィルターだけの事を言われても…
2018/12/11(火) 21:34:59.21ID:OAAPkOpt
クリップボード経由でデータを一気に取得、オートフィルタにも対応
※最小設定FM20.DLLが必要
Sub Macro1()
　　ActiveSheet.Range("A1:C10").Copy
　　With New MSForms.DataObject
　　　　.GetFromClipboard
　　　　str = .GetText
　　End With
　　MsgBox str
End Sub
2018/12/11(火) 21:35:27.33ID:OAAPkOpt
参照設定
2018/12/11(火) 21:40:19.21ID:r2my7w49
>>120
そりゃそうだけど、>>112を読む限り1行ってのはオートフィルタだけについて言ってるように受け取る方が自然じゃん。
だから、そこからどうするんだという感想になるわけ。
そもそも>>112は配列に取り込むことなんて想定してないかもしれない。
空白があって見にくいのを何とかしたいんだろうとか、勝手に先読みして配列に取り込むという元のお題をほったらかしとか。

そもそも300行程度のデータならどんな方法でも良いんじゃないかと思う。
そんなんで思い悩むのは無駄だよ。
2018/12/11(火) 21:51:43.64ID:zUaOIyWC
>>123
ガイジなのかな？
2018/12/11(火) 22:40:05.46ID:r2my7w49
>>124
君が?
それとも>>112?
2018/12/11(火) 22:53:52.01ID:8DZhL+mg
それこそVariant型配列にでもぶっ込めば手っ取り早いし処理もそれなりに速そう
2018/12/11(火) 23:25:52.21ID:mBAHWwo2
UI Automationのレイトバインドって、どうやればいいんでしょう?
レジストリ調べてもクラスID出てこないし・・。
2018/12/11(火) 23:34:38.12ID:r2my7w49
>>127
基本的に出来ない。
2018/12/12(水) 00:19:46.28ID:3KU1fzXl
>>128
参照設定は出来るのに、CreateObjectは不可なんてのがあるんですか?
2018/12/12(水) 06:08:42.05ID:yHW8d60g
>>125
自覚がないのは可哀想
2018/12/12(水) 09:43:38.09ID:F+70e5KM
>>129
ある。
2018/12/12(水) 09:44:36.67ID:F+70e5KM
>>130
まず、日本語の勉強をしような。
2018/12/12(水) 12:29:40.76ID:4PEjGm8G
>>132
どこから日本語とか出てくるんだろう？
日本語ができないという自覚はあるってことなのか？ w
2018/12/12(水) 19:01:00.09ID:pifCGzoS
グラフ作成マクロ作ったんだけど結構面倒くさくない？慣れの問題？
特に細かなフォーマットとか云々がめんどい
それに出力シートのセルいじられて（1行目削除）出力セルがズレたせいでフォーマット崩れたとか言われて頭痛いんだけどどう対処するのが良いのこれ
135デフォルトの名無しさん
垢版 |
2018/12/12(水) 20:01:12.49ID:K6Ng+wlm
使用方法まとめたドキュメント作ってないなら作成者が悪い。
作ってるなら碌に読まないで文句いってる使用者が悪い。
作り方次第で解決するとは思うが。
2018/12/12(水) 20:02:06.59ID:aZC5ZPlw
ルーチンにはルールが必要やで
2018/12/12(水) 22:32:28.50ID:3KU1fzXl
>>134
逃げる。
いや、マジで。
フォーマットを壊す人ような人の依頼を受けると碌なことない。
どうしてもやらなきゃダメなら、
ちょっとでも崩れたら、エラーメッセージが出るようにする。
あなた壊しましたね。直さないと出力できませんよ的な。
2018/12/12(水) 23:25:41.76ID:YxATkhEB
シートとブックを保護する
2018/12/13(木) 09:08:24.41ID:UfF+3F/y
出来たグラフをPDFにしてそれを渡す
2018/12/13(木) 09:12:33.11ID:LhgdcJ19
>>133
人の話が理解出来てないから、日本語という言葉が出て来るんじゃないの。
2018/12/13(木) 12:28:02.78ID:yiVhwKQv
>>140
> 人の話が理解出来てないから
既にガイジかよって指摘されてるだろ w

そもそも配列に取り込むという要件明記されてるのにオートフィルターなら１行で書けるとか頓珍漢にも程がある
2018/12/13(木) 21:18:33.38ID:WIhtQMzU
>>138
シーブックがなんだって？
2018/12/13(木) 22:36:46.58ID:X2R1LlWK
CreateObject("Excel.Application").ExecuteExcel4Macro("CALL(DLL, 名前, ""JJ"", variant型の配列)")

これにvariant型の配列を渡す場合はどうすればいい?
OとかKとか入れてもダメなんですけど。
普通に呼べとか言わないで。
2018/12/14(金) 01:30:05.29ID:dZAIZmaz
>>142
あのぉ…
2018/12/14(金) 07:22:07.04ID:CUJ1nMvt
>>143
不可能
1セルずつしか処理できないのが特徴だし
2018/12/14(金) 09:13:11.97ID:GTuXeJsU
>>141
想像した通りだ。
日本語勉強しような。

俺は>>112ではないという基本的なことも無視かね?
>>112には全く賛同出来ないが、かといって>>112は君の要件に対して1行で書けると言っているとは限らないと読み取れると言っている。

1行で書けるというのは、その直前のオートフィルタをかけるという部分を受けてのものとも読み取れるのが日本語の解釈だ。
もちろん、君の要件に対してのものというのを全面的に否定するものでもない。
どっちにも受け取れるのが日本語の曖昧さだ。
2018/12/14(金) 12:34:42.08ID:8Omm9ucp
>>146
> >>112には全く賛同出来ないが、かといって>>112は君の要件に対して1行で書けると言っているとは限らないと読み取れると言っている。
別に俺が出した要件じゃねーけどな
敵は１人に見える病気かな？ w
フィルター云々はいいとして要件にそぐわない事書いて意味あるんか？
って話な
フィルター掛けときゃすげー楽になると言うならまだしも>>117とか恥の上塗りにしかなってないだろ
ここまで説明しないとダメなの？
2018/12/14(金) 19:29:44.65ID:GTuXeJsU
>>147
>別に俺が出した要件じゃねーけどな
全く、馬鹿らしいがそんなことは想定済みだ。
こういう場合、要件出したのが君だろうが違かろうが「君の要件」と書いておけば通じるという想定だ。
それまでの君の発言を見て要件出した奴かどうかなんて調べるのがめんどうということだ。

>フィルター云々はいいとして要件にそぐわない事書いて意味あるんか？
って話な
そんなことは要件出した奴が判断することだし、俺はそんな所にレスしたわけじゃない。
単純に1行が要件そのものに対してとは限らんと言ってる。
それに「VBAで1行で書けるぞ」が要件のことを言っていなくてもトータルで要件にそぐうこともあり得る。
フィルタのコードに1行、他に何十行かで要件を満たしているかもしれないわけだ。

>フィルター掛けときゃすげー楽になると言うならまだしも>>117とか恥の上塗りにしかなってないだろ
>>112=>>117とは限らん、というか違うと思うわけだが、イコールとは限らない以上、>>112の意図が「フィルター掛けときゃすげー楽になる」という可能性を排除できない。
つまり、君の言う「まだしも」の可能性が残っている。
それに、俺が書いたように>>112が要件にそぐわないものを出した可能性もある。
したがって、「1行で書ける」というのが要件そのものに対してではなくフィルタをがける処理のみに対してである可能性は十分ある。
これは日本語でのやり取りなら十分あり得ることだ。
2018/12/14(金) 19:35:29.16ID:GTuXeJsU
>>146
>ここまで説明しないとダメなの？

ちなみに、君のその説明、一番最初から分かってるから。
その君の主張が甘いんじゃねということを言ってるのが最初からの俺の主張だぞ。
2018/12/14(金) 19:36:43.15ID:GTuXeJsU
>>149
アンカー間違えた。
>>149は>>147へのレスな。
2018/12/14(金) 20:29:48.28ID:8Omm9ucp
>>148
> つまり、君の言う「まだしも」の可能性が残っている。
なら早く出せよ w
出せない時点で中身のない長文乙
にしかならんよ
2018/12/14(金) 21:50:27.31ID:GTuXeJsU
>>151
???
出すのは>>112であって俺では無いし、それにこの議論が始まるまでの話だから今さら出す、出さない関係無く>>118のの時点で1行が要件に対してと決めつけたのは間違いなんだが。
2018/12/14(金) 22:24:25.69ID:OczD5cRe
>>145
セルじゃなくてvariant型の配列。
2018/12/14(金) 22:48:04.67ID:yDEitqc6
>>152
お前に出せないのはわかってるよ w
出せないのに
> つまり、君の言う「まだしも」の可能性が残っている。
とかアホでしょ？
って話な

そもそも>>118どころか>>113の時点で
> フィルタ掛けた結果を一気に配列に読み込むってできたっけ？
で>>112がおかしいことを指摘してる
2018/12/14(金) 23:06:35.41ID:GTuXeJsU
>>154
???
まだ分かって無いのか?

>>112の意図がまだ分かっていない時点では>>112が正しい可能性が残っていると言っている。
残っている以上、>>112をおかしいと決めつけたお前がおかしいということだ。

出す必要なんて最初からないんだよ。
2018/12/14(金) 23:13:37.60ID:GTuXeJsU
>>154
>そもそも>>118どころか>>113の時点で
> フィルタ掛けた結果を一気に配列に読み込むってできたっけ？
で>>112がおかしいことを指摘してる

>>112がフィルタをかけることだけについて1行と言っているのなら―気に読み込まなくても>>112は正しい可能性が残る。

つまり、お前の指摘は間違っていることになる。
>>112がおかしいというのなら正しい可能性が残らないように指摘しなければならない。
2018/12/14(金) 23:48:38.10ID:yDEitqc6
>>155-156
で？
役に立たない長文書いてもなんの解決にもならんよ
恥の上塗り重ねてるだけ w
2018/12/15(土) 03:21:06.31ID:WK8Eb1ay
>>157
なんだ、反論できんのか?
だったら何も言うことは無い。

まともに日本語が理解出来ないのは哀れだねえ。
2018/12/15(土) 07:16:14.22ID:lJT07BrA
>>155
> >>112が正しい可能性が残っていると言っている。
バカなの？
>>112の内容が間違ってるとか言う話じゃなくて「頓珍漢」だと言ってるの
まあ>>117はさらに頓珍漢だけどな

> まともに日本語が理解出来ないのは哀れだねえ。
ブーメラン過ぎる w
2018/12/15(土) 08:17:58.44ID:B6remLfl
いつになったら場違いだと気付くのだろうか。。。
2018/12/15(土) 09:04:38.64ID:U64Nbokg
でさ、ここ質問スレ

乱闘なら他でやれ、クズ共
2018/12/15(土) 10:21:31.76ID:WK8Eb1ay
>>159
アホ。
頓珍漢ではない可能性が残っている。
お前が勝手に決めつけているだけだ。
2018/12/15(土) 10:31:11.19ID:WK8Eb1ay
だいたい、俺の意見はお前と近いんだよ。
お前みたいな甘さが無いだけで。
だから「そこからどうするんだ」という発言が出てる。
頓珍漢だろうとは思ってるの。
確定してないから決めつけてないだけで。

だいいち、頓珍漢だとしてもお前の決めつけが間違ってるのは変わらないだろう。
頓珍漢だなんてのは反論になってないな。
だから日本語を勉強しようなという話になる。
2018/12/15(土) 10:57:25.02ID:0SCAvoVT
>>162-163
頓珍漢の根拠まで書いてあるのに何を言ってるんだこのアホは w

>> 空白行が複数ある範囲から、空白行を除いて配列に取り込むのはどうやるのが効率がいい？
> なので、フィルターだけの事を言われても…
165デフォルトの名無しさん
垢版 |
2018/12/15(土) 12:42:24.61ID:lWJaBIbu
いつまでネコパンチ打ち合うつもりやねんおまえら
2018/12/15(土) 14:45:59.06ID:945ViHWv
次の質問が来ないからじゃね
2018/12/15(土) 15:45:43.01ID:n3n4s8WM
>>166
じゃ、ひとつ

Excel VBAで、Google OAuth認証などをやってるが、Clien_IDやSecretはコード中に書くとしても、取得したAuth CodeやAccess_Token、Refresh_Tokenなどはどこに安全に格納出来るか？

.NETアプリやAccessのようにappconfigや仕舞えるテーブルが無いので、皆どうしているのかね？
2018/12/15(土) 15:53:11.37ID:mgmsvi+C
>>167
そんなものをVBAで作らない
もしどうしても必要があるなら外部のコンソールアプリを呼び出す形にする
2018/12/15(土) 16:03:58.72ID:VvS+qBfB
VBAで何をやろうとしてるんだよ
何のためにそんな実装するのか詳しく
2018/12/15(土) 16:17:18.77ID:U8VjJ+lV
app.configとかテーブルとかが安全だと思ってるなら、
セルに書いといて保存でもテキストファイル書き出しでも好きにすればいいんじゃね
2018/12/15(土) 16:44:01.14ID:2qRdp2bE
>>167
> appconfigや仕舞えるテーブル
そんなのでいいなら適当なファイルとかブックのドキュメントプロパティに入れときゃいいんじゃね？
2018/12/15(土) 16:57:49.47ID:WK8Eb1ay
>>164
バーカ
>>112の書き方ではフィルタだけとは限らない。
>>112だけで終わりとは限らない書き方だろうが。
あの書き方では、その後に何かあるか、それとも後は察しろという風にも読み取れる。
だから俺は「そこからどうするんだ」という発言になる。
たぶん頓珍漢だろうけど、そこからどうするか聞いてからじゃないと確定出来ないからだ。

それに頓珍漢で逃げたいかもしれんが、頓珍漢かどうかは反論にならない。
頓珍漢だとしても1行が要件全体にかかってると決めつけたお前の解釈が甘いことには変わりが無い。
2018/12/15(土) 18:04:57.01ID:lJT07BrA
お前がどう思うかなんてどうでもいい
>>112は>>111の要件を満たしてない頓珍漢なレスであることに変わりない
まあ、続きのつもりかどうかは知らんが>>117みたいな斜め上のレスをするアホもいるけどな w
2018/12/15(土) 18:13:07.03ID:zDjD9XpS
>>168-171
結局、お前らがここで、くだらない議論してる間抜けを招いてる元凶ってにはよくわかったよ。

まともな回答もできん、技術力ないアホってのもなｗｗｗ
2018/12/15(土) 18:28:50.08ID:lJT07BrA
> 元凶ってにはよくわかったよ。
煽ろうとしてカミカミとか恥ずかしすぎるww
2018/12/15(土) 18:33:30.22ID:WK8Eb1ay
>>173
つまりお前の日本語解釈能力の低いことが確定ということだ。

甘いねえ。
>>117は>>112の後だ。
お前の指摘の後でもある。
>>117の存在はお前の頓珍漢だという決めつけを補強しない。
なぜなら>>117より以前にお前は決めつけをしてるんだからな。

因みに俺は>>117じゃないんで別に>>117が頓珍漢でも全くかまわん。
2018/12/15(土) 18:45:26.64ID:lJT07BrA
>>176
> つまりお前の日本語解釈能力の低いことが確定ということだ。
根拠のない勝利宣言 w
低能にありがちな行動
2018/12/15(土) 20:16:24.25ID:VvS+qBfB
なんだこいつ病気か
179デフォルトの名無しさん
垢版 |
2018/12/15(土) 20:42:55.07ID:NkuNHsZU
病気の人に失礼だろそれは
2018/12/15(土) 22:10:19.68ID:WK8Eb1ay
>>177
根拠?
既に何度も示してお前が反論出来なくなっているわけだが。

>>112は要件全てではなくオートフィルタのみについて1行と言っていた可能性がある時点でお前の決めつけは間違っている。

頓珍漢かどうかは関係ない。
>>112が頓珍漢でもお前は間違ってる。
2018/12/15(土) 22:12:08.06ID:WK8Eb1ay
何故、お前が間違った決めつけをしたのか?
それはおまえの日本語解釈能力が低いからだ。
2018/12/15(土) 22:33:13.95ID:7RBFgqMT
お客さんが多いなあ
2018/12/15(土) 23:20:05.72ID:lJT07BrA
>>180-181
> >>112は要件全てではなくオートフィルタのみについて1行と言っていた
それが頓珍漢だって言ってるのに w
続きがあるかもしれないから頓珍漢じゃない可能性があるとかバカかよ
そんなこと言い出したらなんとでも言えるわ
2018/12/16(日) 07:19:47.75ID:48kCZeZq
単なる罵り合いを見せつけられるくらいなら過疎ってるほうがよっぽど良い
2018/12/16(日) 15:01:54.86ID:wWzCJETE
>>183
バカ?
頓珍漢でもお前の間違いは変わらんと言ってる。
反論出来ないからといって見当違いばかりだな。
186デフォルトの名無しさん
垢版 |
2018/12/16(日) 15:15:50.29ID:Waa1ZwFh
この罵り合いって一人で自演やってるの？
それとも馬鹿が2人もいるの？
2018/12/16(日) 15:21:47.19ID:7UXd2BE0
もう言ってることが無茶苦茶
> 反論出来ないからといって見当違いばかりだな。
またブーメランかよ w
2018/12/16(日) 15:31:07.45ID:wWzCJETE
>>187
頓珍漢でもお前は間違ってるのは認めるのかい?
2018/12/16(日) 15:34:57.02ID:wWzCJETE
>>187
>>112はオートフィルタのみについて1行と言った可能性があるのに要件全てに対してだと決めつけたのは間違いであり、>>112が頓珍漢かどうかに関係なく>>113の発言は思慮が浅いと思うんだが、それについては反論出来ないということでOK?
2018/12/16(日) 15:38:49.65ID:wWzCJETE
見当違いなのは、頓珍漢かどうかに関係なく間違いだと言ってるのに、いつまでたっても頓珍漢で押し通そうとしてるからなんだが。
2018/12/16(日) 15:47:14.35ID:7UXd2BE0
>>188-189
もしかして
> そんなこと言い出したらなんとでも言えるわ
っていう意味すら理解できないガイジ？ w
2018/12/16(日) 16:18:10.73ID:wWzCJETE
>>191
そんなことは無い。
日本語には2通りの解釈が出来る場合があって、>>112は明確にその場合だ。
どんな場合でも複数の解釈が出来るとは限らんし、普通に複数の解釈が出来る場合に決めつけをすることは無い。

で、お前は間違えを認めるのか?
2018/12/16(日) 16:23:40.16ID:7UXd2BE0
>>192
２通りの解釈？
後付していいなら２通りどころかなんとでも解釈できるように書けるぞ

> そのデータがワークシート上にあるんなら、オートフィルターかければ？
> VBAで1行で書けるぞ
でも、〇〇した方がもっといいけどな

ってか？ w
2018/12/16(日) 18:04:23.80ID:wWzCJETE
>>193
???
本当に日本語ダメなんだな。
後付けなんてしてない。
>>112のみで2通りに解釈できるんだが。
それを理解出来ずに見当違いの言い訳するから「日本語勉強しような」と言われるんだ。
2018/12/16(日) 18:20:18.12ID:7UXd2BE0
>>194
お前が誰か知らんけど
> >>112だけで終わりとは限らない書き方だろうが。
とか書いてたアホがいたっけな w
2018/12/16(日) 18:55:56.11ID:wWzCJETE
>>195
また、見当違いか。

>>112だけで2通りの解釈ができ、それをお前が理解出来なかったのは認めるのかい?
2018/12/16(日) 19:12:31.97ID:7UXd2BE0
>>196
> >>112だけで終わりとは限らない書き方だろうが。
とか書いてたアホとは他人なの？
なら黙っててね
それとも恥ずかしくてごまかそうと必死なのかな？ ww
2018/12/16(日) 19:15:43.10ID:wWzCJETE
>>197
まず、お前が間違ってたのを認めるかどうかが先だ。
お前の間違いは1つだけでは無いので話を変えて逃げようとしても無駄だ。

後付け云々についてはその後だ。
2018/12/16(日) 19:18:42.74ID:wWzCJETE
悔しいのは分からんでも無いが、客観的に見て自分に間違いがあるなら認めような。
間違いが無いなら別の話に持ってこうとせずに真正面から反論すべきだな。
2018/12/16(日) 19:29:40.20ID:7UXd2BE0
>>198-199
ごまかそうと必死すぎて笑える
まずは
> >>112だけで終わりとは限らない書き方だろうが。
> とか書いてたアホとは他人なの？
に、答えなよ
2018/12/16(日) 20:08:06.24ID:iM0z/gpL
>>200
誤魔化そうとしてるのはお前。
一番最初の話は>>112の解釈をお前が間違ったのかどうかだろ。
>>119の時点の話だ。
2018/12/16(日) 22:36:05.00ID:7UXd2BE0
お前がどう言おうと>>112単体では>>111の要件を満たさない頓珍漢なレスである事実は変わらんよ
残念だったな w
2018/12/16(日) 23:06:44.08ID:jPkme8um
>>202
バー力。
頓珍漢でもお前は間違ってると言ってるだろ。
つまりお前はまだ何一つ反論をしていない。
お前が間違っているという俺の指摘に何ーつ反論していない。

このまま間違いを認めるのかねw
2018/12/16(日) 23:17:12.24ID:7UXd2BE0
>>203
> 頓珍漢でもお前は間違ってると言ってるだろ。
お前は何を言ってるんだよ、>>112が頓珍漢なら俺が正しいことになるんだが…
マジでバカすぎる w
2018/12/17(月) 03:10:52.43ID:Lv/9aVPQ
>>204
ならないんだが。
何度も言ってるのに無視かよ。
よっぽど頭が悪いんだな。

>>112はオートフィルタのみについて1行と言っている可能性がある以上、配列に読み込む部分を含めて1行と決めつけて解釈したお前は間違い。
それは頓珍漢なこととは別の問題だ。
2018/12/17(月) 03:13:56.86ID:Lv/9aVPQ
物事をきちんと分けて考えられないのもこのバカの特徴だな。
2018/12/17(月) 07:18:53.33ID:QtVZQcqx
>>205-206
> >>112はオートフィルタのみについて1行と言っている可能性がある
だからそれが頓珍漢だって言ってるのに…
人の話を無視して論破されてる話を何度も繰り返すのは低能にありがちな行動だけどな w

> 物事をきちんと分けて考えられないのもこのバカの特徴だな。
ブーメラン乙
2018/12/17(月) 07:34:27.78ID:KD4HX3We
まだやってんのw
2018/12/17(月) 07:54:15.41ID:QtVZQcqx
2018/12/17(月) 03:10:52.43 ID:Lv/9aVPQ
夜中の3時とかよほど悔しかったみたいよ w
2018/12/17(月) 09:21:28.94ID:Lv/9aVPQ
頓珍漢でもお前は間違ってるんだよ。
全く反論になってないと言ってるだろうに。

>>112が頓珍漢では無い場合
→お前は間違ってる
>>112が頓珍漢な場合
→お前は間違ってる

お前の発言「だから>>112は頓珍漢なんだよ」

つまり、お前は間違ってる

日本語ワカリマスカ?
2018/12/17(月) 09:26:32.36ID:Lv/9aVPQ
>>209
冷静に見ればよっぽど悔しく見えるのは両方だ。
劣勢だからって同意を求めようとするな。
212デフォルトの名無しさん
垢版 |
2018/12/17(月) 12:18:18.33ID:5M+6Ly1a
どっちも劣勢なんやからいい加減諦めろやw
2018/12/17(月) 12:22:59.36ID:QtVZQcqx
>>210
> >>112が頓珍漢な場合
> →お前は間違ってる
一体どういう思考回路なんだろ？
ガイジを装ってウヤムヤにしようと思ってるのかな？
そんなことしなくても既にガイジ並の思考能力しかないことはバレてますよ w

>>211
ごめんな、流石に俺は夜中の３時にレスするほど悔しくはないんだよ… w
2018/12/17(月) 12:32:00.75ID:Lv/9aVPQ
>>207
俺が物事をきちんと分けて考えられないというなら、何を分けて考えられなかったかを示す必要がある。
俺はお前が何を分けて考えられていなかったか示してるぞ。

適当にブ―メランなどと言っても根拠0じゃ何の説得力も無い。
2018/12/17(月) 12:35:07.44ID:Lv/9aVPQ
>>213
バーカ
頓珍漢だとしてもお前は2通りの解釈が出来なかっただろうが。

オートフィルタのみ1行(の可能性がある)なのにお前は要件全てだと勘違いして決めつけた。
2018/12/17(月) 12:38:15.60ID:Lv/9aVPQ
>>213
プッ。
この期に及んで悔しくないなどと言っても笑われるだけだぞ。
誰もそんな話信用しないわ。
2018/12/17(月) 19:29:53.15ID:QtVZQcqx
>>214-215
もうアホには何度言っても無駄なんだろうな w
２通りの解釈どころかその後に付け加えるなら何でもありあり
付け加えないなら>>111の要件を満たさない頓珍漢なレス
で、世間では普通は書いてもない事を付け加えて解釈なんてしない
（まあ一時話題になった忖度とかはあるけどな）
要するに>>112単体では頓珍漢なレスで確定なんだよ
オートフィルターが１行とか言われても、はあ？それがどうしたって話になるだけ

>>216
うんうん、君が夜中の３時にレスしてると言う「事実」があるだけだね w
2018/12/17(月) 20:17:28.92ID:Lv/9aVPQ
>>217
頓珍漢でもお前は間違ってると何度言っても、頓珍漢で押し通そうとするのが笑える。
>>112単体で2通りの解釈が出来ると言っても後付けすればなどと見当違いなことを言う。

この期に及んでも何ーつ反論していないバカ。
2018/12/17(月) 20:52:45.62ID:QtVZQcqx
>>218
> 頓珍漢でもお前は間違ってる
根拠も示せずに何度もほざかれても困るし

> >>112単体で2通りの解釈が出来る
解釈書いてみ
まさかこの期に及んでオートフィルターガーとか言うのはやめれくれよ

> この期に及んでも何ーつ反論していないバカ。
またブーメランかよ…
好きだねー w
2018/12/17(月) 21:32:44.47ID:aWnNi0b/
まだいるのかよ…
2018/12/17(月) 21:34:11.65ID:Lv/9aVPQ
>>219
何度も書いてる。
1行はオ―トフィルタを掛けるコードが1行と解釈できる。

何度書いても理解出来ないバカ。
日本語に弱いから仕方ないのかねえ。

ハンバーグステーキを作ろうとしてる奴に「付け合わせのマッシュポテトはじゃかりこにお湯を注げば。
1分でできるぞ。」
と言った時、こいつの脳内ではハンバーグステーキが1分でできることになってしまうのだ。
2018/12/17(月) 22:41:30.96ID:yChZzMqc
>>221
> 1行はオ―トフィルタを掛けるコードが1行と解釈できる。
それがなんの意味もない頓珍漢なレスだ
って何度も書かれてるのに w

> 何度書いても理解出来ないバカ。
> 日本語に弱いから仕方ないのかねえ。
お前がな

> ハンバーグステーキを作ろうとしてる奴に「付け合わせのマッシュポテトはじゃかりこにお湯を注げば。
> 1分でできるぞ。」
> と言った時、こいつの脳内ではハンバーグステーキが1分でできることになってしまうのだ。
意味不明な例え乙
これぞ頓珍漢だな w
2018/12/17(月) 23:23:37.71ID:Lv/9aVPQ
バカは何度でもループする。

「頓珍漢でもお前は間違い。」に対しての反論が「頓珍漢だ」じゃ反論にならない。

救いようがない程のバカw
2018/12/17(月) 23:25:29.19ID:Lv/9aVPQ
>>222
そりゃ日本語が理解出来ないんだから意味不明だろうなw
2018/12/17(月) 23:57:53.98ID:yChZzMqc
>>223
> バカは何度でもループする。
自覚はあるんだ w

>> 頓珍漢でもお前は間違ってる
> 根拠も示せずに何度もほざかれても困るし
は、ガン無視だし
どう反論しろと…
2018/12/17(月) 23:59:31.81ID:yChZzMqc
ハンバーグ作ろうとしてる奴にドヤ顔でマッシュポテトの作り方語るバカがなにかほざいてるな w
2018/12/18(火) 02:09:02.31ID:0uF82Fsr
ハンバーーーーーーーグ！
228デフォルトの名無しさん
垢版 |
2018/12/18(火) 06:46:14.46ID:mQMHvFDr
木枯しを吹き飛ばす熱い闘いが続いております
５ちゃんねら〜の意地と意地とのぶつかりあい
書くのをやめたレスバトラーに待ちうけるのは「敗北」という恥辱にまみれた二文字のみ
「止められないレスがそこにある！」

それでは引き続きおたのしみ下さい

　バカ　vs　バカ

ﾌｧｲｯ!!!!!!!!
2018/12/18(火) 08:11:45.42ID:C3RGy1+P
>>225
2通りに解釈できるものをお前は理解出来なかったのが根拠と何度も書いているが。

>>112とお前の両方が頓珍漢ということは普通にあり得る。
したがって>>112が頓珍漢だというお前の主張はお前が頓珍漢であることの反論にはならない。
2018/12/18(火) 08:17:07.32ID:C3RGy1+P
>>226
マッシュポテトはハンバーグの付け合わせだから元々作ることになっている。
ハンバーグの部分であるマッシュポテトの時短への言及であり、1分とはその部分にかかる時間である可能性がある。
全体にかかる時間ではないかもしれないと考えるのがまともな日本人だ。

お前は日本人じゃ無さそうだから理解出来んかもしれんが。
2018/12/18(火) 08:34:19.90ID:/UA4EEmu
ハンバーグの付け合せにマッシュポテトしか思いつかないとかどんだけ発想が貧しいんだよ w
知識も知能もスッカスカやん
2018/12/18(火) 09:04:54.27ID:C3RGy1+P
>>231
話をすり替えようとしても無駄だねえ。
単なる例に何言ってんの?
2018/12/18(火) 10:39:29.20ID:o0ORzhLh
二人のやりとりでここまで日を跨いで続くのってあまり見ない気がするけど、やっぱりム板住人気質ってことなんだろうな。
頭はあまり良くないのにその自覚が乏しく、細かいことに異常に拘る。自分も少なからずそういう傾向があるから、気をつけないとな……。
2018/12/18(火) 11:37:31.53ID:qVCHqInm
すごく昔っぽい
2018/12/18(火) 12:16:58.67ID:/UA4EEmu
頓珍漢な例を出してごめんなさい
だろ？ w
2018/12/18(火) 19:13:23.83ID:3O+U276/
今日も元気やな〜。俺は風引いて寝込んでるからそのパワーが羨ましいよ w
2018/12/18(火) 20:17:01.94ID:C3RGy1+P
>>235
また新たに日本語を理解出来ない事象が発生かよ。

発想が貧しいなどと今までの話とは関係ない方向へ持ってこうとしたことに対して単なる例と言ったのであって、例としては全くもって的確だ。
238デフォルトの名無しさん
垢版 |
2018/12/18(火) 20:17:38.62ID:mQMHvFDr
バカ共もさすがに恥を知ったんかなw
239デフォルトの名無しさん
垢版 |
2018/12/18(火) 20:18:08.69ID:mQMHvFDr
と思たらまだ続いとったwナイスバカw
2018/12/18(火) 22:18:11.50ID:ncFc1flt
>>237
まだやるの？
> 決めつけたのは間違いなんだが。
とか言う奴が
> マッシュポテトはハンバーグの付け合わせだから元々作ることになっている。
とかどの口で言ってるんだよ w

配列への格納とオートフィルターが常に関係するわけじゃないのと同じでハンバーグとマッシュポテトは常に関係するわけじゃない
それぐらいは理解できるよね？

なお反論したいなら
> マッシュポテトはハンバーグの付け合わせだから元々作ることになっている。
が正しいと言う根拠持ってきてからにしてくれ
2018/12/18(火) 23:27:31.75ID:fQRWG6oh
> まだやるの？
たぶんこのスレ皆が君ら2人に対して同じことを思ってるよ。
これだけ思う存分、頭の悪さを見せ付けることができたんだからもう満足だろ？ まだ足りないの？
2018/12/18(火) 23:49:22.42ID:ncFc1flt
なぜ同じレベルに落ちてまで参入するかな
2018/12/19(水) 00:29:39.75ID:L6rD7CwA
しかもオートフィルタとか
244デフォルトの名無しさん
垢版 |
2018/12/19(水) 01:44:12.73ID:sYwMlaDi
すみません、先輩方教えて下さいIF 文がうまくいかず困っています。

For分のループの中で
　IF文の条件が一致したら　処理A、処理B、と20個くらい連続で複数実行したいのですが。

条件が一致しなくても処理Bからが動いてしまいます。

どのように記述すればよいのでしょうか。
EXCELの勉強サイトで質問をしても、条件１個くらいしか実施しないものしかなく困っております。
2018/12/19(水) 02:24:14.86ID:38k2t73z
For ...
　If 条件 Then
　　処理A
　　処理B
　　...
　End If
Next
ってことか？

Select Case かElseIf使えって話か？
2018/12/19(水) 02:27:25.69ID:esnyd6IN
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
247デフォルトの名無しさん
垢版 |
2018/12/19(水) 02:40:37.42ID:DnYaqc+Z
>>244
まず今のコード晒せよ
みんなエスパーじゃないんだから
2018/12/19(水) 06:44:44.72ID:sYwMlaDi
>>245さん
そのような処理が行いたいです。
>>246
cではそのような処理は可能でした。
ruby ではない、rubyが動く環境ではないので
2018/12/19(水) 07:34:58.43ID:BIch1OKH
コードがわからない限りどうしようもない
250デフォルトの名無しさん
垢版 |
2018/12/19(水) 08:02:19.27ID:+DSMRKxP
if文のthen で
処理複数行実行できますか？というだけのつもりでしたが。
コード準備してまた質問します。
ありがとうございました。
2018/12/19(水) 08:10:35.82ID:meuITI5l
>>240
???
例だと言ってるのにw
例を挙げたのは俺だから決めつけも糞もない。
日本語の問題なのか悔しくて冷静な判断もできないのか分からんが相変わらず頓珍漢な所に絡んでくるねw

ハンバーグを作るという要件に対して>>112はマッシュポテトを元々作るということになっていると思った。
それでじゃかりこにお湯を注げば1分という発言になった。

それをお前は頓珍漢と断ずるには、その発言の内容を理解しなければならない。
内容が全く分からなかったら頓珍漢かどうかも分からないからな。
そのお前の理解(ハンバーグが1分でできると解釈)が頓珍漢なんだろうが。

従って>>112が頓珍漢かどうかに関係なくお前が頓珍漢なのが確定なんだよ。
2018/12/19(水) 08:15:13.01ID:6uBXCGRB
>>250
ThenからEnd Ifまでは処理をいくつ書いてもすべて実行される
If 条件 Then
　処理1
　処理2
　処理3
End If
2018/12/19(水) 08:19:00.70ID:rGeO8V+1
>>251
> ハンバーグを作るという要件に対して>>112はマッシュポテトを元々作るということになっていると思った。
何度書いても頓珍漢なものは頓珍漢なままだよ

> なお反論したいなら
>> マッシュポテトはハンバーグの付け合わせだから元々作ることになっている。
> が正しいと言う根拠持ってきてからにしてくれ
に答えられないなら黙ってた方がいいぞ w
2018/12/19(水) 08:27:36.44ID:meuITI5l
>配列への格納とオートフィルターが常に関係するわけじゃないのと同じでハンバーグとマッシュポテトは常に関係するわけじゃない
それぐらいは理解できるよね？

常に関係しなくても全くかまわないんだよ。
普通の人間は相手が何かを言った時、それはどういう意味か理解しようとする。
理解しないと頓珍漢かどうかも分からないから当然のことだ。
常に関係するわけじゃなくても、>>112の頭の中ではハンバーグの付け合わせにマッシュポテトを考えたのだろうくらいは想像する。
そういう想像も全くせずに頓珍漢だというなら1分に言及することなく最初から頓珍漢だと言うだろう。

そこでお前はお前の理解の元に「じゃがりこにお湯を注いだくらいでハンバーグが1分で出来るの?」と発言したのと同じ状態になっている。
俺はそのお前の理解の元がおかしいのではないかと言っている
2018/12/19(水) 08:30:26.96ID:meuITI5l
>>253
頓珍漢であってもお前は「じゃがりこにお湯を注いだくらいでハンバーグが1分で出来るの?」と発言した状態になっている。

この発言が正しいのか?
2018/12/19(水) 12:22:13.52ID:wuMW/q40
なんでプログラム板住民は機械言語じゃなくて自然言語の言葉尻を捉えて追求したがるの？
2018/12/19(水) 12:31:57.08ID:rGeO8V+1
>>254
> 普通の人間は相手が何かを言った時、それはどういう意味か理解しようとする。
だから>>113で
> フィルタ掛けた結果を一気に配列に読み込むってできたっけ？
って確認してる
それに対して>>117みたいな頓珍漢なレスが来たんだが w

>>255はマジで意味不明だから無視するね
2018/12/19(水) 12:56:12.77ID:meuITI5l
>>257
相変わらずのバカっぷり。

お前の>>118で「(要件を満たすのに)VBAで1行で書けるぞ
って方法があるみたいなことを書いてるので聞いただけ」という発言に対して俺は「>>112の発言の1行とは(オートフィルタを掛けるのに)VBAで1行で書けるぞ」という意味なのでは?聞いたんだが。
2018/12/19(水) 17:12:30.63ID:rGeO8V+1
>>258
> (オートフィルタを掛けるのに)VBAで1行で書けるぞ
だからその回答になんの意味があるんだよ？
って何度も書いてあるんだが
意味があるというならその意味を書いてみなよ
2018/12/19(水) 17:42:15.83ID:kLNFuq6V
相変わらず何の臆面もてらいもなくRubyを持ち出すヴァカ w
2018/12/19(水) 18:26:58.94ID:meuITI5l
>>259
意味が有ろうが無かろうがお前の解釈が間違いだと言ってる。

意味が無かったらお前の間違いは無くなるのか?
無くならねえよ。
2018/12/19(水) 18:39:33.72ID:meuITI5l
元々のやり取りは以下の通り。

>>112「VBAで1行で書けるぞ」
>>113(お前)「フィルタ掛けた結果を一気に配列に読み込むってできたっけ？」
>>119(俺)「1行とはフィルタ掛ける部分のことを言ってるんじゃない?」
>>118(お前)「要件とは違うフィルタだけのことを言われても」
>>123(俺)「そうだけど、>>112で言ってる1行はフィルタだけと受け取る方が自然」
>>124(お前)「ガイジなのかな?」

どっちがガイジだよ
2018/12/19(水) 18:41:10.55ID:GtWYIo2s
vbaでcsv出力するとしたら色々やり方あるけど何が良いんだろう
fso?
2018/12/19(水) 19:02:08.13ID:rGeO8V+1
>>261
> 意味が有ろうが無かろうがお前の解釈が間違いだと言ってる。
> 意味が無かったらお前の間違いは無くなるのか?
> 無くならねえよ。
根拠出さないと何度繰り返してもそれこそ「意味ないぞ」w

>>262
誰も自然かどうかなんて聞いてないからな
ガイジかもしれないと思うのは当たり前のこと
265デフォルトの名無しさん
垢版 |
2018/12/19(水) 20:15:44.96ID:As82n4u7
>>262
くだらない言い争いの元ってこれなのか？
：で区切れば1行で書けるだろ。

お前ら馬鹿か？
2018/12/19(水) 21:21:27.33ID:38k2t73z
>>250
Thenのあとに続けて同じ行に命令書いてないか？
Thenで改行したら、End If（かElse）まで条件判定で実行されるぞ
2018/12/19(水) 22:17:38.71ID:uZ99WTE6
>>266
あれは確かに糞仕様といっていいね
2018/12/19(水) 22:22:43.60ID:meuITI5l
>>264
根拠は何度も出している。
日本語が不自由なお前が理解出来て無いだけ。

そりゃお前は自然かどうかは聞いてないさ。
お前が聞いたこと以外を言うとガイジになるなら皆がガイジはお前と言うだろう。
2018/12/19(水) 22:34:20.70ID:Ra+okmqw
シートは回転できないでしょうか?
マリオカートの地面みたいな感じで。
2018/12/19(水) 23:00:26.30ID:6uBXCGRB
>>269
Excel単独ではできない
271デフォルトの名無しさん
垢版 |
2018/12/19(水) 23:22:19.99ID:DnYaqc+Z
カメラ機能で貼り付けて回転させればワンチャン
2018/12/19(水) 23:48:46.06ID:v1yTSLob
>>263
outputもあるよ
273デフォルトの名無しさん
垢版 |
2018/12/20(木) 00:16:14.50ID:JEb4hZ4L
バカとバカの死闘もう決着ついたんか？バカ勝った？
2018/12/20(木) 06:48:12.04ID:As7dWUw1
>>268
> 根拠は何度も出している。
> 日本語が不自由なお前が理解出来て無いだけ。
ん？
２通りの解釈ガーってやつのこと？
どう解釈しても頓珍漢なことに変わりないと何度も書いてるし、そもそもその２通りの解釈すら具体的に提示されてない

> そりゃお前は自然かどうかは聞いてないさ。
> お前が聞いたこと以外を言うとガイジになるなら皆がガイジはお前と言うだろう。
会話の中でいきなり聞いてもないことを喋りだす？
お前がコミュ障であることはわかったよ w
2018/12/20(木) 08:04:34.66ID:5qyubQfm
>>274
どうしょうも無いバカ。
頓珍漢でもお前は間違いと言ってるだろ。
その根拠も既に何度も書いてる。
2通りの解釈も何度も書いてる。

オ―トフィルタを掛ける処理のみを1行と解釈するのと要件全てを満たす処理に1行と解釈するのの2通りだ。

日本語か通じないバカ。
>>119、>>123、>>146、>>148、>>156、>>180、
2018/12/20(木) 08:05:15.91ID:5qyubQfm
>>189、>>205、>>215、>>221、>>258で提示してるわ。

アンカー多すぎて怒られる程提示してる。
2018/12/20(木) 08:11:10.39ID:5qyubQfm
>>274
会話のやり取りとして関係有るなら聞かれたこと以外を話すのは全くおかしくない。
少なくとも>>118と>>123のやり取りをおかしいというならガイジはお前だろう。
2018/12/20(木) 08:32:01.59ID:As7dWUw1
>>275-277
> オ―トフィルタを掛ける処理のみを1行と解釈
要件を満たさない頓珍漢な回答

> 要件全てを満たす処理に1行と解釈
それかと確認したらより頓珍漢な>>117がしゃしゃり出てきた w

いずれにせよ質問者の要件満たしてないクズ解釈

> 日本語か通じないバカ。
お・ま・え だよ

> 会話のやり取りとして関係有るなら聞かれたこと以外を話すのは全くおかしくない。
お前はあえて無視してるみたいだけど>>113で関係性を問うてるからその解釈は無理がある
2018/12/20(木) 09:21:52.23ID:5qyubQfm
まだ分かってないのかよ。
お前が>>112が頓珍漢かどうかを判定するところでお前はもう間違っている。
ということはお前は>>112が頓珍漢かどうかも判定出来ていないということだ。
だから結果的に>>112が頓珍漢だったとしてもお前も頓珍漢なんだよ。

お前は間違った判断の元に>>112を頓珍漢と言ってる。

>普通に一気に配列に読み込んで空白行を詰める処理を入れればいいかと

に対して「空白行を詰める処理を入れれば」の文言を理解出来ずに、配列に空白行が残るなとどしてお前の案を頓珍漢と断じることに問題は無いのか?
文言を理解出来ない方が頓珍漢だろう。

これと同じでお前の>>112を頓珍漢だとする根拠が間違ってる。
280デフォルトの名無しさん
垢版 |
2018/12/20(木) 09:43:04.50ID:uzBoRH9c
https://youtu.be/HjJjqSjTJwY

この人の頭いい自慢、笑いがとまらない(ﾜﾗ
自画自賛のみの動画。
自分が恥ずかしくならないのか？
たぶん恥ずかしい動画と気づいたらすぐ消すだろうが今はそれに気づいていない。

とにかく笑えます。
2018/12/20(木) 12:23:32.88ID:As7dWUw1
>>279
> お前が>>112が頓珍漢かどうかを判定するところでお前はもう間違っている。
根拠のない妄想乙

> ということはお前は>>112が頓珍漢かどうかも判定出来ていないということだ。
妄想に基づく頓珍漢な解釈乙

> だから結果的に>>112が頓珍漢だったとしてもお前も頓珍漢なんだよ。
もう論理も何もない幼児が喚いてるレベル

> お前は間違った判断の元に>>112を頓珍漢と言ってる。
それ、お・ま・え

> に対して「空白行を詰める処理を入れれば」の文言を理解出来ずに、配列に空白行が残るなとどしてお前の案を頓珍漢と断じることに問題は無いのか?
バカなの？
書いてあって理解できないことと、書いてもないことは全然違う話
そんな理解力もないから
> これと同じでお前の>>112を頓珍漢だとする根拠が間違ってる。
なんて頓珍漢な結論で玉砕するんだよ w
2018/12/20(木) 12:50:33.53ID:5qyubQfm
>>281
根拠は既に何度も書いているのに理解出来ないバカ。
反論出来ないからもうそれでやり過ごそうとする意図がミエミエ。
もうお前の根拠無いは通じない。
根拠はあると言ってるし、場所も言っている。
その根拠がおかしいというならわかるが無いじゃ話にならん。

ところで全く笑わせてくれるが、お前の発言こそ全部ブーメランだ。

>それ、お・ま・え
プッ。
俺は>>112を頓珍漢だなんて断じて無いんだが。
日本語ワカリマスカ?

全然違う話ではない。
間違った判断の元に相手を断じれば、結果的に頓珍漢でも頓珍漢でなくても間違いだ。
書いてある、書いてないは関係ない。
この例は、お前の主張通りだと断じる側が頓珍漢で間違った判断をすれば断じられる側が頓珍漢になってしまうのか?という例だ。

2通りの解釈ができなかったお前が>>112を頓珍漢と断じてもダメということだ。
283デフォルトの名無しさん
垢版 |
2018/12/20(木) 16:14:40.53ID:bktnWAv8
馬鹿の馬鹿による馬鹿同士の罵り合い
2018/12/20(木) 17:25:31.33ID:g4q3VPrO
これ何日連続でやってんの？
2018/12/20(木) 17:43:06.63ID:XT76bUiU
>>112からなら10日間かな。
>>112は（このレスを含まないで）コメント数44件になっているw
286デフォルトの名無しさん
垢版 |
2018/12/20(木) 17:56:31.30ID:2i7dcD7b
（このレスを含まないで）のアスペ感w
2018/12/20(木) 18:37:50.96ID:As7dWUw1
>>282
> 2通りの解釈ができなかったお前が
まだ言ってるの？
お前はわざと無視してるけどそんな可能性は>>113で確認してる
>>112が回答すれば良かったものをガイジの>>117がしゃしゃり出てきて頓珍漢なレスしただけだろ w
2018/12/20(木) 18:42:03.57ID:dp1AZAWh
>>284
このスレをこれで埋め尽くすまでじゃね？ w
289デフォルトの名無しさん
垢版 |
2018/12/20(木) 20:10:52.84ID:2i7dcD7b
>>288
もう相当飽きとるでおまえみたいなバカがおもろいんは一時的なもんやし
290デフォルトの名無しさん
垢版 |
2018/12/20(木) 22:31:27.95ID:/FsMMWOI
VBAエンジニアって宣言するのって恥ずかしいことなのかな？
ツイッターのWEB屋達からは苦笑されるし、現場でもVBAは簡単的な扱いで
あまりいい意味で捉えられないように感じる

経歴的にVBA触ってた時間が長いし、
Windows と相性良いし、
VBAなんで叩かれてるんだろう？
291デフォルトの名無しさん
垢版 |
2018/12/20(木) 22:38:23.73ID:2i7dcD7b
webパーはバカやからおいとくとしても
VBAエンジニアとゆうてもうたら言語としてのVBAをメンテナンスしとるエンジニアと思われるやろ
そこはただのエンジニアでええねん開発言語として主にVBAつことるゆうだけで

てかVBA叩いとるのこのスレにおるプロさんゆうバカな連中だけやぞw
2018/12/20(木) 23:05:37.29ID:rQxzM92i
ロックマン作れるレベルなら、バカにされないんじゃないの?
2018/12/20(木) 23:13:35.65ID:7HwS24Ld
>>290
恥ずかしいんじゃなくて、根本的に間違ってるんだよ

アプリの開発にはVBAは適してないし、普通は使わない
ちょっとでも複雑なことをしようとするとAPIが必須になるし、ツールも貧弱で開発の効率が悪いから
そして、ワークシートに付属のマクロを書くだけの人はエンジニアと呼べるレベルにないことが多い

まあVBAで作られた社内アプリもあちこちで見た事あるけど、とにかく結果さえ出ればいいって感じでひどいもんだった
体裁の整ったアプリも作れないことはないけど、それこそVBAでは無駄に手間がかかるだけで、ようするに言語(道具)の選び方が適切じゃない
2018/12/20(木) 23:17:37.85ID:7HwS24Ld
>>292
趣味ならいいけど一般的に商品はVBAで作るわけにいかない
同じ物がVB.netならもっと少ない手間で作れるんだから、開発コストの無駄遣いになる
2018/12/20(木) 23:19:19.18ID:7HwS24Ld
「趣味でシステムエンジニアやってます」というのは成立しないと思うのは俺だけか？
趣味の一つとして認知されてるんなら、ここまで俺が書いたことは完全にひっくり返ってしまう
2018/12/20(木) 23:22:10.52ID:7HwS24Ld
別に国家資格が必要なわけじゃないから「俺は(VBA)エンジニアだ」と名乗るのは自由
聞いた人がどう思うか、どう思われるかはわからない
2018/12/21(金) 00:33:22.33ID:ykBrDntQ
>>290

　VBAは、あくまでOffice付属のマクロ言語なので、そこに何十年(最大24年)もしがみついてるとかだと、
自己紹介でそうと言われたら、叩くまではないにしても、「はぁ」で流しはするかも知れない。
　他の色々出来る中で、「VBAも触れます」なら、構えられることもないんじゃないかな。
2018/12/21(金) 00:45:40.95ID:t4pJ79vS
情報処理資格を受かった学生が「こんなの誰でも受かりますよ」って言うけど、
10年以上受からない奴は「いや、そんな簡単じゃないよ」って答える

会社では、新人・老害の会話が噛み合わないw
そういう老害が新人に教えるから、矛盾だらけw

勉強していない奴は、システムを組めない。
何も知らんからw

データ処理に適さない、表示情報が入った、Excel, PDF を成仏させる供養寺を、
住職(エンジニア)が開催してるw
2018/12/21(金) 01:07:43.82ID:KP9XHOoX
普通にプロとしてやってる人なら、言語仕様とライブラリ構成さえわかれば、どんな言語でも一定の結果は出せるもんだ
VBAだって言語の一つとして、文法や演算子、変数タイプ、組み込み関数なんかが把握できればプログラムは書けて当たり前なんだよ
2018/12/21(金) 02:33:59.15ID:j+w4FFhE
>>287
バ−カ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行"の場合、戻り値は"頓珍漢"とならない。
2018/12/21(金) 03:18:22.04ID:KP9XHOoX
空白を取り除いて配列に入れるのって、結局どうやるのが一番シンプル？
マルチステートメントはとりあえず無しとして、作業シートを使って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")
2018/12/21(金) 05:00:28.02ID:PkTs+Gix
>>300
夜中まで必死に考えたんだろうな… w
2018/12/21(金) 07:57:42.03ID:zXpLrdoZ
>>290
他の言語と比べて微妙だから
vbaでも出来るけど他の言語ならもっと楽　なんで使わないの言語使えないの？て思考する人が一定数いるから
2018/12/21(金) 08:20:20.78ID:j+w4FFhE
>>302
普段から寝るのはあんなもんだ。

>>301
実際のところ、俺も「普通に一気に配列に読み込んで空白行を詰める処理を入れればいいかと」だね。

でも、データ総数300とかじゃどんなやり方でも良いし、気にしない。
効率を気にするなどと言っていても、実際は他で大きなロスしてても気にしない奴多数。
動かした所で大きなロスをしてる所がデータ読み込み部分と分かってから考えれば良い。
俺は一気に配列に読み込むのに慣れてるし、それで早いからそうするのが普通なだけで。

そもそもこういう場合でよくよくやりたいことの詳細を聞くと配列に取り込む必要が無かったりする場合も多い。
2018/12/21(金) 08:22:45.52ID:j+w4FFhE
>>301
あと、コードの量を減らすのはあまり意味が無い。
速度のためにコードの量はかなり増えることがある。
2018/12/21(金) 08:32:12.60ID:choQhZIj
誰でも知ってるようなことでドヤ顔ww
2018/12/21(金) 15:58:03.36ID:HaYV4Ucy
突っ込みが幼稚
2018/12/21(金) 20:47:54.84ID:GEdmC2dK
VBとVBAを間違えてるやつがいるよな
2018/12/21(金) 22:54:11.09ID:PkTs+Gix
>>307
>>307
2018/12/22(土) 04:42:53.90ID:LntJy5xX
アンカーを重ねて煽るのは幼稚
2018/12/22(土) 06:45:30.74ID:FmWZGIo3
>>310
>>307
2018/12/22(土) 21:23:35.57ID:P36khfsB
アンカーだけで煽った気になるのは幼稚
2018/12/23(日) 00:54:04.25ID:9AXglOVX
>>312
>>307
2018/12/23(日) 09:47:19.69ID:qHW9w8NX
>>313-314
>>312
2018/12/23(日) 10:45:49.13ID:lGbB3Xz8
>>314
>>307
316デフォルトの名無しさん
垢版 |
2018/12/23(日) 14:14:36.79ID:52OagQlj
バカvsバカはまだ静かに継続中かw
2018/12/23(日) 15:09:00.33ID:O7Ty6bBB
listviewでマルチセレクトから通常にもどすさいに再描画してるんですが、そのさい行がずれるんですが　listboxのtopindexみたいなものはないのでしょうか?　どうすればずれないようにできますか？
2018/12/23(日) 19:45:55.65ID:M7vXJwnP
チェックボックス有効無効をきりかえるため再描画してます。その際行がずれます。　すみませんでした。
2018/12/24(月) 22:13:09.28ID:USpopZY5
Excel VBAにlistviewなんてあったか？
2018/12/24(月) 22:49:04.51ID:+FgUdfMA
あるよぉ
2018/12/24(月) 23:02:54.97ID:kr6Bf1Pl
参照設定でね。
2018/12/24(月) 23:56:46.20ID:USpopZY5
それはVBAじゃないし
何を参照設定したかちゃんと書けよ
2018/12/25(火) 00:16:00.70ID:su/K5Fi6
参照設定もVBAの機能の一つだろ
デフォルトでもいくつか入ってるし、ファイル操作する時はFSOを追加するし、Outlookの操作も定番のテクニックだし
2018/12/25(火) 01:26:51.15ID:fCRLWXqM
ListViewはライセンス的に微妙なんだよな。
配る場合はダメだった気がする。

恐ろしく面倒な方法で実装すればライセンス的にも問題無いけどそこまでやれる人は殆どいないと思う。
2018/12/25(火) 01:55:29.77ID:fCRLWXqM
あとツールボックス右クリックでその他のコントロールを参照設定とは呼びたくないな。
2018/12/25(火) 07:15:44.70ID:wRBkGyE7
>>325
設置すると勝手に参照設定されますから、同じことです
2018/12/25(火) 08:33:21.08ID:gnAfBdjP
お前が呼びたいとか呼びたくないとか、お前の気分なんぞ知ったことではない
2018/12/25(火) 18:45:28.39ID:Is6QTt21
Excel に入ってるんじゃないの？
329デフォルトの名無しさん
垢版 |
2018/12/25(火) 23:18:20.70ID:wH59ARy4
入っとるね
2018/12/26(水) 01:42:12.21ID:BN5rbpb6
いまのExcel VBAに標準でListViewあるのか？
2018/12/26(水) 05:15:51.11ID:43KasKaO
標準の意味とは

VBA可の環境ならコントロールの追加は誰でもできるが
2018/12/26(水) 13:12:31.75ID:RgV9orAX
シートのコピーでafter:＝worksheets.countしても最後尾に追加されないことがあるんだけど何これ
通常なら問題無い 非表示シートだか同名シートだかが混ざると不穏な動きする
2018/12/26(水) 17:11:11.31ID:43KasKaO
>>332
思い込みで書いててて仕様を正確に理解してない
コード晒してみ
2018/12/26(水) 17:49:40.48ID:Le9KM/M7
>>332
afterに入れるのはシートオブジェクトやで？
2018/12/26(水) 21:16:35.59ID:Y8+MwfS4
>>332
https://sugoikaizen.com/excelvba/worksheets_sheets/
2018/12/27(木) 18:50:28.99ID:0mQlyYIj
Worksheets.Countだけ指定して最後尾にシート追加することもできるんだな。初めて知ったわ。
2018/12/28(金) 00:28:35.21ID:M7adF/cl
>>333
解決してるけど状況だけ説明
Thisworkbook.Worksheets("雛形").Copy After:=Thisworkbook.Worksheets(Worksheets.Count)
普通に実行出来て追加される　けど末尾に追加されない
雛形シートは非表示で他にブック開いてないのが前提
原因は他の非表示シートが末尾にあったから？ぽい見えるシートの末尾に追加されてた
原因があってるのかは不明だけどコピーの前に全シート表示させる処理書いたら想定どおりに末尾に追加されたから解決としてそれ以上調べてない
2018/12/28(金) 08:07:29.84ID:7PkHI2ZE
>>337
これで解決は酷いなあ。
このコードじゃダメだろ。
初心者が一番ハマるのに引っ掛かってる。

Worksheets.Countはどのブックのシート数を示してるの?
人間の思い込みと現実が違うことはよくある。
ブックが複数開いてたらThisworkbookがActiveとは限らない。

まあ、これが原因かどうかは分からんけど。
2018/12/31(月) 13:34:36.98ID:P9+LicCn
コピーしたシートも非表示に設定されてるからじゃね？
2019/01/03(木) 20:12:26.04ID:m9d94GZ9
すみません、一般論として教えてください

一つのプロージャ内に複数のForNext文を使う場合
カウンタ変数はそれぞれ用意したほうがいいんでしょうか？
それとも全部「i」とかで固定したほうがいいんでしょうか？
2019/01/03(木) 20:38:50.80ID:rHu6ErP8
単純にカウンタとしてしか意味が無くて充分に短いループなら全部iでいいよ
2019/01/03(木) 20:52:55.74ID:m9d94GZ9
>>341
ありがとう
これまで全部「i」で統一してて他で使いたいときは違う変数に明け渡したり…ってしてたんだけど
この前業者の人が書いたコードを見たらそれぞれに変数を与えてたので…
デバッグの時に有利？とか何かプログラム業界の常識みたいなのがあるのかな？と気になって
343デフォルトの名無しさん
垢版 |
2019/01/03(木) 21:24:04.00ID:3ahyrkeA
>>342
自分の頭使えよ
2019/01/03(木) 21:38:30.48ID:BKcPgeWW
>>342
他で使いたいときに明け渡すなら最初からそれぞれ違う名前にした方がいいんじゃね
2019/01/03(木) 22:08:38.04ID:/hb1raIC
>>343
ここ質問スレだからそういう幼稚な発言はやめようね。
色んなレベルの人がいるから。
2019/01/03(木) 22:16:13.64ID:rzUuzEne
>>340
そもそもプロは1つのメソッドに複数のループを書かない
2019/01/03(木) 22:45:11.18ID:9E4VKJOH
>>340
「プロシージャ」な
procedure
348デフォルトの名無しさん
垢版 |
2019/01/03(木) 22:57:49.15ID:YFBXiFl7
>>342
ループがネストする場合にi,j,kとしたりするのは
FORTRAN由来でコンピュータ黎明期からある
https://qiita.com/yaju/items/38f63900491d4ac51af7
座標だとx,yとかで回したりもするがあまり長い名前は使わない方が良いかと
2019/01/03(木) 23:18:24.27ID:rHu6ErP8
i,j,kは慣習だけど、それ以外はループ変数といえど意味のある変数名を使うほうがいいぞ
長い名前使うなとか、インタプリタ時代の悪習でしかない

いかにわかりやすい変数名つけるかはセンスもあるけどな
2019/01/03(木) 23:56:28.99ID:2qiD+7+U
俺は行ならrow、列ならcolumn、インデックスならindexとかにして
なるべくi, j, kとか使わないわ、別にこだわりはないけど
351デフォルトの名無しさん
垢版 |
2019/01/04(金) 00:30:47.29ID:3QLIqJfD
俺は一文字だけじゃ見失うから
iii jjj kkk ccc rrrって3文字連打してる
別の変数名への置換もしやすいしね
2019/01/04(金) 00:32:01.54ID:GFUZolCB
みなさんどうもありがとう
自分はプログラム屋ではないので業界の常識？みたいなものがあれば知りたくて

今までは使うなら「i」、構造的にかぶるなら「j」あたりを使ってましたが
その都度意味のある変数を使う方が多いんでしょうか
その他の変数も基本一文字が多いんですけどこれもあまり誉められたことでは無いのかな
353デフォルトの名無しさん
垢版 |
2019/01/04(金) 00:39:25.54ID:T+XMZC4N
>>352
馬鹿は頭を使うことができんの？
2019/01/04(金) 02:10:11.62ID:+nkelZ7z
>>350
そんな予約語っぽいの、使いたくない。
2019/01/04(金) 02:40:32.55ID:MgMPlhfY
俺は row col idx i i2 i3 をよく使う
2019/01/04(金) 07:27:59.80ID:M3G9sl2d
シート上の特定Rangeを表してるときならrowとcolumnもありだけど、一般にはiとjかな
それ自体が検索対象になることもまずないし
2019/01/04(金) 08:41:36.91ID:zy8oD3uq
ローカルのカウンタ変数をiで使いまわしてるけどi2とか分けたほうが良いの？
好み？
2019/01/04(金) 09:27:17.18ID:+4+fWqKR
>>357
誤読の可能性があるなら、分けた方がいいと思う。

>>349,350あたりが妥当じゃないかな。ただ、例えば行そのものでは
なく行を導出するための数値を入れる変数には、rowじゃなくてrowナントカ
だのにした方がいいのかな。単なるループカウンタならヘタに意味のある
名前を付けない方が「無意味なカウンタ変数です」ということを示すことが
できる気も。自分はループカウンタはとりあえず一文字二文字の変数を
放り込んでそのまま、ということが多い（簡単な処理しか書いたことない）。
359デフォルトの名無しさん
垢版 |
2019/01/04(金) 09:54:15.33ID:DCvNugNP
個人目的ならそれこそ自由、自分が解りやすければなんでもいい
社内使用で他の人が今後も手を加える可能性があるなら
可読性と一般的な用途を考えてijk辺りがよいと思う
2019/01/04(金) 10:05:37.21ID:NtMlYI+L
カウンタ変数の1つや2つぐらいケチらず定義しろよ
それこそ先頭で
Dim i1 As Integer , i2 As integer,,, とかやっとけばいいだろ。
こう書くとIntegerよりLongだとか言い出すやつも出てくるけど w
2019/01/04(金) 11:53:23.85ID:aVQoc2JA
>>359
３ヶ月後の自分は他人

>>360
おれならそう書いてあったら、i1とi2になにかしら特別な意図があるのかと思う
それならちゃんと分かりやすい変数名をつけるべき
362デフォルトの名無しさん
垢版 |
2019/01/04(金) 12:16:24.95ID:YvLbWmko
べきとかええねん
好きなようにしろや
2019/01/04(金) 12:17:38.62ID:M3G9sl2d
integer使う意味が分からんぞ
ループカウンタに限らず
2019/01/04(金) 12:55:43.45ID:aVQoc2JA
VBAは16ビットの時代から生き残ってるからなぁ
2019/01/04(金) 14:22:56.70ID:dyujBTAs
C++試食版みたいな
2019/01/04(金) 15:06:28.56ID:FLK7qEcT
文字コードでInteger使うよ
2019/01/04(金) 17:11:54.33ID:JnujQIz6
個人プログラムのときは Jは大文字にしてる
ijだとぱっと見差がないから
それから、行と列はc、r変数にしてる
2019/01/04(金) 18:43:57.47ID:ry6hJENG
>>367
列・行では？
2019/01/04(金) 22:12:41.23ID:ZmFghfmj
officeのパッチにやられた
2019/01/04(金) 22:26:40.57ID:zvNc5eXN
i,j,kきらい
indexとかcountとかすき
rowIndexとかcolumnCountとかもっとすき
2019/01/04(金) 22:35:43.15ID:8kQ9PR43
好き嫌いはチラシの裏に
2019/01/05(土) 01:06:17.29ID:oO8mkqZ6
何が書いてあるのか、未来の自分がわかり、他人もわかるのが理想
昔ながらのルール(慣習)は理由なく破るべきではない
2019/01/05(土) 03:31:35.86ID:7TsgmPMW
意味のある変数なら意味のある名前をつけてくれよ
2019/01/05(土) 07:37:32.77ID:1YbtJ0wD
i j kは使い捨てのループカウンターとして世界中に広く認知されてるし入力のコストも低い
いちいち For TemporaryLoopCounter = 1 To 5 とか書きたい人は自由にすればいいけど、それこそ自己満足の世界だと思う
2019/01/05(土) 08:45:01.70ID:ORiRzU3d
長く使うプログラムほど扱う対象が汎用的で、変数が具体的に何を指すとか
限定できないため i, j, k になりがち。
逆に具体的対象を扱うプログラムだと変数名も具体的にした方が良いだろうが
汎用的に長く使うものではない。
何が言いたいかというと別に何でもありません。
2019/01/05(土) 09:11:07.61ID:xejHmutN
かなり乱暴だが
> 変数名の長さはスコープの広さに比例させるべし
2019/01/05(土) 09:12:48.40ID:tCoREms1
>>376に同意
一般論でいうと、メンテナンス性に優れたプログラムを書くには次の点を意識するとよい
・変数の生存範囲はできるだけ狭く
・変数の生存期間はできるだけ短く
で、これを意識したプログラムの変数名は自然に短くなる
極論すれば、サブルーチンが適切に分割されていてサブルーチン名だけで何やってるか明らかなら、
その中の一時変数名なんか全部一文字でもいい
2019/01/05(土) 14:06:52.83ID:eDAGI3vR
そもそもループ回すのにループカウンタ使うのが時代遅れ
for each使え
2019/01/05(土) 14:09:46.21ID:tCoREms1
時代遅れとか言い出したらVBA自体が使えなくなる
ナンセンス
2019/01/05(土) 14:28:05.44ID:c7wm3fbX
For Each とループカウンタ使うのとどちらも一長一短あるのを知らない人は早く初心者を脱出してね。
2019/01/05(土) 15:07:14.98ID:ORiRzU3d
一長一短ていうか For Each はワンパターンな使い方しか出来ないからドヤ顔するようなもんじゃないな
2019/01/05(土) 15:49:59.34ID:xejHmutN
>>378
配列Aと配列Bの要素同士を足して配列Cに入れる
って言うのを
For a, b, c in A, B, C
c = a + b
Next
みたいに書けるならいいんだけどなぁ
2019/01/05(土) 16:01:26.52ID:oO8mkqZ6
C = A + B
って書けた方がいいな
2019/01/05(土) 16:09:26.86ID:ORiRzU3d
>>382
・そういう構文がない
・c に代入することが実はできない
の二つの意味でダメなんだよね
2019/01/05(土) 16:17:56.11ID:xejHmutN
>>383
それ自由度が低い
For a, b, c in A, B, C
If b <> 0 Then c = a / b Else c = 0
Next
みたいなことを書きたくなるとかありそうだし
2019/01/05(土) 16:57:08.01ID:BR5BglFG
linq for vba
2019/01/05(土) 20:12:44.53ID:FzRtN9wJ
>>376
しかしvbaにはプロシジャより狭いスコープがないんだよ
2019/01/05(土) 20:30:12.97ID:xejHmutN
>>387
だから何？
最近のモダンな言語と比べてもブロックスコープが無いくらいじゃないの？
2019/01/05(土) 20:53:20.75ID:tCoREms1
>>387
まともなプログラマならブロックスコープが欲しくなるような大きなプロシージャは書きません
2019/01/05(土) 20:57:58.68ID:FzRtN9wJ
実際使い捨てならそれで問題になる事はないんだが
使い捨てのループ変数がループ内でスコープが閉じないのがなぁ
あと宣言位置の問題もあるけど
2019/01/06(日) 01:37:57.50ID:ckNCIF8F
わかる方がいれば教えてください
ユーザーフォームに配置したラベルに、選択中のセルの値を表示したいです
他のセルをアクティブにしたらラベルの内容も次々と変わるようなものを作りたいです

初心者なりに考えたのですが、
セルの選択をダブルクリックにしてシートモジュールの
Private Sub Worksheet_BeforeDoubleClick(〜)
みたいなものを使うパターン、
ユーザーフォーム側にアクティブセルの値を表示するためのボタンをつけるパターン、
それくらいしかラベルに表示する方法が思いつきません
思っていた上に書いたような動きのものが作れません
そもそもそんなものは不可能でしょうか
セルをアクティブにするだけでそんな動きをするものは作れたとしても重くて(？)実用的じゃないでしょうか
2019/01/06(日) 01:43:01.14ID:ckNCIF8F
ユーザーフォームが出ている時だけワークシートイベントを発生させることってできますか？
2019/01/06(日) 01:56:18.52ID:wuHdfDnO
>>391
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UserForm1.Label1.Caption = ActiveCell.Value
End Sub
2019/01/06(日) 02:17:03.95ID:GQx3m9rS
>>392
発想が根本的に間違っている
イベントは自然に発生するものであり、それを制御しようなどと考えてはいけない
ユーザーフォームが出ていないときはイベントを無視すればよい
2019/01/06(日) 06:33:59.75ID:VjyciGNt
自分もVBA初心者だけど書いてみます

>>392
既に言われてるけど、
イベントの発生は操作できないから受け取り側でフォームが読み込まれてるか調べて、
実行するか選択する形になる

思いつく方法は、
・フォームが一つしかないなら、UserFormsコレクション（読み込まれたフォームの一覧）の要素数が1以上かを調べる
・UserFormsコレクションに該当のフォーム名（typename関数で取得できる）があるか調べる
・印になるパブリック変数を宣言し、フォームのInitializeイベント（読み込まれた時に発生するイベント）で適当な値を代入させ、その値を調べる。

もしくはWithEvents（これを付けて宣言した変数のイベントを受け取れる）でシートのイベントを受け取るクラスモジュールを用意して、
それにフォームのラベルを操作させる方法もある
余程シートに依存した目的でない限り、個人的にはこちらの方が自然だと思う
396デフォルトの名無しさん
垢版 |
2019/01/06(日) 11:55:51.09ID:RBr8Qah/
Excel2010の人は1月3日版のアプデを入れないように

【Win】 WindowsUpdateで入れなくても良いKBリスト。2018年12月12日まで分
http://blog.livedoor.jp/nichepcgamer/archives/1039785182.html
397デフォルトの名無しさん
垢版 |
2019/01/06(日) 13:03:05.58ID:BkO4LwOx
>>395
こんな初心者おる？
398391-392
垢版 |
2019/01/06(日) 13:13:13.46ID:ckNCIF8F
>>395さんが言ってることが全く分からないというか一度も触れた事がないので
これを機会に勉強してみます
謎のクラスモジュールを使ってみたいと思っていたので良かったです
みなさんありがとうございました
2019/01/06(日) 13:25:33.73ID:kaEteaA+
>>397
ググれば出てくることなんだから、初心者でも答えれるやろ。
まあ人によっては初心者は卒業したって判断しそうなくらいのレベルはありそうだが。
2019/01/06(日) 14:02:55.44ID:L4UGmOY3
>>397
新人研修の半ばぐらいかな
2019/01/06(日) 15:46:11.59ID:BcE7MgiE
>>398
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
2019/01/07(月) 02:40:02.74ID:pgy1rNuG
>>397
プログラミング経験無いまま前任者から引き継いでしまったので、ここで色々教えて貰ってました
最近は調べ方も大体わかってきたので余り来ていませんでしたが、
アドバイス側に回ってもいいかなと思って書いてみました

>>398
分からないのはどの部分でしょうか
後半は>>401さんの通りです

>>401
ヘルプにクラスのみと書かれていたので、フォームでは使えないと思ってました・・・
403デフォルトの名無しさん
垢版 |
2019/01/07(月) 05:30:38.59ID:fq4DjYiu
IntegerよりLongだ
404デフォルトの名無しさん
垢版 |
2019/01/07(月) 06:49:25.01ID:fq4DjYiu
>>360
2019/01/07(月) 18:19:40.41ID:/LhWJ7aL
Dim tinko as Long
2019/01/07(月) 21:52:39.53ID:QrgUIT/b
俺しか見ることないだろうから、
Dim chinko&, unko$
2019/01/07(月) 22:53:42.33ID:pgy1rNuG
中学生か・・・
2019/01/07(月) 23:07:15.99ID:93Abj8CI
セルにindirectを入力しないでプルダウンを連動させる方法はありませんか？

名前”地区”　第一　第二　第三
名前”第一”　製造　塗装　
名前”第二”　プレス　溶接
名前”第三”　組立　検査

J列にプルダウン”地区”第一　第二　第三
K列が隣のJ列を参照してプルダウン（indirect)が変わるようにしたいのですが、
K列に=indirectを入力するとファイルサイズが大きくなるので避けたいのです。
何か良い方法はありませんか？

https://dotup.org/uploda/dotup.org1740935.zip.html
入力用のブックとupローダーに挙げた台帳ブックを分けた方がいいのは
確かなんですが、要求元は台帳で連動するプルダウンを使いたいとのことで
困っています。ご指導ご鞭撻のほどお願い申し上げます。
409デフォルトの名無しさん
垢版 |
2019/01/09(水) 10:11:24.83ID:pekX2UBC
新元号対応の更新プログラムで早速バグ発生かよwww
2019/01/09(水) 16:10:15.28ID:HhjCvbTy
新元号対応パッチは4月1日以降にしか出せないだろ
それに今はOffice単体じゃなくてWindows側の日付管理APIで一括対応する仕組みになってるし
411デフォルトの名無しさん
垢版 |
2019/01/09(水) 16:50:06.39ID:pp8qimk1
新元号アップデートでExcel 2010が起動しない不具合、Microsoftが削除を呼び掛け
https://internet.watch.impress.co.jp/docs/yajiuma/1160935.html
412デフォルトの名無しさん
垢版 |
2019/01/09(水) 17:45:40.84ID:Ybhx7jcq
ただちに影響、出てるじゃん、何が立憲民主党だ、ホラ吹きの枝野！

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
413デフォルトの名無しさん
垢版 |
2019/01/09(水) 18:41:39.05ID:B8oaeAR+
「ぼくが政権にいる間は影響無いことにしておきます」(のんのん)
2019/01/09(水) 22:29:26.70ID:60CROlND
安倍の犬うぜー
2019/01/10(木) 00:17:06.97ID:RQUJx46Y
ＶＢＡのフォームのツールボックスにコントロールを追加したいのですが、右クリックで「その他のコントロール」を追加してもコントロールの追加ダイアログが表示されず無反応のまま終わってしまいます。
ＷＩＮ７（64）　OFFICEは2010（32） 2013（32） 2016（32）を入れ替えましたが全て同じでした。
C:\Windows\System32　C:\Windows\SysWOW64　どちらにもFM20.DLLは入っています。
オフィスのクリーンアンインストールも試しました。ツールの参照設定で参照しなおしてもＮＧです。
ＯＳに問題があるかもしれませんが、何かチェック事項はありますか？
よろしくお願いします。
2019/01/10(木) 00:28:18.54ID:RQUJx46Y
>>415です
参考までに、これと同じ状態です
https://answers.microsoft.com/ja-jp/msoffice/forum/all/excel/15087c63-48d1-48b8-84ba-4c6a693bc6e8
2019/01/10(木) 13:01:25.04ID:xPJRPdGO
fm20.dllで使えるコントロールってなんだ？
2019/01/10(木) 15:17:22.62ID:sOvEngqx
>>417
追加前の標準フォームのコントロール群です。
フォームを挿入するとエクセルのツールのメニューの方で自動的に有効になります。
ActiveXとかツールボックスのコントロールとか関係あるでしょうか？
2019/01/10(木) 20:21:39.50ID:MwVMQTRa
プログラム初心者ですがVBA勉強するのに優しく解説してくれてるサイト教えてください
2019/01/10(木) 21:44:24.98ID:RQUJx46Y
>>415です
C:\Documents and Settings\ユーザ名\Application Data\Microsoft\Forms
の中を見たところEXCEL.boxのみでしたが、他何か入っていますか？
2019/01/10(木) 21:59:37.39ID:tfDJlaMd
>>418
自動的に有効になるならそのまま使えばいいじゃん
2019/01/10(木) 22:06:22.42ID:X3kdRf9X
>>419
ここ
2019/01/10(木) 22:08:24.35ID:MwVMQTRa
なんだお前きも
2019/01/10(木) 23:01:57.46ID:RQUJx46Y
>>421
有効になるのは「標準のコントロール」のみだけです。
使いたいのはWebBrowserコントロールなのですが、それはデフォで表示されていないので追加をする必要があります。
他のＰＣでは問題なく出来ていますが、１台だけ同じ手順で追加できないＰＣがあるので困っています。
http://image.itmedia.co.jp/ait/articles/1502/06/ExcelVBA9TipsForm_02.png
このイメージでいうとツールボックスに地球のアイコンがありますよね。これを追加するために
イメージ右半分のコントロールの追加のダイアログを出したいのですが出ないという意味です。
2019/01/11(金) 02:46:48.54ID:OnlOg3zM
>>424
同じ手順でできるPCとできないPCがあるならPC個別の問題かな
うちの環境では MicrosoftWebBrowser なら ieframe.dll を使っているようだけど
2019/01/11(金) 03:33:50.23ID:OnlOg3zM
フォームが表示されている画面で　表示→ツールボックス　
でツールボックスを表示してないと「その他コントロール」の項目が選択できないってやつかな？
2019/01/11(金) 08:37:10.61ID:sIbnloi9
いやいや、これは何かが壊れているわけで、当然PC個別の問題だし、ツールボックスが表示されている状態でその他のコントロールを選択すると普通は表示される筈のダイアログが表示されないという問題。

ExcelじゃなくてWindowsに問題のある可能性もある。
2019/01/11(金) 09:14:26.57ID:YHHsLUsK
返信ありがとうございます。
私もＯＳ自体に問題があると思いますが出先のＰＣなので実際誰が何をしているのやらな状態です。
私はプログラマーではないので詳細はわからないのですが、ダイアログの参照先を調べてみた限りでは
ActiveXコントロールのDLLを色々なフォルダに参照にいっているようで、さすがにこれだけけのコントロールが壊れているとは考えにくいため
コントロールを表示するためのＯＳとの手続きの部分がおかしくなっている気がします（ｏｆｆｉｃｅ側の要求にＯＳが応えない）
ＯＳを初期化してしまえば良いと思うのですがもしそれで何かあった場合私では責任が取れないのでお手上げの状態です……トホホ
まずはiframe.dllの所在を調べてみます。上司は私より疎いのでなんとかならないの？の一点張りですが
もしどうしようもない場合もう一度言ってみたいと思います。（多分ここで解らなければお手上げだと思うので）
>>426 ツールボックスは表示できます（フォームをアクティブにして、メニューの表示で選択）
2019/01/11(金) 12:08:47.38ID:OnlOg3zM
あと一つだけ、参照設定画面でライブラリの優先順位が正常なPCと同じかどうか見たほうがいいかも
2019/01/11(金) 12:39:42.06ID:1sVePy4G
>>428
多分、レジストリに登録されているActiveX情報を見に行っているだけで実際のdllは見に行っていないと思う。
dllを見に行くのはダイアログ上でチェックした時じゃないかな。

リストアップに問題があるとすればレジストリに問題があるとか。
でも単純にそのダイアログを表示するだけの所でこけている可能性もある。

WordとかAccessでも同じ状況なのかな?
他にOffice以外でActiveXのリストを表示できるアプリがあれば、そこでは問題無いかなど。
2019/01/11(金) 13:24:28.67ID:UHhRfKCF
>>429
>>430
有用な情報ありがとうございます！
ここら辺も重点的に調べてみます！！
2019/01/11(金) 18:28:05.98ID:s+JlNqnO
オフィスを少し古いバージョンにロールバックさせてみれば？
2010とか2003にしろって言ってるわけではなくて
2016のパッチの適用状態を最新から4世代くらい前に戻してみてはどうかって言う話ね
433デフォルトの名無しさん
垢版 |
2019/01/12(土) 11:49:00.24ID:uvKv7UXV
まだエクセルωなんて使ってるのかωω
2019/01/12(土) 12:31:34.63ID:e9xF8Gpo
・客とのデータ交換フォーマットのデファクトスタンダード
・文字列、表、図形を混合したセマンティックレスな文書作成ツールとして優秀
・インストール監査がかからない

この条件を満たすツールは今のところエクセルしかないのでエクセルは必要
でもVBAの存在意義には正直なところ懐疑的かな
435デフォルトの名無しさん
垢版 |
2019/01/12(土) 12:35:57.04ID:02ysTAL5
【奇跡のリンゴ】　オノ・ヨーコ「来るな殺される」
http://rio2016.5ch.net/test/read.cgi/beatles/1547022582/l50
2019/01/12(土) 13:57:32.57ID:Sk8d17OT
エクセルωって何？
437デフォルトの名無しさん
垢版 |
2019/01/12(土) 16:04:54.69ID:+r4m8XcO
おちんちん
2019/01/12(土) 20:42:36.47ID:WuY9EGhJ
>>434
すごい早口で言ってそう
2019/01/13(日) 00:05:22.07ID:hjY5Ys6w
割り当てたショートカットキーが競合した際の優先順位ってどうなっているのでしょう。
複数ブックでマクロオプションが競合した場合は、先勝ちのような気がします。
OnKeyはそれよりも強い？
自ブックに割り当てたショートカットを優先させる手段はありますか？
2019/01/13(日) 04:14:15.34ID:WBvXKiKr
フォーカス順じゃないのか?
2019/01/13(日) 06:56:01.77ID:SAPxjsPr
>>440
えーと、同じキーアサインを持っているブック、A→Bの順に開いて、Bにフォーカスが当たっている状態で、Aのキー割付が反応しました。
先に読み込まれた方が居座るのかと、、
フォーカス順ってどういう状態？
2019/01/13(日) 07:17:03.79ID:m/N1o858
>>441
アクティブなブックかと思ってた
2019/01/13(日) 07:37:12.12ID:SAPxjsPr
>>442
そうだと嬉しいんだけど
444デフォルトの名無しさん
垢版 |
2019/01/13(日) 20:14:37.35ID:9xnKbe6r
こんにちは>>415です。
更新の削除（ロールバック）も試してみたのですが改善しなくて結局もうお手上げ状態でした。
他のofficeアプリでも呼べなかったのでとりあえずドライブごとバックアップ取ってシステム入れ直すことにしました。
パスワードがないとか、アクティベーションができないとか、インストールしていたプログラムの原本がないとかどうなってんだよこの会社は程度には散々な目に合いました。
今どうにかこうにか復旧できて明日の業務には間に合いそうです。
ＩＤ・ＰＷを統合管理する何かを作らないとダメかも・・・
もうしんどいのでおうち帰りますＴ−Ｔ
アドバイスくださったかたどうもありがとうございました。
なんかおいしいものたべたい……
2019/01/13(日) 22:13:52.77ID:4kwCYp6o
お疲れ様としか言いようがない
2019/01/13(日) 23:14:49.60ID:W6yQzIWL
黴の生えた産廃に固執し先へ進む努力をしてこなかった人間と組織の末路
2019/01/13(日) 23:49:20.57ID:mzAlUYGr
かわいそうに
くだらないトラブルで連休が潰れるなんてな
最初から.NETにしてたらゆっくり休めたかもなぁ
2019/01/13(日) 23:56:50.10ID:LesaGnrm
会社がシステム更新の費用をケチって社員に残業や休出を強いるのはブラック判定丸です
2019/01/14(月) 01:11:47.03ID:HbfNSvAf
.netってvbaと比べて難易度高い？
2019/01/14(月) 01:27:46.11ID:p535EsUF
.NETは簡単すぎて驚くほど
451デフォルトの名無しさん
垢版 |
2019/01/14(月) 06:51:38.95ID:ztoWl03f
じゃjavascriptってvbaと比べて難易度高い？
2019/01/14(月) 09:16:46.39ID:Kw7zClor
>>448
重度になると、ExcelをCalcに入れ替えられます。
2019/01/14(月) 09:44:43.02ID:p535EsUF
Calcのほうがマシでは？
機能面でも上だし無料でライセンスやインストールでのトラブルなどないからね
2019/01/14(月) 09:53:44.76ID:/nPFdxzS
>>451
VBA(というかVBシリーズ一般)ユーザーは他のものを覚えようとしないから未だにVBAユーザーなのだから、
VBAではないものは何であろうと極めて難しいよ
2019/01/14(月) 10:04:01.93ID:p535EsUF
高い金を払ってるのだから問題をサポートに投げなきゃ損だよ
連休を使って自力解決するぐらいなら最初から無料・サポート無しのOSSツールを使うのが正解
2019/01/14(月) 10:21:32.96ID:Gjhb4oYZ
Calc使ったこと無いだろ…
動作が安定しないしよくわからない独自仕様があるから困るわ
絶対パス使って別ファイルのデータを参照しにいったら、内部的に相対パスに変換されてるらしくて、
ファイルの位置を変えたらリンクを張り直さないと動かないとかだし
2019/01/14(月) 10:27:00.01ID:p535EsUF
エクセルだって
動作安定しない(ちょくちょく落ちる、ファイル壊れる、操作が失敗する)
へんな独自仕様の塊(そもそも表計算の標準仕様とは?)
ファイル移動したらリンク切れる(当たり前)

もしかしてなんか違うツールの話してる？
458デフォルトの名無しさん
垢版 |
2019/01/14(月) 10:49:16.77ID:rhE9Hj5A
calcってwindowsの電卓のことじゃなかったのか？
459デフォルトの名無しさん
垢版 |
2019/01/14(月) 10:53:17.36ID:rhE9Hj5A
プロのプログラマならショートカット使うから
Winキー + E + calc + ENTERキー
でいつも瞬時に電卓立ち上げてるからな
その間0.1秒
2019/01/14(月) 11:22:28.62ID:/xEWvTMC
電卓で計算してExcelに入力するおじさん見たことある
2019/01/14(月) 11:55:28.16ID:9Cudnq1q
無料の、Libre Office を使えば？
462デフォルトの名無しさん
垢版 |
2019/01/14(月) 12:42:47.66ID:aPj/koI6
>>444
おまえが壊したんだろどうみても
2019/01/14(月) 12:50:29.27ID:w9DNi3U5
電卓ボタンがあるのに
2019/01/14(月) 15:17:38.41ID:frEC6XsU
>>462
典型的なステレオタイプ
465デフォルトの名無しさん
垢版 |
2019/01/14(月) 15:19:29.30ID:kL0Onkfi
>>457
馬鹿は新しいものが良いものだと思ってるバージョンすぐ上げるからそうなる
2019/01/14(月) 16:17:48.40ID:p535EsUF
と思ってる人がセキュリティ事故や上の方でやらかしたようなトラブルにハマっっちゃうんだよな
何事も枯れてるほうがいいなんてのはとうの昔の話で、今は素早いアップデート(とテスト)が大切なんだよ
467デフォルトの名無しさん
垢版 |
2019/01/14(月) 17:26:03.90ID:YUjplXjc
ID:p535EsUF

本日の死んだ方がいい大馬鹿
468デフォルトの名無しさん
垢版 |
2019/01/14(月) 17:36:28.59ID:Kh7Ilxpb
でもVBAなんて未来ないじゃん
今から覚える意味ないのは間違いない
2019/01/14(月) 19:11:25.88ID:p535EsUF
ロジカルに意見できなくなって暴言を吐くしかできなくなった人ってたまに居るけどなんかかわいそう
2019/01/14(月) 19:11:30.68ID:6UwZJ038
未来は無くても現在はあるから
2019/01/14(月) 19:15:17.29ID:p535EsUF
過去の負債は沢山ありそうだ
2019/01/14(月) 19:21:43.79ID:qRVrYCla
いい加減、マクロの実行だけはできるけどVBEは別途開発者ライセンスの購入が必要、くらいの弾圧はしていいと思う
さすがにいつまでも甘やかしすぎ
2019/01/14(月) 19:23:33.71ID:Kw7zClor
>>460
意外と普通にいるんだわ。
2019/01/14(月) 20:35:40.54ID:Cz3RFHYj
ろくに組めない奴がマウント取りたがってる構図だな。

実際、俺の回りにいるできる奴はVBAを駄目だとか言う奴はいない。
2019/01/14(月) 20:43:07.10ID:qRVrYCla
>>474
実際、できる奴なら必ず他の選択肢を持っているからね
VBAに縛られていないから悪く言う必要もないだけであり、彼らが積極的にVBAを選択することはないよ
2019/01/14(月) 20:51:06.32ID:Cz3RFHYj
>>475
まあ、できる奴はC#も使わんけどね。
C++使うわな。
2019/01/14(月) 21:02:23.95ID:qRVrYCla
>>476
無意味な拘りで3倍の工数をかける奴は「できる奴」とは言わない
ただの迷惑で無能なオタクだな
2019/01/14(月) 21:57:12.74ID:fMQSLe21
C#やC++のスレでは自慢できないからここでマウントしたがる…というわけですね
2019/01/14(月) 22:21:10.88ID:HbfNSvAf
vbaのいいところってエクセル持ってれば無料で使えて大体のクライアントpcにエクセル入ってるって事なんだからあんまりあーでもないこーでもない言ってやるなよ
480デフォルトの名無しさん
垢版 |
2019/01/14(月) 22:26:43.78ID:HmGTNO3E
エクセルのＶＢＡってシート＝変数の一覧みたいなものだし
素人にはやりやすいだからエクセルは好きですよ。
そんな感じでプロの人と棲み分けできていると思う。
2019/01/14(月) 22:26:54.46ID:87eYPPUj
Officeが入ってなくてもWindowsパソコンには必ず入ってるJavaScriptやC#の立場は
482デフォルトの名無しさん
垢版 |
2019/01/14(月) 22:34:56.07ID:HmGTNO3E
JavaScriptっていますごく人気あるんじゃないの？
2019/01/14(月) 23:07:34.41ID:Cz3RFHYj
結局、出来ない奴ってのはオラが世界だけなんだよな。

C#なんて出来ないこといっぱいあるのに工数とかいって言い訳するんだよ。
なんであんな遅くて出来ないこといっぱいのクソ言語使うのかねえ。

なんて言われた時の反論がバカにしてるVBAと同レベルの反論をするんだよな。

まともな奴ならそういう都合が分かってるからマウントなんて取らないものなんだが。
484デフォルトの名無しさん
垢版 |
2019/01/14(月) 23:28:28.98ID:HmGTNO3E
>>483
あなたのいう出来る出来ないっていうのは何を指しているのかは解りませんが私にとっては何の価値も意味もないです。
それともあなたは自分が出来る奴っていう自慢をしたいんですか？
あなたが本当に凄いならあなたのいう下らないレベルの言語のスレではなく、もっと凄い人が沢山いるスレが相応しいと思います。
2019/01/14(月) 23:36:15.26ID:6n/s2HAk
>>476
キミ面白いね
486デフォルトの名無しさん
垢版 |
2019/01/15(火) 01:46:38.96ID:yHGEgwFF
>>466
働いたこともない無職か
2019/01/15(火) 08:47:01.01ID:2H7V8WUe
>>484
出来る奴ってのはどんな言語にもいるけど言語の優劣を語るような奴は出来ない奴の典型。

C#の方が...などと言う奴の言ってることってのは突き詰めると「プログラマーなんて底辺」なんてのと一緒なんだよ。

そんなことも分からないからマウント取ろうと頑張るんだね。
自分のバカさ加減を喧伝するようなもんだ。
488デフォルトの名無しさん
垢版 |
2019/01/15(火) 09:14:01.41ID:S3yO0kW1
>>487
自己紹介乙
2019/01/15(火) 13:10:33.30ID:4ICOKV5/
相手するなよ…
490デフォルトの名無しさん
垢版 |
2019/01/15(火) 15:44:09.85ID:+MTMyzJj
アプデしたらExcelうごかんくなった
たすけてえろいひと
2019/01/15(火) 17:14:50.09ID:bs6RyUw7
まず服を服を脱ぎます
492デフォルトの名無しさん
垢版 |
2019/01/15(火) 17:49:29.10ID:yHGEgwFF
>>490
ID:p535EsUFに聞け
2019/01/15(火) 17:53:44.09ID:LAAyKIEn
>>487
できる奴ほど言語のメリットデメリットを正確に理解してるから優劣を語る
出来ない人はそもそも語るほどの知識がない
2019/01/15(火) 20:59:40.68ID:2H7V8WUe
>>493
メリット、デメリットを把握してたら優劣つかないんだが。

そうだな、このスレで何度となく言われてることだが、Excelのみで完結できるというメリットを挙げると、別ファイルが有っても大きな問題じゃないとかくだらない言い訳を始めるんだよ。
今まで、どんな場合でもVBAは駄目とか言ってたくせに。
2019/01/15(火) 21:49:29.77ID:LAAyKIEn
もうそれしか拠り所がない感じなのかな
2019/01/15(火) 23:55:27.89ID:7/bomr1d
出たな単一ファイル老人
2019/01/16(水) 12:53:07.07ID:dguj1mvw
どんな場合でもと言ってたのが破綻したわけだ。
それに、この点は全てに係る重要な点だ。

他にも沢山あっただろ。
でもこれ1つで「どんな場合でも」は破綻したな。
2019/01/17(木) 10:25:15.47ID:yJSDrWu9
そもそも職場でexcelしか許可されてなくてほかのソフトが入れられない人にとって
ほかの言語がどれだけメリットがあっても使わせてもらえなければどうしようもないんじゃね
俺はVBA以外も多少知っているけどそっちの話は別のスレでやってる
2019/01/17(木) 11:51:25.20ID:a+HEJ0Au
本当に必要なら申請すれば入れさせてもらえるはずとか言ってもねぇ
VBAでは絶対無理ってわけでもなく、出来ないこともないので、
本当に必要かって言われるとそうではないことも多いからなぁ
2019/01/17(木) 12:21:24.46ID:oU9OMPiG
C#やPowershellも含めて使えないってことは滅多にないだろ
そういう特殊環境を前提に語るべきではない
2019/01/17(木) 12:56:14.54ID:JYUOuN3I
仕事ではその特殊環境となる場合が結構あるんだが。
VBA禁止って所もある。

けどこのスレはVBAが前提なんでね。
C#やPowerShell禁止はデメリットになるけどVBA禁止はデメリットにならないという前提を理解出来ない奴は結構来るけど。
502デフォルトの名無しさん
垢版 |
2019/01/17(木) 13:09:47.45ID:gy8QMGRk
VBA禁止の本当の意味は、
馬鹿が作ったVBA禁止
2019/01/17(木) 13:42:50.54ID:K8cT5dis
IEをオブジェクトにしてフォームに入力、実行まではできます。
実行後、更新されたHTMLを取得するにはどうすればよいのでしょうか？
504デフォルトの名無しさん
垢版 |
2019/01/17(木) 13:45:27.52ID:Vm2XnGVD
>>498
わかるわ。うちもシンクライアントでガチガチにＯＳ固められてるから必然的にVBAとJavascript覚えた。
2019/01/17(木) 14:38:35.71ID:m9vUe5gc
>>503
VBAでやることではありません
RPAでも購入してください
2019/01/17(木) 16:39:21.64ID:yJSDrWu9
>>500
C#やPowershell のスレでやるべきである
507デフォルトの名無しさん
垢版 |
2019/01/17(木) 16:39:45.91ID:Vm2XnGVD
>>503
objIE.Document.Body.innerHTML で読めないの？
508デフォルトの名無しさん
垢版 |
2019/01/17(木) 16:44:36.37ID:YCcy3q+Y
>>500
ここはVBAのスレ。文字読めないヴァカ？
C#やPowershell自慢やりたいんならそのスレに逝けアホンダラ
509デフォルトの名無しさん
垢版 |
2019/01/17(木) 16:47:10.66ID:6nl0xXGy
>>508
何で自慢になるんだ？
馬鹿なのか？
510デフォルトの名無しさん
垢版 |
2019/01/17(木) 17:43:02.84ID:8rj4oJ0j
馬鹿には無理
2019/01/17(木) 18:08:51.74ID:yJSDrWu9
自慢じゃなくて荒らしだな
2019/01/17(木) 19:42:56.03ID:buYHz7fQ
>>503
普通は、Ruby, Selenium WebDriver, Nokogiri で、スクレイピングするけど、

ピラフ大王は、5ch のスレを、PowerShell でスクレイピングしていた、強者！
513デフォルトの名無しさん
垢版 |
2019/01/17(木) 19:57:04.61ID:Vm2XnGVD
>>512
あ、俺Seleniumでスクレイピングしてるわ
ＩＥ面倒なんだもんｗ
2019/01/17(木) 20:39:11.18ID:JYUOuN3I
IEオブジェクトはHTMLコード内の改行も1つのノードとして扱ってる点が特殊だな。
MSXML2.XMLHTTPとかhtmlfileでやる場合はそんなこと無いけど。
2019/01/17(木) 20:51:55.46ID:/w6CmWBz
スクレイピングをわざわざVBAでやろうという発想がどこから出てくるのか不思議だな
個人なら裁量があるのにあえてVBAを使う選択はありえないし、
会社だとするとスクレイピングをやろうと考える程度にリテラシーがありコンプライアンス意識が低く、
かつ他のツールを使えない程度には厳格なちゃんとした企業なのにRPAを買う金はない?
2019/01/17(木) 21:30:07.38ID:Vm2XnGVD
>>515
どうしてって、うーん、ただPCにOFFICEが入ってたから使ってるw
javascriptもPerlとかも無料だし、大体どこでも使えるし何か買うほどやる気ないし……
あなたの思っていることは理にかなっていると思うよ、多分色々なことを知っててそれが出来れば視野も広がるって親切心なんだろう。
でも、なんつーか個人で使うだけだから脱線しててもやりたいことが短時間で出来ればいいっていう視点もまぁ理解して欲しい。困ったら聞くかもしんないけどお手柔らかに頼みますw
あとありがとう。
2019/01/17(木) 21:48:09.40ID:3qXsUeDf
IEが消えりゃVBAでスクレイピングなんてのも消えるし
そう遠い未来じゃない
2019/01/17(木) 23:47:45.37ID:1381LMvg
>>499
俺もそんな理由でVBS使ってるわ。
本当は専用の開発ソフト欲しいけど、
やろうと思えばメモ帳だけで出来なくもない、ってのが曲者。
2019/01/18(金) 00:09:50.30ID:3Aai6ayN
うーんどうやら開発ツールを申請できない／入れてもらえない会社が無視できないくらい存在する、
というのはデタラメじゃなかったんだな
2019/01/18(金) 00:58:32.59ID:ld1N2+LD
無視できないくらいってどのくらいだよｗ
521デフォルトの名無しさん
垢版 |
2019/01/18(金) 04:56:39.52ID:iqHxmsyd
馬鹿には入れさせないだけ
2019/01/18(金) 08:20:26.64ID:FdTpqa5z
>>515
別にわざわざでは無いけどね。
一瞬で出来るんだわ。
それ用のツールを昔、作ったんでね。

>>519
それは仕事の規模によるだろ。
それに、こっちも入れる迄もないと思ってるから申請なぞせんぞ。
VBAだとどうにもならない仕事が継続的に続くなら申請するんだろうが。
2019/01/18(金) 08:59:50.59ID:HmTdANXo
まずOS標準のPowershellでできることをやる
規模が大きくなって型安全性などが欲しくなったら.net CLIとVSCodeを入れる
VBAは本当にVBAが必要で他に選択肢がない場合にしょうがなく使う
2019/01/18(金) 09:13:15.26ID:FdTpqa5z
なんでExcel標準のVBAを使わないのかねw
バカじゃないの?
2019/01/18(金) 09:58:22.02ID:Xg90leRQ
VBAは公式には「レガシー」で「非推奨」な機能だよ
2019/01/18(金) 10:27:15.84ID:02H4sO2V
うちは無料ならツール申請すれば通常通るし、理由もそんなに掘り下げて詮索されることはない。
有料だととたんにハードルが上がるけど。
んでVisual Studioやらなんやら入れた後もVBAはがんがん使ってるな。
C++/C#と比較してもアドバンテージはあると思うよ。
ちなみにPowershellは起動できないようになってる。権限の問題だから単なるインストール申請よりハードル上がるとおもう。
2019/01/18(金) 12:01:36.56ID:dGgLcYHd
>>526
C# を禁止せずに PowerShell 禁止とか意味わからん
まあよくわかってない情シスとかが決めてたりするんだろうな
2019/01/18(金) 12:06:44.97ID:Xg90leRQ
>>527
そりゃ情シスなんかちょっとだけ意識高いPCユーザーに過ぎないんだから、その辺の層の人にとってexeは怖いでしょ
PowerShellなんか所詮テキストファイルだから安心
2019/01/18(金) 12:54:22.16ID:FdTpqa5z
PowerShellはデフォルトで実行出来ないでしょ。
で、実行できるようにして良いかが問題となる。
2019/01/18(金) 13:32:03.41ID:ld1N2+LD
うちは共有pcだと社員の個人情報とか社外秘のデータも扱っているから
情報漏洩やコンプライアンスはうるさいんだよね
そういうの適当な会社がうらやましいよ
2019/01/18(金) 13:46:56.62ID:dGgLcYHd
>>528
？？？
禁止してるのはテキストファイル（PowerShell）の方だよ？
2019/01/18(金) 13:52:14.57ID:dGgLcYHd
>>529
> PowerShellはデフォルトで実行出来ないでしょ。
できるよ
powershell -ExecutionPolicy RemoteSigned xxxx.ps1
ってやるだけ
2019/01/18(金) 15:05:03.66ID:u9bkOu0s
PowerShellデフォルトでスクリプト実行できないのは致命的。
「え？デフォルトからセキュリティ弛めるの？大丈夫なの？」ってなる。
2019/01/18(金) 15:58:31.39ID:N2j3ka14
>>533
>>532
2019/01/18(金) 18:10:43.98ID:u9bkOu0s
>>534
ウザっ
2019/01/18(金) 18:21:14.18ID:FdTpqa5z
>>532
それをどこでやるの?
当然ダブルクリック1発でできるんだよね。

もしかしてそのためにバッチファイルも作るとか言わんよな。
2019/01/18(金) 18:36:02.88ID:dGgLcYHd
>>536
やれる/やれないの話な
後出しでダブルクリックガーとか恥ずかしすぎるだろ w
ちなみに若干トリッキーだがバッチファイルにPowerShellのソースを入れちゃうこともできる
2019/01/18(金) 19:50:38.17ID:BPWAMvDw
ExecutionPolicyはCurrentUserスコープなら権限不要で変更可能
陽
この情報はプロならみんな知ってるけどアマチュアは知らない人が多いね
2019/01/18(金) 20:36:05.00ID:3Aai6ayN
実行の話じゃないでしょ
2019/01/18(金) 20:43:46.91ID:FdTpqa5z
>>537
???
今まで何の話をしてたんだ?
PowerShellの方がVBAより有利だと言いたかったんじゃないの?

君の発言を聞いてるとPowerShellはますます使いものにならないように感じるんだが、もしかして君は実はVBAの方が有利だと言いたかったのか?
2019/01/18(金) 21:06:07.91ID:dGgLcYHd
>>540
> 今まで何の話をしてたんだ?
>>529 > PowerShellはデフォルトで実行出来ないでしょ。
とか言う情弱がいたって話 w
2019/01/18(金) 21:45:43.94ID:WMbv0rpV
あれ？ ExcelってVBAをデフォルトで実行できたっけ？
2019/01/18(金) 22:19:33.59ID:dGgLcYHd
>>542
まあ設定いるんだけど管理者権限は要らない
PowerShell も>>538が言うように管理者権限不要だけど>>529はSet-ExecutionPolicyの-scopeを知らなかったんだろうな
2019/01/18(金) 23:37:19.13ID:c34mocfv
設定を変えなければ動かないことをデフォルトでは動かないというんじゃないかね
設定を変えるのが簡単かどうかは別問題だろ
2019/01/18(金) 23:49:44.04ID:LGpZNaP9
右クリックするだけだろ
2019/01/19(土) 00:13:36.27ID:Fjsb0QYM
既定では
右クリック→管理者として実行
右クリック→やWindowsPowerShellで実行

いずれも.ps1スクリプトは実行できない

>>543もまちがい
既定状態のPCでも
powershell -executionpolicy remotesigned -file 'hoge.ps1'
などと打てば自動的にプロセススコープで自作のスクリプトなどを実行可能
2019/01/19(土) 02:49:20.82ID:S0ghMGDC
PowerShell -Part 3
https://mevius.5ch.net/test/read.cgi/tech/1539074808/
2019/01/19(土) 05:10:03.36ID:+IqL7b8U
>>544
だからそんなこと言い出したらVBAだってディフォルトでは動かないって話
逆にPowerShellはオプションつければ設定変更なしに実行可能
要するに>>529が情弱っていう事実は変わらない

>>546
> >>543もまちがい
話の流れを読めよ…
既に>>532に書いてあることでドヤ顔されても困る w
2019/01/19(土) 06:27:03.00ID:wkXfpZQC
VBAってデフォルトでは動かないんだっけ？
マクロ入りファイルを開く時は許可か設定が必要だけど、新規ブックならいきなり使えたような
再インストールして確認するのは面倒だからうろ覚えだけど
2019/01/19(土) 07:08:08.04ID:fPDnzLoP
VBAはそもそもオフィスのインストールという過酷な作業が必要だからな
アマチュアの事務員さんは用意されたパソコンを使うだけだから知らないのかもしれないがな
プロはプロジェクトのたびに全員のパソコンを誰かが準備しなきゃならんのよ
オフィスのインストール作業は地味にでかい工数になるんだ
2019/01/19(土) 08:17:46.72ID:pNQS4Xn+
デフォルトで信頼されてる場所のファイルでも動かなかったっけ？

大昔のエクセルならデフォルトでどこでもマクロ動いてたけどなｗ
2019/01/19(土) 10:55:07.59ID:gJfblIQ2
実行するファイルとは別に呼び出す仕組みを用意する必要があるからpowershellがクソだって言われてるのが分からないのか？
頭悪すぎない？
2019/01/19(土) 11:03:22.61ID:Fjsb0QYM
実行スコープを細かく規定出来るのは進歩。クソだとのたまうアホはセキュリティ意識がおかしい
2019/01/19(土) 11:07:55.26ID:OmtBIHUo
右クリックするだけだろ
2019/01/19(土) 11:12:21.71ID:gJfblIQ2
そのスコープを組み込めない時点で終わってるという話をしているんですよ？
2019/01/19(土) 11:39:33.19ID:fPDnzLoP
スコープを組み込む

この言葉の意味がよくわからんので詳しく説明してみて
2019/01/19(土) 11:47:23.37ID:fPDnzLoP
vbaもエクセルファイル自体が実行可能な訳じゃなくエクセルというプログラムが解釈してやってるだけ
なのでvbaも別に呼び出す仕組みが必要と言っていい
その仕組みは膨大なインストール時間とライセンス料金を支払ってオフィスをインストールするという苦行を乗り越えないと利用できない

それに比べたらパワーシェルは実行までの手間は殆ど無視できるほど小さい
シェルでたったの1行コマンドレットを打つだけでOK
しかも無料なので嬉しいね
2019/01/19(土) 11:47:30.68ID:gJfblIQ2
OSのデフォルト状態で出来ることが前提
拡張子が.ps1の場合右クリックのメニューにremotesingedを表示させるとか？
2019/01/19(土) 11:51:02.97ID:8CGfSDeG
もうその話はpowershellのスレに移動してやってください
2019/01/19(土) 11:51:52.41ID:1cEunHBW
>>552
> 実行するファイルとは別に呼び出す仕組みを用意する必要がある
はあ？
情弱自慢かよww
2019/01/19(土) 12:11:34.94ID:lm8WiCyM
現実社会では話ができない寂しい「プロ」」のプログラマどもが何やらくだらん
雑談をしてスレを潰してるけど質問者の皆さんはそんなヨタ話に付き合う必要
はありませんので、遠慮なく質問をどぞ〜
562デフォルトの名無しさん
垢版 |
2019/01/19(土) 12:14:32.41ID:oaSrkPrl
ところでホンマにブロなん？プロさんて？なんかあやしいんですけどw
2019/01/19(土) 12:25:03.26ID:4FsWRGgY
Officeインストールするしないがオプションなんて事業所あるの？
2019/01/19(土) 12:40:58.29ID:wkXfpZQC
厳密な定義や資格があるわけじゃないんで「プロ」を名乗るのは自由です
2019/01/19(土) 13:14:50.16ID:fPDnzLoP
>>563
そりゃもちろんあるよ
禁止してる事業所だってある
そもそもOS違いで使えないこともある
2019/01/19(土) 13:21:53.40ID:+IqL7b8U
>>563
うちの会社は開発専用機にはインストールしないけどそういう機器は自分でセットアップするからなぁ
>>550の言うプロジェクトの度に準備とかはよくわからんな
2019/01/19(土) 13:26:53.56ID:4FsWRGgY
CADなんかの専用ソフトしか動かさんとか開発機とかそういうのならわかるけど、
このスレで話題にする以上関係ないというか対象外でしょ
2019/01/19(土) 13:35:07.44ID:Fjsb0QYM
普通はイメージで展開して、個別はライセンス認証だけっしょ一台数分
569デフォルトの名無しさん
垢版 |
2019/01/19(土) 14:06:33.45ID:/+FUwnIm
>>558
へえ、ExcelってOSのデフォルト状態で使えるんだ？
570デフォルトの名無しさん
垢版 |
2019/01/19(土) 14:46:59.67ID:Qiw5pxsO
WSHだろ常考
2019/01/19(土) 15:22:25.47ID:wiNfQeeu
>>523-537
例えば、クリップボードでも、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で十分！
2019/01/19(土) 15:49:39.46ID:BW5TF7JU
>>571
VSCodeは個別にライセンスのある膨大な数のオープンソースソフトウェアの塊であり、
PowerShellを禁止しているような糞組織のPCにインストールすることは不可能
RubyもライセンスにGPLの文字を見つけた途端に情シスが卒倒するレベルで全くもって論外
573デフォルトの名無しさん
垢版 |
2019/01/19(土) 21:28:25.59ID:AuMD8hxP
プロさんてバカしかおらんの？
2019/01/19(土) 21:35:07.05ID:+IqL7b8U
所詮自称プロだしw
575デフォルトの名無しさん
垢版 |
2019/01/19(土) 21:40:37.46ID:AuMD8hxP
>>574
開きなおるなバカ
2019/01/19(土) 22:05:47.19ID:+IqL7b8U
>>575
開き直り？
嘲笑って意味わかる？ w
2019/01/19(土) 22:06:05.61ID:ARTGttMK
excelってVBAからpythonに変わるっていってなかったっけ？
2019/01/19(土) 22:08:25.92ID:KpXpzNLK
>>577
いってるだけ、今のところは
2019/01/20(日) 00:48:58.52ID:QFn18v7i
dictionaryに格納してるItemを検索して、存在してればKeyを返却する方法が知りたいのだけど、ループさせてヒットしたら値を出す方法以外でfind的な一発でポンと返す記述の仕方はない？
2019/01/20(日) 01:04:30.85ID:yiNhGfDQ
>>579
Item 間に順序関係があればそれを利用して二分探索を適用できる、無論、記述はループチェックに比べて量が多くなる
2019/01/20(日) 03:54:11.74ID:IAu7YphR
>>579
一行で書きたいということなら、文字列ならワークシート関数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

個人的には普通に関数作った方が使いやすいと思います。
2019/01/20(日) 08:04:01.23ID:cWi8furK
>>439
Excel.Application.Onkey で最優先ショートカットキーにできる
次いで.macroOptionsの古いほうが動くよ
2019/01/20(日) 08:25:03.17ID:KJwN8fo6
配列とかコレクションに対してSQLが使えればいいんだけどな。
matchやvlookupより速いんだけど、いちいちシートとかcsvに書き出さなきゃならん。
2019/01/20(日) 09:17:44.39ID:OfXqqqKI
そこまで行くとAccessのお仕事を食っちまう
2019/01/20(日) 09:22:18.21ID:1t0h4eLG
Access VBAでやればいいじゃん
2019/01/20(日) 09:32:11.24ID:brNktcWU
>>582
おっと、回答いただけるとは。
onkeyだと、activeworkbookだろうが、thisworkbookだろうが、後定義したほうが上書き、後勝ちしません？
active側に定義されたショートカットがそれぞれ反応してくれると嬉しいのですが。
2019/01/20(日) 10:54:01.49ID:mVpLWWyp
>>583
MSにExcelでC#使えるようにしてくれ〜
って要望をガンガン出せばお前の望みが叶うかも知れない
2019/01/20(日) 13:02:37.66ID:QFn18v7i
>>580,581
ありがとう
Itemには順序関係ないから二分探索は出きなさそう
worksheet関数は完全に意識無かったので見た瞬間にあぁ！その手があったか！と目からウロコでした
2019/01/20(日) 13:13:34.11ID:k7Xn9dKz
C#スクリプトってOSSで軌道に乗っちゃってるからExcelの処理系として採用されることはないと思うぞ
同じものをClosedで再発明するってのも馬鹿馬鹿しいしな

強力な言語を使いたいならその言語を主としてExcelをコントロールすればいい
それで十分だ
わざわざExcelに乗っける必要性は薄い
2019/01/20(日) 13:31:13.08ID:mVpLWWyp
再発明とか意味わからん w
591デフォルトの名無しさん
垢版 |
2019/01/20(日) 16:43:57.95ID:tNp2z70l
この場合の再発明と言われれば車輪の再発明を連想出来ないのはかなり緩いんだろう
2019/01/20(日) 17:26:38.62ID:GHMQXw/N
文脈的には再発明と言うより再実装かな
2019/01/20(日) 17:32:05.81ID:mVpLWWyp
いや、車輪の再発明はいいとして何を再発明するんだよって話
C#処理系のソースライセンス見てないけどMSが自社製品に使えなくなるようなライセンスにはなってないだろうし（なってたらVisual Studioの有償版とか売れなくなる）
普通にExcelに組み入れるだけだろ
2019/01/20(日) 17:45:17.54ID:TQeakhfS
>>593
メンテナンスのコストを甘く見すぎ
Excelに入れるなら最低でも以後10年は完全な互換性を維持し続けなきゃいけないわけ
今メインストリームのC#環境を入れるなら.NET Coreを組み込むことになるだろうけど、
.NET Coreって完全なサイドバイサイドを前提にガンガン破壊的変更をぶっ込んでいくスタイルだから、
Excelのバージョンアップのときに単純に.NET Coreのバージョンを上げるわけにはいかなくて、
Excel専用のブランチを作って継続的にメンテしていかざるを得ないの
それは実質的には新たに.NETの兄弟分を作って独立して育てていくことに他ならず、多大なメンテナンスコストを生じる上、
.NET エコシステムの分断を生むことになる
そんな馬鹿げたことをするくらいなら普通に.NET Coreを直接使わせた方が遥かにマシだろう
2019/01/20(日) 17:59:54.91ID:mVpLWWyp
>>594
> Excelに入れるなら最低でも以後10年は完全な互換性を維持し続けなきゃいけないわけ
それVBAの開発担当者にも言ってくれよ w
2019/01/20(日) 18:07:02.56ID:TQeakhfS
>>595
煽りはいいから直近10年でVBAに対して行われた破壊的変更を具体的に挙げてくれよ
当たり前だが不具合の話はしてないぞ？
2019/01/20(日) 18:28:52.57ID:mVpLWWyp
>>596
いや破壊的かどうかは別にしてもVBAも色々機能追加とかされてるだろ
VBAの機能追加をやめてそのリソースをC# for Officeに割くだけだよ
そもそもMac版はともかくWindows版のOfficeなら.NET Coreじゃなくて.NET Framework上に構築するだろうしな
598デフォルトの名無しさん
垢版 |
2019/01/20(日) 18:31:24.08ID:wKV5+GB/
みっともないからいいかげん止めや似非プロさんの一人語り
そもそも出鱈目やってバレバレのプロ風の話して誰に対してマウント取りたいねんw
2019/01/20(日) 18:46:13.28ID:TQeakhfS
>>597
Full .NET はメンテナンスモードに入ったよ
4.8を最後に、今後大きな機能追加はない
残念ながら、今入れても新たに時代遅れのゴミが増えるだけだ
2019/01/20(日) 20:02:31.83ID:mVpLWWyp
>>599
逆に都合がいいじゃん
.NETFrameworkは簡単に廃止できないから君が大事にしてる互換性も保ちやすいしね
2019/01/20(日) 22:44:30.32ID:aU4dkoPo
A4用紙に上から4件ずつ異なるデータを入力して、
印刷したいのですが、どうすればいいか教えて下さい。
データ数は日によって異なり、30件〜50件程度あります。
1ページ目に1〜4、2ページ目に5〜8・・・という感じです。
うまく説明出来なくてすいません。
4つデータを入力して印刷したら次、っていう感じの
ループ処理のコードのサンプルなどありましたら教えてください。
2019/01/20(日) 22:48:25.28ID:GTDVzsz1
>>601
改ページを設定すればいいだけじゃね？
https://kosapi.com/post-3244/
2019/01/20(日) 22:55:12.40ID:aU4dkoPo
>>602
ありがとうございます。
2019/01/21(月) 09:00:45.75ID:MgnF8xe3
このループw
他言語を推奨してる奴らには馬鹿しかいない。

ExcelVBAのスレなんだからExcelが動いてるのが大前提なんだよ。
そこへノコノコ乗り込んで来てOfficeインスト―ルとか言ってる馬鹿は滑稽。

テキスト処理とかもアホ丸出し。
Excel関係無いなら、そもそもVBAでやる必要全く無い。
そして全くのスレ違い。
2019/01/21(月) 09:04:27.40ID:MgnF8xe3
その後のC#やPythonを組み込んでくれって話はどうでもいい。
入って来たらそれで組むだけだ。
2019/01/21(月) 10:06:31.18ID:NbFzEAOW
終わった話にノコノコ乗り込んでくるウスノロかよww
2019/01/21(月) 12:17:14.05ID:HulQp10o
言われてみればVBAの破壊的仕様変更ってまったく無いよな。
オブジェクトを省略してて挙動が変わったくらいならあるけど。

64bit対応くらいじゃ無いか？
2019/01/21(月) 16:29:48.24ID:0Hj4ohcs
LongPtr型とPtrSafe宣言くらいか
2019/01/21(月) 20:06:20.50ID:mtdQDW0I
>>607
ただパッチいれたら動かなくなったことはあった
2019/01/21(月) 20:57:18.88ID:MgnF8xe3
2007の時、グラフ周りが軒並み動かなくなったことはあったな。
2019/01/21(月) 22:36:48.74ID:+ZXh/xZN
改ページ位置の誤検出がヒドイ。
一旦、改ページプレビューにしてから戻せば大丈夫ですとか、何だよそれ。
2019/01/21(月) 23:15:39.37ID:liT1rB8S
64bitはスクリプトオブジェクトがないとかは？
613デフォルトの名無しさん
垢版 |
2019/01/22(火) 00:07:05.98ID:TC75Tgsq
よろしくお願いします。
あるシートのコピーだけを新規の別ファイルとして保存したいのですが、

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」ではなく、ちゃんと名指しする方法ってないでしょうか？
2019/01/22(火) 00:33:28.43ID:zFHfz07h
いろいろな事情があって、ExcelVBA に専心することになりそうです…Excel VBA から任意の win32api を呼び出すことは可能ですか？
2019/01/22(火) 00:44:54.38ID:KMNb7p7Q
>>613
処理中いじるなと表示させたフォームをモーダルにして処理終わるまで×ボタン消しとくとかは？
2019/01/22(火) 02:38:45.16ID:WVGq8ekA
activeじゃなくてもsaveできるだろ
2019/01/22(火) 05:03:39.16ID:1xYsQegz
>>613
方法１：新規ブックは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 だけで自動的に保存されます。
2019/01/22(火) 05:11:20.49ID:1xYsQegz
Worksheets("集計表").copy
↓修正
ThisWorkbook.Worksheets("集計表").Copy 👀
Rock54: Caution(BBR-MD5:1341adc37120578f18dba9451e6c8c3b)
2019/01/22(火) 08:07:57.46ID:rTM/luD7
>>614
トリッキーな技が技があるかもだけど「任意の」となると単独では無理と思った方がいい
2019/01/22(火) 08:14:29.14ID:J7GVb3Rk
>>614
任意ってのはどういう意味?
動的に呼び出したいってこと?

それだったらかなり高度になる。
2019/01/22(火) 12:45:48.79ID:/p6ZcYuK
declareで追加するだけでしょ
ぐぐればサンプル大量に出てくるし
高度でもない
622デフォルトの名無しさん
垢版 |
2019/01/22(火) 13:00:35.87ID:/wbMKv3O
厚生省の中の人がプログラムで不正するように描いてたのってExcel?
2019/01/22(火) 14:06:11.20ID:Hs2/RF8Y
あれはファイルの更新日をいじっただけだったはず（開いて上書き保存かもしれんが）
2019/01/22(火) 16:11:53.74ID:twW7M/a9
関数間違えたって報道されてなかったっけ
2019/01/22(火) 20:39:31.87ID:J7GVb3Rk
>>621
それは静的に呼び出すということ。

動的の場合は、LoadLibraryとかGetProcAddressとかを使う話になる。

昔、調べまくってサンプル作ったことあるけど、何でも自由に動かせるものじゃなかった。
というより殆どのAPIは動かなかった記憶が。
2019/01/22(火) 20:52:29.66ID:nExxZ55X
LongPtr型とPtrSafe宣言ってそれぞれどういうときに使うんですか？
2019/01/22(火) 20:59:55.76ID:IR20P2NM
>>626
どっちも64bitでAPI呼ぶ時に使うけど、ほかの使い方は知らん
2019/01/22(火) 22:38:47.81ID:CihaJZ6+
Excelはどのくらいポリゴン表示出来るの?

1. PS並み
2. PS2並み
3. PS3並み
4. PS4並み
629デフォルトの名無しさん
垢版 |
2019/01/23(水) 00:32:34.72ID:glGBkXdT
5. PS5並み
2019/01/23(水) 00:54:57.75ID:26O4EHUh
今のPCならオートシェイプで3DレンダリングしてもPS1には楽勝だろう
2019/01/23(水) 01:22:36.39ID:xNUzgFQe
>>617
ありがとうございました！
2019/01/23(水) 03:00:22.02ID:aTlBVQjl
http://blog.livedoor.jp/genkimaru1/archives/2095759.html
2019/01/23(水) 13:19:24.15ID:dfxLcevf
闘神伝のエリスのシースルーは再現可能ということですね。
634デフォルトの名無しさん
垢版 |
2019/01/23(水) 13:59:08.25ID:b9b+73n9
>>625
馬鹿には無理
2019/01/23(水) 15:57:45.44ID:uebkOjvn
もともと「任意の」APIだったのが途中から動的に呼び出す話になってる
2019/01/23(水) 16:19:34.41ID:CpZRwgZL
回答者の連中が勝手に条件を考えて話をややこしくするのも
質問者がそれを修正しようとしないのもこのスレのお約束
2019/01/23(水) 17:37:28.67ID:uebkOjvn
だいたいDeclareなしに呼び出さなきゃいけない要件なんてあるか？
候補となるAPIの範囲なんてどう考えても限られてるだろう。
ジグネチャ情報ごと外部からもらうのか？
2019/01/23(水) 21:06:47.46ID:e5qX8jhS
>>637
プラグインdllを呼び出すような要件だな。
プラグインdllを指定のフォルダに入れてもらうようにしておいて、呼び出し方はこちらで決めておく。
指定フォルダからdllファイルを列挙して、ファイル名と、決められた通りの呼び出し方で呼び出すやり方になるからDeclareは使えない。

まあ、めったに無いだろう。

>>635
「任意」の意味がよく分からん。
動かしている最中に「任意」のAPIを呼び出したいという意味かと思った。
それともcdecl呼び出しのAPIは基本的に出来ないっていうような話をすれば良かった?
まあ、DispCallFuncでゴニョゴニョで出来るんだけども。
2019/01/23(水) 22:47:22.53ID:9/VHRHNs
VBAでは（トリッキーなことしないと）作れない引数型のAPIのこととかじゃね？
640デフォルトの名無しさん
垢版 |
2019/01/24(木) 09:54:58.66ID:9Yy7hd5n
初歩的かもしれない質問でお恥ずかしいのですが、知恵をお貸しいただきたいです。

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

のようになっています

自分でも一通り調べてみたのですが、どうしてもしっくり来るものが見つかりませんでした。

どうぞよろしくお願い致します。
641デフォルトの名無しさん
垢版 |
2019/01/24(木) 12:17:49.04ID:6DEMoFXg
>>638
おまえは頭が悪くて他人にものを教えられる様な人間やない
ちゅう事をそろそろ思い知った方が幸せになれるで
2019/01/24(木) 12:27:34.76ID:kIY0kOtD
>>640
問題を分割して考えよう

1. 最大の値を持つ行（と言うか日時）を取得する → 最大日時とする
2. 以下を最初の行から最後の行までループする
2.1 行が持つ日時と最大日時の日付部分だけ比較する
2.2 日付部分が合致してたらコピーする

で、どこがわからないの？
643デフォルトの名無しさん
垢版 |
2019/01/24(木) 12:37:36.92ID:6BCdjRMd
調べるだけで頭を使っていないのだからわかるわけない
ゆとり教育世代にありがち
2019/01/24(木) 12:38:49.74ID:FgOMH45t
>>641
自分が頭が良いということを全く証明もせずに絡んで来られても困るんだがw

こういう絡み方で頭悪そうだとは思うけどね。
645デフォルトの名無しさん
垢版 |
2019/01/24(木) 12:55:51.34ID:6DEMoFXg
実にバカらしい困り方やね
646デフォルトの名無しさん
垢版 |
2019/01/24(木) 13:12:21.15ID:Ay2CLdQj
>>643
マウント取りたいだけの老害
なんの生産性もないからやめた方がいいよ
647デフォルトの名無しさん
垢版 |
2019/01/24(木) 13:13:31.30ID:+O0AGYtG
hoge.dll だけあるときに hoge.def を作りたいんだけどどうすればいい？
648デフォルトの名無しさん
垢版 |
2019/01/24(木) 13:38:55.05ID:pEQDGUsa
>>646
悔しかったか、ゆとり世代
649デフォルトの名無しさん
垢版 |
2019/01/24(木) 14:52:02.40ID:DfMDGTcZ
>>642
おっしゃる通り１つずつこなしていきたいと思います。

最大値を取得する所まではなんとかなりましたが、最大値が入っているセルの左からoffsetによって値の取得をしようとしています。しかしエラーが出てしまい(91エラー)詰まっています。
2019/01/24(木) 14:57:02.89ID:xR9TqB96
>>647
defファイルってビルドの時に使うもんだけど？
651デフォルトの名無しさん
垢版 |
2019/01/24(木) 15:26:49.03ID:ou4FYlNm
>>649
馬鹿過ぎだろ
もっと悩んでから来い、ゆとり
2019/01/24(木) 15:36:46.38ID:xR9TqB96
罵倒芸術？
653デフォルトの名無しさん
垢版 |
2019/01/24(木) 15:53:26.03ID:DfMDGTcZ
>>651
そうします
ありがとうございます
2019/01/24(木) 16:52:58.88ID:90ICJGKL
>>651
お前なにしにきてんだここに。
最低だな、人として。
2019/01/24(木) 17:31:43.23ID:uc3iE4iQ
>>642で答えを教えてもらっても理解できないような頭の悪さが問題だろう。こんな頭の悪い奴はプログラムするなと俺は思う。
656デフォルトの名無しさん
垢版 |
2019/01/24(木) 17:52:28.54ID:Ay2CLdQj
ほー
>>655くらいの天才になると最初からプログラム完璧に理解できたらしいな
凄い凄い

>>653
めげずに頑張ってくれよ
だれでも最初は初心者だ
2019/01/24(木) 18:00:27.00ID:A3Pe4Ldy
VB6で作ったADOを使ってデータベースからエクセルシート名をComboBoxに入れるソフトがあって、それをwindows10で動かすとエラーで止まるんだけど原因分かりますか？
シート名が一文字の時だけエラーが出るのは分かったけど何か理由だと思いますか？
658デフォルトの名無しさん
垢版 |
2019/01/24(木) 18:15:16.93ID:pEQDGUsa
>>657
ここが何のスレだかわかってるか、馬鹿
2019/01/24(木) 18:58:14.37ID:5lzQ1hz1
>>640
その日付でアドバンスフィルタ。
検索する側の日付と、検索される側の日付は、
何型でもいいから統一する。
LeftやMidと"/"を組み合わせとか、
Format(日付, "yyyy/mm/dd")とか適当に。
2019/01/24(木) 19:06:26.31ID:5lzQ1hz1
アドバンスフィルタが何なのかわからなかったら、
フィルタオプションの設定の使い方を覚えて、
マクロの自動記録をするといい。

ちなみに、ループより激速だから。
2019/01/24(木) 19:32:10.91ID:fZR3dOZW
>>640-642
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 ] }
2019/01/24(木) 21:13:39.94ID:52bEuJTy
>>661
ここが何のスレだかわかってるか、馬鹿
663661
垢版 |
2019/01/24(木) 21:19:22.76ID:fZR3dOZW
>>661
修正

# 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つだけを求めるから、速い
2019/01/24(木) 22:01:17.17ID:KN/tNrgV
>>661は
ﾎﾞｸﾀﾝﾝRubyが出来るんだぞぉおエライんだ。ﾎﾞｸﾀﾝﾝを褒めろぉぉお
Rubyのスレでは褒める奴が居ないからここでエラぶりたいんだよぉお
なウスラバカ
2019/01/25(金) 09:26:57.52ID:VDjD4/gW
他言語質問スレの質問をRubyで解答するスレでもたてれば？
2019/01/25(金) 10:27:26.03ID:OaoSScvY
Rubyスレで相手にされず、ここならドヤ顔できるだろと思って来たのかw
667デフォルトの名無しさん
垢版 |
2019/01/25(金) 12:18:15.80ID:aKVOVgYE
プロさん荒ぶりまくっとってワロタw
2019/01/25(金) 12:37:49.55ID:kDiuvRrn
Ruby信者くんどこのスレでもKYだよね
669デフォルトの名無しさん
垢版 |
2019/01/25(金) 12:52:29.05ID:EnRgcOgq
dumpbin /exports hoge.dll
と
lib /def:hoge.def
でいけるな
2019/01/25(金) 19:43:02.79ID:EKURiA+R
DispCallFuncって最近また流行ってるの？
2019/01/26(土) 07:48:55.80ID:SzhvFgNa
Private Function getIE(arg_title As String) As InternetExplorer
↑
こういう書き型ってどういう意味になるんですか？
普通に関数を作るなら
private fanction 関数名(ByVal 引数名 as 引数の型)
みたいな形になると思うんですが
上記にあげた例でとくに引数を()で閉じた後のas InternetExplorerの部分がよくわかりません
2019/01/26(土) 08:30:57.60ID:0//Vwm17
>>671
"as 引数の型"の意味が理解できるなら
"as InternetExplorer"は簡単に想像つくだろ
2019/01/26(土) 09:22:53.54ID:xtvWXKE/
Private Sub 関数名(引数名 As 引数の型)
Private Function 関数名(引数名 As 引数のデータ型) As 戻り値のデータ型
674デフォルトの名無しさん
垢版 |
2019/01/26(土) 09:34:59.74ID:HSTKeB2g
VBAやってるなんて恥ずかしくて言えないだろ？
2019/01/26(土) 09:38:00.59ID:+NbQI97A
>>671
中の処理を見ないとわからんけど、
そういう書き方をする場合、普通に考えたら、
getIEにInternetExplorerのオブジェクトがセットされて返ってくる。
2019/01/26(土) 09:49:01.06ID:/P2VC+Mr
タイトルバーの文字列からウィンドウを検索する関数だろ
IE操作のサンプルとして、ネットでも本でも色んな所で見かけるやつ
2019/01/26(土) 09:59:33.30ID:0//Vwm17
>>674
あらたまって「俺VBAできます」なんて言うことは無いけど
問題の解決にVBAが最善なら偏見持たずに採用するよ
2019/01/26(土) 10:13:39.98ID:54XYYYdu
初心者に優しくなろうぜ
2019/01/26(土) 10:33:16.30ID:MaEquCGy
どうしても使わなきゃならない場合にはVBAを使う
なにも理由がなければこんなもの使わない方が精神的に健全
680デフォルトの名無しさん
垢版 |
2019/01/26(土) 10:56:55.38ID:z7S/RMkn
Windows10のアップデート1809を適用したらcreateobject("InternetExplorer.application")でオートメーションエラー(実行時エラー -2125463506)が発生するようになりました。

これを回避する方法があれは教示ください。
2019/01/26(土) 11:00:34.08ID:MaEquCGy
>>680
他の言語とSeleniumを使う
2019/01/26(土) 11:08:46.81ID:+NbQI97A
>>680
参照設定もInternetExplorerMediumもダメ?
683デフォルトの名無しさん
垢版 |
2019/01/26(土) 11:09:00.46ID:z7S/RMkn
>>681
会社の方針でOffice以外のアプリや言語は使えません。そのため、VBAのみとさせてください。
2019/01/26(土) 11:13:02.00ID:MaEquCGy
>>683
ではIEも使えないのですね？
685デフォルトの名無しさん
垢版 |
2019/01/26(土) 11:17:13.78ID:z7S/RMkn
>>682
参照設定はInternetcontrolsとHTML object libraryを設定しています。これは適用前と変わりません。

New InternetExplorerMediumでもおなじエラーが発生します。

1809適用前の他PCでは正常に動きます。
686デフォルトの名無しさん
垢版 |
2019/01/26(土) 11:18:26.43ID:z7S/RMkn
>>684
すみません、クロームやエッジは使えませんが、IEは可能です。
2019/01/26(土) 11:32:26.37ID:MaEquCGy
なるほど状況はわかりました

問題の検証にはまず最初に他の言語が必要です
パワーシェルの使用許可を取ってください
2019/01/26(土) 12:31:44.07ID:WRAGgpBx
>>683
マジメな話、本当にダメなのかは思い込みの部分が多いんじゃないかと思うぞ
2019/01/26(土) 12:33:07.15ID:SzhvFgNa
>>672
>>673
>>675
ありがとうございます。VBAは戻り値の型も指定できるんですね。
というか、思い出しました、Ｃ言語でも頭にstringとかintとかつけましたね。
あれが末尾に来てこういう書き方になると。
ありがとうございました。
2019/01/27(日) 07:11:52.32ID:KwlBhw9C
しかしVBAは良くて他がダメっておかしな話だな
使い勝手が違うだけで、大概の事出来ちゃうだろ
2019/01/27(日) 07:15:14.02ID:MJttX1my
>>690
VBAの利用を推奨していないのは他でもないMSだ
2019/01/27(日) 07:25:44.98ID:v6cey9sT
逆に、C#にできてVBA+APIでできないことって何がある？
2019/01/27(日) 07:37:49.03ID:94l2cllZ
ソフトウェアが端末毎に異なると動作検証の障害になるケース
2019/01/27(日) 07:53:57.32ID:e7HDIdYV
もうよそいけよ
695デフォルトの名無しさん
垢版 |
2019/01/27(日) 08:13:04.45ID:/fU4frLP
IE参照とか終わっとる
2019/01/27(日) 08:29:08.12ID:MJttX1my
>>692
そらWebアプリとかスマホアプリとかMac/Linuxとかゲームとか科学技術計算とかいくらでもある
VBA(API, COMなし)で無理なく可能、かつExcelワークシート操作が必要な場合に態々C#を使うのはそれこそ馬鹿の一つ覚えだと思うけどね
2019/01/27(日) 08:59:08.57ID:DsJJt6N4
希に、変数が定義されてませんみたいなエラーが出るんだけど、何だろう?
しかも変な位置で。

Dim a As Long : a = 1
Dim b As Long : b = 1
MsgBox a　　　　　　 　←普通、aにエラーが出るとしたらここだけど、
Cells(a, 1).Value = b　←なぜかこの時点で出る

Excelを再起動しても治らないんだけど、
3行目と4行目を入れ替えて、また戻すと治る。
わけわからん。
2019/01/27(日) 09:48:02.97ID:UZak3JEV
>>697
参照設定を確認かな…
2019/01/27(日) 11:10:55.75ID:RJ6yXKbG
>>697
当方、excel2010の新しいブックでテストしても何の問題もなし
2019/01/27(日) 12:04:29.48ID:5DHtGtFO
>>697
> MsgBox a
で値は表示されてるのか？
表示されてるなら値はどうなっているのか？
2019/01/27(日) 12:48:15.98ID:TaAzn7Fo
>>697
全角空白とか混ざってない？
マルチステートメントもやめよう
2019/01/27(日) 14:13:43.46ID:eEXpRKk5
マルチステートメント推進
2019/01/27(日) 15:18:35.61ID:g3iq6aIo
まじ?
2019/01/27(日) 16:30:18.65ID:DsJJt6N4
>>698
特殊なものはつかってないけど・・。

>>700
表示前にエラーになったから見てないや。

>>701
VBSで全角空白がダメなのは知ってるけど、VBAでは実行できてたので、気にしてなかった。
マルチステートメントって「:」使うやつ?
2019/01/27(日) 16:31:28.53ID:DsJJt6N4
↑途中送信しちまった。

Constは1行で書けるのに、Dimが2行になるのが嫌なので、宣言は1行にしてる。
2019/01/27(日) 16:33:56.14ID:DsJJt6N4
>>699
こっちは2013。
普通は問題ないんだよ。行を入れ替えて戻せば治るから、
構文的におかしいことも無いだろうし。
2019/01/27(日) 18:01:05.46ID:OBIAkwM2
コードのコピペをミスったとかじゃないかな
どこか編集すると大文字小文字や空白が自動的に修正されて直るとか
2019/01/27(日) 18:29:58.57ID:k4Sj+hy8
>>697
たぶんデバッグ中に宣言書いたりしたんやろ？
そう言うことするとバグる。

一旦コードコピーして、モジュール作り直せばいいよ
2019/01/27(日) 18:33:24.52ID:qv2Aznbx
そもそも1列目にはどんな数字が羅列されてるの
2019/01/28(月) 20:10:52.48ID:i9xb9DBB
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)を参照させていきたいんですが
どういう風に書けばいいんでしょうか？
2019/01/28(月) 20:41:36.83ID:9NcZtM+2
Cells(m, 2).Formula = "=MID(" & Cells(m, 1) & ", 15, 5)"

Cells(m, 2).FormulaR1C1 = "=MID(RC[-1], 15, 5)"
2019/01/28(月) 20:42:27.70ID:9NcZtM+2
みすった
Cells(m, 2).Formula = "=MID(" & Cells(m, 1).Address & ", 15, 5)"
2019/01/28(月) 20:47:12.92ID:i9xb9DBB
ありがとうございます、いけました！
2019/01/29(火) 18:20:14.94ID:uYHQBjCX
1から30の乱数字を5回ループした合計を出したい。
同一数字が出ることをよしとした場合のコードってどんなですか？
2019/01/29(火) 18:28:48.64ID:ywRkqTQf
>>714
For i = 1 To 5
　　s = s + Int(Rnd()*30+1)
Next

細かいことを言うと、「同じ数字が出てはいけない」などの条件を付けた時点で、それは乱数じゃなくなる
2019/01/29(火) 19:08:34.73ID:+icPBYbY
>>715
> 細かいことを言うと、「同じ数字が出てはいけない」などの条件を付けた時点で、それは乱数じゃなくなる
べつに乱数が欲しいとは言ってないようだが？
2019/01/29(火) 19:40:09.62ID:dBY1qrqG
「乱数字」ってなんだ？初めて聞く言葉だゾ
2019/01/29(火) 19:42:57.71ID:LpX7EYli
日本語だと乱数、乱数字は中国語で同じ意味
2019/01/29(火) 20:05:34.32ID:KErsf3wp
つまり>>714 は中国の方ということね
2019/01/29(火) 20:10:45.02ID:aCb5tvGW
randbetween(1,30)は？
2019/01/29(火) 21:04:31.66ID:t1GGJDgX
WorksheetFunction.RandBetween
長いな
2019/01/29(火) 21:09:20.18ID:ZMlTx8zG
3D6+5とかをループ使わず一発で計算したいって質問なんじゃね？
723デフォルトの名無しさん
垢版 |
2019/01/29(火) 22:06:13.32ID:5yOKK0P6
int(rnd()*146)+5
724デフォルトの名無しさん
垢版 |
2019/01/29(火) 22:13:12.12ID:TIeo+FQH
>>723←これが世間でバグと言われるものです
725デフォルトの名無しさん
垢版 |
2019/01/29(火) 22:19:46.43ID:5yOKK0P6
>>724
どこがバグ？
726デフォルトの名無しさん
垢版 |
2019/01/29(火) 22:22:56.72ID:TIeo+FQH
>>725
それぐらい自分で考えろやプロさんw
脳ミソついとらんかプロさんの頭にはw
2019/01/29(火) 22:40:58.72ID:2ngnqyHd
>>726
お前が馬鹿
2019/01/29(火) 22:57:33.37ID:ywRkqTQf
>>725
もっと簡単な例で考えれば分かる
1〜6のサイコロ2個と、2〜12のサイコロ1個で合計7の出る確率は、前者は6/36=1/6、後者は1/11
結果(確率)がまったく違うから、同じプログラムとは言えない
729デフォルトの名無しさん
垢版 |
2019/01/29(火) 23:02:31.19ID:TIeo+FQH
ワイは>>727の恥ずかしさをもっと掘りさげたいんやw
2019/01/29(火) 23:06:27.72ID:kf38Yh2H
いつも思うんだが、どういう状況で使うんだよ。
Excelでゲームでも作るの?
731デフォルトの名無しさん
垢版 |
2019/01/29(火) 23:13:55.62ID:TIeo+FQH
話をそらさずにもっと>>727の恥ずかしさを語り明かそうやw
2019/01/30(水) 00:12:38.41ID:7kXOqwqB
数学の確率は人間の直感を裏切ることがけっこうあるから、慎重に扱わないと痛い目を見る
2019/01/30(水) 00:15:46.22ID:mmfL+KpI
乱数が欲しいんて書いてないし
2019/01/30(水) 00:18:07.14ID:yYgJ37mP
確率が直感に合わないのはほとんどの場合解釈を間違えてるだけ
2019/01/30(水) 00:21:14.29ID:Q4JlCs68
バグと確率の問題をすり替えて逃げてる馬鹿がいる。どこにバグがあるか指摘してみろや。
VBAしかしらない馬鹿どもが。
2019/01/30(水) 00:26:30.71ID:4G8qGWeY
「乱数字」という言葉の意味がわからない限り、誰も何も回答できないわけだが
回答者が勝手に問題を作って議論を始めるいつものパターンになってるな
2019/01/30(水) 00:34:51.85ID:3ZvsJrgT
結果が意図と違っていたらバグ
たとえば乱数でサイコロをシミュレーションするプログラムで、どれだけ試行しても確率が1/6に収束しようとしなかったらバグがある
2019/01/30(水) 00:36:43.73ID:ILSDuF01
よっぽど悔しかったんだな。。。
739デフォルトの名無しさん
垢版 |
2019/01/30(水) 07:02:27.20ID:3/CBrgdG
>>735←バグの意味を知らんプロさんwwww
ええでもっと恥ずかしがってもwww
740デフォルトの名無しさん
垢版 |
2019/01/30(水) 12:54:53.35ID:X+zaqEGo
よろしくお願いします。

あるxlsmファイルを、１ヶ月間だけ使える、という形にしたいです。
つまり、各使用者がそのファイルを自分のPCに置いてから、１ヶ月だけは操作できると
いうことなのですが、どのようにしたらよいかわかりません。

ファイルを開いたときに、そのファイルが設置後１ヶ月経っていたら「もう期限切れ」とメッセージを出して
操作を不可能にしてしまうのを考えていたのですが、その設置日というのをどう取得すればいいのか。

「USBメモリなどから、そのファイルがそのPCにコピーされた日」を取得するにはどうすればよいでしょうか？
2019/01/30(水) 13:21:11.92ID:TCBbgKI9
「ブックの作成日」でググって出てきた二つ目のサイト
ttps://www.moug.net/tech/exvba/0130015.html
2019/01/30(水) 18:49:20.66ID:vrvbffTa
鞄
2019/01/30(水) 19:54:50.43ID:E22FaIEN
Excel 2016 (64bit) のVBAで質問です

とある理由で、大規模桁の計算をしないといけなくなったので
取り急ぎLongLong型の配列を作って必要な演算を作ろうかと

そこで、エラーが出て悩んでいる案件と、ちょっとした疑問が

とりあえず、代入されるものが数値であるかのチェックは必要よね…と思い
IsNumeric関数を使おうかと思うのですが
これって、例えば100桁の整数を表す文字列でも通るんでしょうか…って通るみたいなんですが
上限は文字列として扱える上限まで行けるんでしょうか？

計算の都合で商を求める演算「\」を使ったところ、10^12 \ 2^22 あたりの計算でオーバーフローとなりました
（実際には、2^22のところはそのオーダーの定数）
「\」の計算は64bitに非対応なのでしょうか？
2019/01/30(水) 21:02:23.30ID:E37rjQ75
それこそPowerShell呼んでBigInteger使えよ
2019/01/30(水) 22:56:12.99ID:dsQEAAmt
>>740
基準日をどうするかにもよるけど、
一番簡単なのは、If 今日の日付 = 2019/2/28 Then Exit Sub 的なやつ。
2019/01/30(水) 22:59:06.78ID:dsQEAAmt
あ、コピーされた日か。
じゃあFileSystemObject使うとか。
2019/01/31(木) 07:12:05.16ID:Z5McOm4q
コピーされた日なんてどこにも記録されてないんだから取得のしようもないだろ
2019/01/31(木) 07:50:39.64ID:tKdk8GYp
起動時にあるセルが空白なら今の日付入れる。
空白でないのなら、セルの内容と今の日付を比べる。
セルは非表示のシートとかでよくね？
2019/01/31(木) 08:17:14.63ID:mZzaZtfh
>>744
別に作成されているマクロのコンポーネントになるので不採用ですね…。
2019/01/31(木) 10:24:09.90ID:ivIRiWY+
スルーされてるけど>>741に日付取得のソースが丸々載ってますよ
余程変なことをしなければ、コピー日時はファイルの（≠エクセルのプロパティ）の作成日時です
適当なセルをパスワード保護して、ブックモジュールのOpenイベントに空白条件で日付を入れるコードを書けば初回起動で記録されます。

>>743
\演算子が良く分からないのですが、除算の結果から小数点以下を消すという意味なら
Int(10 ^ 12 / 2 ^ 22)
でどうでしょうか
2019/01/31(木) 12:39:08.81ID:xxTKFGAk
>>749
WScript.Shell で呼べばいい
VBAのソース内に書いたPowerShell実行できるぞ
2019/01/31(木) 12:43:51.49ID:B2lY3/DV
>>751
何でそういう面倒くさい方法にしなきゃならんの?
VBAじゃどうにもならんという結論か?
2019/01/31(木) 12:52:33.19ID:xxTKFGAk
>>752
VBAでやろうとすれば自前で多倍長整数演算を実装する必要があり、開発とテストで誇張抜きで工数数百倍かかるよ
754デフォルトの名無しさん
垢版 |
2019/01/31(木) 16:39:19.38ID:aH0rCOCG
>LONGLONG

>100桁の整数

あほですか
2019/01/31(木) 19:07:59.37ID:B2lY3/DV
>>753
だからさ、まずお前の結論としてVBAじゃ無理というのがあって、それからだろPowerShell云々は。

で、本当のところ、無理かどうかは分からんが、仮に無理だとしてどうしてPowerShellになるんだ?
別に他でも良いわけだろ。
2019/01/31(木) 19:08:45.03ID:2eoSLZbf
>IsNumeric関数を使おうかと思うのですが

On Error Resume Next
数字じゃないとエラーが起きるような処理
エラーが起きたら終了みたいな
On Error Goto 0
2019/01/31(木) 19:28:01.37ID:ivIRiWY+
>>743
>>IsNumeric関数を使おうかと思うのですが、上限は文字列として扱える上限まで行けるんでしょうか？

ちょっと質問内容が良く分からないのですが、

・そもそもLongLong型（64bit＝8バイト）の話では無かったのですか？100桁とは？
・ヘルプに有る通り文字列型の上限は2GBですが（以下同様）

仮に2GBの判定が出来たとしても、その膨大な時間を使うよりは例外処理してしまった方が早いと思います。
2019/01/31(木) 19:28:54.99ID:kne0z8/A
>>743
よくそんな仕事請け負ったな、依頼者に騙されてないか？
2019/01/31(木) 19:31:09.20ID:ivIRiWY+
お話を聞いてる限り、恐らく元々の依頼内容も勘違いされている部分があると思うので、
差し支えない範囲で教えて貰えれば根本的な部分に回答が出来るかもしれません。
2019/01/31(木) 19:31:49.59ID:ivIRiWY+
みんな同じ様な事言っててワロタ
2019/01/31(木) 21:50:14.70ID:xxTKFGAk
>>755
別にPowerShellでなくてもいいけど、標準のWindowsだけで特に追加で何か入れることなく使えて
多倍長演算もサポートしててVBAから簡単に呼べるのなんて他にある?
762デフォルトの名無しさん
垢版 |
2019/02/01(金) 01:19:40.80ID:UQQ7ub0a
>>757
そちらの質問は興味本位です。与えられた数値に見える文字列を信じるなら不要です
それと、LongLong型で済むなら配列はいりませんし

やりたいことは、例えば「100桁同士の四則演算をする」というようなことです。
コンパイラのインストールをセキュリティポリシーで禁止されているので
困っているのですよ。

>>759
そちらは時間があれば勉強してみようかと
ただ、それで実装すると引き継ぐときに後の人が大変そうですが
2019/02/01(金) 02:51:10.44ID:Jdk/7rOF
100桁ぐらいなら、Ruby でも演算できる
2019/02/01(金) 03:10:10.30ID:HKJPuzL8
>>762
あまりに馬鹿過ぎて話しにならん
どうして馬鹿と言われるか理解できるか？
2019/02/01(金) 04:03:45.69ID:bJm3iiDn
>>750
初回起動で設定しても元のブックをコピーし直せば何度でも使える
何の条件で期間指定したいのかわからないけど
パソコン限定ならレジストリでも使うのかな
2019/02/01(金) 07:03:41.22ID:gp0X8o+d
>>743
言語の動作もわかっていないこんな奴に依頼するなんて。頼む方も頼む方。
2019/02/01(金) 07:18:07.26ID:76fUr+Yk
Excel VBAの質問スレだろ
質問も回答もする気無いならスルー出来んのか？
768デフォルトの名無しさん
垢版 |
2019/02/01(金) 07:44:04.79ID:eMw5OSNU
答えられない質問はとりあえず馬鹿にして勢いで乗り切る方針のプロさんw
バカwww
2019/02/01(金) 08:37:10.62ID:UEAxmDKm
ComboBoxで↓を押して表示されるリストの行数は固定でしょうか？
表示行数を増やす方法がありましたら、ご教授ください

よろしくお願いします
2019/02/01(金) 08:51:37.94ID:76fUr+Yk
>>765
Excelのレジストリ操作だと簡単なのはそのパソコンのユーザー毎の設定だな
無論APIを使えば何でもできるけどね
所詮はバーチャルマシンも考えればユーザー側も何でもできる
その程度と思って使うか　ネットにDB持つかだな
2019/02/01(金) 08:51:40.44ID:8kRZ6Lw/
最近はexcel2010とVB.netで改元対応しています。
excelのイベント少ないなって思っているのですが、2016などの新しいのはイベントや関数などは増えているのでしょうか？
2019なんかはタブレット操作用のイベントもあったりするとかでしょうか？
2019/02/01(金) 09:05:53.38ID:qPCno0Ra
なんかすごいところだな
>>764とか上から目線ってかもう天から垂直に見下ろして魔法打ち込んでるレベルだな
しかも書き込んでる時間が深夜3:00とか超絶生活者
2019/02/01(金) 10:01:49.43ID:FlvBcwUR
763 名前：デフォルトの名無しさん[sage] 投稿日：2019/02/01(金) 02:51:10.44 ID:Jdk/7rOF
100桁ぐらいなら、Ruby でも演算できる


ｹﾞﾗｹﾞﾗｹﾞﾗｹﾞﾗｹﾞﾗｹﾞﾗ
2019/02/01(金) 10:50:03.45ID:3Ud/K8J0
>>773
計算するライブラリーが有るってことじゃないの
Rubyしらんが
2019/02/01(金) 10:54:24.80ID:rRNrmt+/
>>771
VBAはレガシー扱いだからMSのポリシー的に積極的な機能追加は不可
ちなみにVB.NETのWindowsフォームも既にレガシーで開発終了してる
2019/02/01(金) 10:55:12.36ID:3Ud/K8J0
>>773
計算できるライブラリーがあるだけじゃないの
どんな言語でも、４則演算程度なら作れるだろ
2019/02/01(金) 10:56:26.07ID:wTTD69jh
VBAだって超多倍長演算ライブラリぐらいネットに転がってんじゃない？
ちなLongLongで扱えるのは18桁まで、乗除算でオーバーフローを起こさないようにするなら半分以下の桁で使うのが無難
2019/02/01(金) 10:57:36.71ID:3Ud/K8J0
すまん、ダブって書き込みしても〜た
779デフォルトの名無しさん
垢版 |
2019/02/01(金) 15:50:46.63ID:eD54qyaY
VBAなんて低級言語を真剣にやってるバカ
言い訳は色々あるんだろうけどそろそろちゃんとしたのを覚える時期だよ
2019/02/01(金) 16:15:57.80ID:9mJigrZN
>>779
心が病んでるな、かわいそうに。
2019/02/01(金) 17:19:33.59ID:oMFegD+z
低級言語・高級言語の意味すら分かってないのって
かわいいな
2019/02/01(金) 18:56:31.92ID:dMBA0PwK
もしレベル的な意味合いで貶すなら下級または低俗じゃないかな
低級だと金額的な意味合いだからオフィス製品みたいな安い言語使いやがって、という意味か
高い開発言語ってなんだろ
2019/02/01(金) 19:14:07.93ID:OpRhgdeW
>>779
お前の馬鹿頭ではアセンブラは何言語になっているんだ？
2019/02/01(金) 19:21:01.59ID:69So7CMb
どんな状況で100桁の計算が必要なんだよwwwwww
弾道計算でもするのかよwwwwww

どうしても必要だとして、
16777216を、256×256×256で表現するRGBみたいに、
分離して計算できないの?
2019/02/01(金) 19:48:56.75ID:oMFegD+z
桁数じゃあなくて精度の問題だろ
何桁精度が必要か
全部なら分けて計算するんだろ
整数限定かよ
2019/02/01(金) 20:43:56.48ID:ldeBmXAI
>>762
Mid関数がString型の限界である20 億文字（桁）まで対応出来るようなので、限界まで判定可能です。
実際に試そうと思ったのですが、1000万桁あたりからエラーは起きないものの処理が終わる気配がありませんでした。
また、311桁目から判定がFalseとなり正常に判定できませんので注意してください。
787デフォルトの名無しさん
垢版 |
2019/02/01(金) 21:29:30.54ID:6BaLLxbK
>>772
腹筋イタイｗｗｗ
2019/02/01(金) 21:35:52.61ID:yy1ts1sJ
>>782
>低級だと金額的な意味合いだから
は？？？？？？？？？
789デフォルトの名無しさん
垢版 |
2019/02/01(金) 23:01:14.33ID:UXXgl86T
>>764
中学生かそれ以下の質問だな
790デフォルトの名無しさん
垢版 |
2019/02/01(金) 23:02:01.30ID:UXXgl86T
>>769
64kbの壁でぐぐれ
2019/02/02(土) 02:17:14.50ID:nzR6xkI9
>>786
こんな馬鹿に人月とかで請求されたらブチ切れる
馬鹿だから時間を食うだけだろ
2019/02/02(土) 03:55:47.52ID:XBSRuYVd
機械よりか人間よりかで低いか高いか
2019/02/02(土) 06:09:03.94ID:jIzNjlQE
>743
何桁通るかは別として、IsNumericって例えば"1.2e3"とか"\30"とかでもTrue返すんだけど、それはいいの？
2019/02/02(土) 09:04:05.51ID:jIzNjlQE
あと"&hDEADBEEF"とか"&o77"とか
ついでに全角/半角が混在しててもTrueだし、文字列の前後にスペースタブ改行なんかが入っててもTrueだね
2019/02/02(土) 11:42:55.97ID:QW9QiURg
declareのシグニチャー間違えたらフリーズするんだけどdllから型情報取れないの？？？？？
2019/02/02(土) 13:15:40.31ID:C6ef9W0S
>>795
調べりゃ出てくるんだからそんな面倒なことしなくてもよくね？
2019/02/02(土) 19:22:50.38ID:VsnxbMPu
そんなに桁数使うことあるの？
桁数ならアセンブラなら言語的な制限がないから
C++のインラインアセンブラで作ってDLL化しておけばいいんじゃない？
ま、あまり桁数が多い場合は外に出しても数字として扱えないだろうから
文字列として扱うしかないけど
2019/02/02(土) 20:08:24.01ID:mZCa7M9L
>>797
アホか
CPUがネイティブで扱える桁数は決まっている
2019/02/02(土) 21:45:51.31ID:l+0aiRcv
8bitCPUがネイティブで扱える電卓は決まっている
2019/02/02(土) 22:18:38.36ID:Ep74GMaU
昔々、256桁の四則演算ルーチン組んだことある。アセンブラで。
今なら VBAでも同じくらいの速度で動くんだろうな…
2019/02/02(土) 22:40:50.50ID:nzR6xkI9
このスレで質問する薄ら馬鹿に匹敵する馬鹿ばっか
Python3使えよというまともな提案が未だなし
2019/02/02(土) 22:57:11.62ID:IQGxMEya
801＜ｶﾏｯﾃｰ、ｶﾏｯﾃｰ、ﾎﾞｸﾁｬﾝｦ ｶﾏｯﾃｰ
2019/02/02(土) 23:30:42.83ID:32vETS5N
シート１をアクティブにしてWEBクエリで取り込んだあとReplaceで置換したいのですが
うまくいきません。なぜかF8でステップ実行したらできるのですが、普通に実行すると置換されません。
何がいけないんでしょうか。
2019/02/03(日) 00:12:07.90ID:1X9tFGjy
>>798
アホか桁繰り上げ繰り下げのフラグを知らんのか？
むかーしのZ80や6502だってメモリの許す限り
際限なく計算出来るわ
2019/02/03(日) 00:35:40.02ID:1X9tFGjy
そもそもそう言った計算方法を
知らなかったとしても
8bitや16bitしか演算に扱えなかった時代に
テレビゲームとかで255や65535を超える
スコアが表示されていたことを思い出せば
普通は人をアホ呼ばわりすることを
書き込む前に気付きそうなもんだけどな
2019/02/03(日) 06:14:34.05ID:eVzJd4zP
そういう処理をアセンブラでしかできないと思ってるからアホだって言われるんだよ
2019/02/03(日) 06:43:05.61ID:Q6V8DKqV
多少非効率になるけどたいていの言語で多倍長演算はできる
なので
> 桁数ならアセンブラなら言語的な制限がないから
とか意味わからん、って話だろ
2019/02/03(日) 06:57:12.02ID:1X9tFGjy
>>806
いや>>798はあからさまに
「CPUがネイティブで扱える桁数は決まっている」からって言ってるんだが？

それに俺は実現方法の一例を挙げただけだと思うが「アセンブラでしか出来ない」なんて
どこに書いてあるんだ？

もっとも、桁数制限のない計算を
もっと効率よくVBAで使用する方法が
あるのであればそれはそれで聞いてみたいけど
2019/02/03(日) 07:06:03.78ID:1X9tFGjy
>>807
効率を考えなければ別にC++の時点で出来るんだよ
なんでC++からインラインアセンブラを
使用するような話をしていると思う？
2019/02/03(日) 07:34:17.85ID:Q6V8DKqV
>>808-809
>>797を見てからレスしなよ…
2019/02/03(日) 08:52:19.94ID:kk/DtOkp
>>805
まあ、単位が100点だと、後ろの00は飾りだと思うけどな。
2019/02/03(日) 09:10:44.36ID:eVzJd4zP
>>808-809
なに効率とか後付けしてんだアホ

あと「コンパイラのインストールをセキュリティポリシーで禁止されている」って書いてあるのを読めてないのもアホ
813デフォルトの名無しさん
垢版 |
2019/02/03(日) 09:36:56.46ID:C7VVL/VH
ゼビウス1000万点超えは9999990で表示が止まるがゲーム続行
2019/02/03(日) 09:40:40.04ID:J1QLe6/n
足し算ならExcelでも実用レベルで作れるわ
2019/02/03(日) 10:00:11.19ID:tEc8TngX
>>812
> あと「コンパイラのインストールをセキュリティポリシーで禁止されている」って書いてあるのを読めてないのもアホ
今時C#とかVB.NETのコンパイラなんてインストールいらんぞ
情弱なのかXPでドヤってるのかは知らんけどw
2019/02/03(日) 10:19:47.32ID:vrXjtSxX
>>812
今のWindowsはインストールしなくてもC#コンパイラが最初から入ってる
2019/02/03(日) 10:39:36.74ID:eVzJd4zP
誰がC#とかVBの話してんだよアホども
2019/02/03(日) 11:12:27.82ID:tEc8TngX
>>817
コンパイラの話な
恥ずかしいからもう出てくんなw
819デフォルトの名無しさん
垢版 |
2019/02/03(日) 11:42:00.66ID:o6ig8vkN
>>818←恥を知らないプロさんwww
2019/02/03(日) 12:05:01.97ID:Q6V8DKqV
ダサw
2019/02/03(日) 15:02:23.40ID:kTgfWuu8
>>817
日本語に不自由か真性のバカ発見
2019/02/03(日) 15:51:29.62ID:xJhhUajw
ｈｔｍｌ？のようなパラメーターのあるURLから　ActiveSheet.QueryTables.Add　を使って
WEBクエリで取り込むにはどうすればいいでしょうか？
一部変数を使うのですが文字列を結合するやり方ではうまくいきません。
2019/02/03(日) 16:02:39.05ID:vrXjtSxX
>>822
認証やクッキーが必要か、URLが間違ってるか、エンコードが必要か、原因は色々考えられる
824デフォルトの名無しさん
垢版 |
2019/02/03(日) 22:56:23.72ID:xJhhUajw
>>823
エンコードが原因みたいです。
&や=は使えないのですね。
返信ありがとうございました。
825デフォルトの名無しさん
垢版 |
2019/02/03(日) 23:53:48.67ID:OgrV47La
以下のアプリを作って欲しい

画面上でオンスクリーンかなんでもいいので、文字が瞬間的に現れて消えるアプリ。
１つのばりばらに並んだ文字につき！約1秒から0.05秒の間で調節できるようにしたい。

文字のデータベースは、同ブック内の別シートにて管理するものとする。
2019/02/03(日) 23:59:07.80ID:I0mCFuyH
>>825
死ね
827デフォルトの名無しさん
垢版 |
2019/02/04(月) 03:07:11.70ID:ZoDPv0KA
>>825
ExcelとかVBAじゃなくていいなら作るけど
2019/02/04(月) 06:46:04.48ID:d8a/a/xM
>>825
作るのは他の要件が有るだろうから他の人に
Excelのシートから枠線を消して全画面表示
ランダムに出す文字はワードアートを挿入したり
消すだけでいいだろ
2019/02/04(月) 07:25:45.63ID:d8a/a/xM
>>824
>&や=は使えないのですね。
エンコードでは使えるだろ、デコードはデコードする
文字の法則があるけど
ちなみに、エンコードやデコードは必要なの？
2019/02/04(月) 07:29:54.23ID:d8a/a/xM
このスレもワッチョイ入れたら？
831デフォルトの名無しさん
垢版 |
2019/02/04(月) 08:04:31.54ID:q/1gUcq+
>>827
じゃあ、Androidアプリでいいから、つくってフリーでGoogleストアにだせる？
2019/02/04(月) 08:24:31.69ID:zwEJkqhi
ルパン三世？
2019/02/04(月) 09:55:11.03ID:fGXzCPh9
>>831
Androidアプリ関係ないだろ
VB C#なんかでCVS形式などでパラメーターで受けて表示するプログラムなら簡単に作れるってことだろ
2019/02/04(月) 10:53:03.12ID:Kbv/gmVc
フラッシュ暗算みたいなやつか？
835デフォルトの名無しさん
垢版 |
2019/02/04(月) 12:14:30.52ID:q/1gUcq+
>>834
イエス。言語を選ばないとやっぱり難しい？
2019/02/04(月) 12:40:18.01ID:OuHrukdw
>>835
別にVBAでも簡単だと思うけど作成依頼だったら費用が発生するのが普通だと思うんだが。

0.05秒ってのがどうかだね。
837デフォルトの名無しさん
垢版 |
2019/02/04(月) 12:58:23.32ID:+5141PVg
費用が発生しとる作成依頼なんか見たことないわw
何を言っとるんやこのバカw
2019/02/04(月) 13:05:48.06ID:aEyGOWy8
>>835
死ねよ
2019/02/04(月) 14:32:52.57ID:d8a/a/xM
>>835
別に難しくない
0.05秒を気にしている人もいるが、正確な時間を取得することは出来る
ワードアートの作成・削除の時間を気にしているなら、表示・非表示の切り替えで
対応すればよいだけ
全画面表示・タイトルバー・スクロールバー・シートタブの非表示
ボーダーも0に設定すれば良いだけ
2019/02/04(月) 14:47:47.78ID:Mgc+6WQD
取得できても(人間の反応速度と比較して無視できる程度の誤差で)正確に表示するのはExcelでは厳しいでしょ
ちらつきまくるよ
2019/02/04(月) 15:08:11.96ID:d8a/a/xM
まあ、出来ない人間には出来ないだけ、書き込む必要もないのに
やり方なんていくらでもある
2019/02/04(月) 17:01:02.28ID:fGXzCPh9
細かいこといわなければパワポでVBAで十分だろ
2019/02/04(月) 18:26:41.76ID:OuHrukdw
>>841
やってから言ってんの?
俺はまだ、やってないから気にしただけなんだが。

ちなみに、俺はVBAのUserFormもシートも使うつもりは無い。
スピードも速いとは思うが、何ぶん計測したことは無いからね。
2019/02/04(月) 18:38:32.34ID:OuHrukdw
>>837
自分は何もせずに依頼すれば出てくるというのは虫が良いだろという意味なんだが。
2019/02/04(月) 18:51:55.31ID:VG0XR/Gw
でも結局誰も作ってなくて草
2019/02/04(月) 18:53:45.79ID:fefAq5Di
まあ　出来の悪い奴は文句も多いからな
2019/02/04(月) 19:28:29.36ID:iZ37iel0
CSS アニメで作れば？
848デフォルトの名無しさん
垢版 |
2019/02/04(月) 19:59:53.09ID:q/1gUcq+
>>845
1に作成依頼受け付けますと書いてあったから期待して依頼したが、馬鹿を見たよ
2019/02/04(月) 20:02:20.97ID:aEyGOWy8
>>848
じゃあ、
｢ExcelのVBAに関する質問スレです｣も守れや。死ねよ。
850デフォルトの名無しさん
垢版 |
2019/02/04(月) 20:08:32.00ID:5NG821Xc
>>848
分かったよ
受けるよ
2019/02/04(月) 20:19:41.54ID:R+dJYoTm
vbaやってるサラリーって何故かマッチョ多くね？
2019/02/04(月) 20:54:17.47ID:VG0XR/Gw
>>848
https://www.axfc.net/u/3957636
初学者が作ってやったぞwほらよｗ
まぁもっと良いの>>850が作ってくれるやろｗ
2019/02/04(月) 22:43:34.77ID:lmibofpe
エディタは別のを使わずに備え付けのものを使いますか？
2019/02/04(月) 22:52:12.63ID:WAN0VVnl
高速でシートを切り替えるとか、
ふざけるのかと思ったら、結構真面目に作っててﾜﾛﾀ。
2019/02/05(火) 08:19:52.51ID:8bHFC9p3
>>854
後で見てみるけど、仕様になかったインターバルの時間とか可変で設定できる？
2019/02/05(火) 08:25:47.35ID:Bt9udYT0
フラッシュ暗算て何？
てっきりルパン三世だと思ったんだが
2019/02/05(火) 09:46:15.11ID:seWX9f2k
>>856
画面に数字が次々に出て暗算で合計を求めるやつ
https://www.youtube.com/watch?v=wTkVZne-i2g
2019/02/05(火) 10:20:39.56ID:Kjw5jSR6
>>857
まあ、これが評価できる最低限の仕様だな
2019/02/05(火) 10:22:40.38ID:Kjw5jSR6
ちゃんとしたのを、>>850が作ってくれるやろ
ことを期待しよう
860828
垢版 |
2019/02/05(火) 11:08:12.53ID:Kjw5jSR6
>>828　デフォルトの名無しさん2019/02/04(月) 06:46:04.48ID:d8a/a/xM
>>825
> 作るのは他の要件が有るだろうから他の人に
> Excelのシートから枠線を消して全画面表示
> ランダムに出す文字はワードアートを挿入したり
> 消すだけでいいだろ
最低限でもこの程度のことやれよっと、ワードアートの動作速度が問題なら全て作成してから
表示非表示を切り替えるだけだよっと
2019/02/05(火) 11:15:39.50ID:seWX9f2k
>>852　
↑これで骨組みは十分だろ
2019/02/05(火) 11:22:46.31ID:Kjw5jSR6
>>861
こんなの客に提示するとすぐ帰っていくよ
イメージが違い過ぎる
2019/02/05(火) 11:25:28.34ID:Kjw5jSR6
行間を読めない奴はいつまでたってもろくなもの作れないんだよ
おれは、年取ったから行間いっぱいある奴は遠慮するけどな
2019/02/05(火) 11:53:42.93ID:Kjw5jSR6
ちゃんとしたのを、>>850が作ってくれるやろ
ことを期待しよう。
865デフォルトの名無しさん
垢版 |
2019/02/05(火) 12:15:44.59ID:jg7BNmXb
なんやバカ必死やなw
2019/02/05(火) 12:19:32.33ID:8bHFC9p3
>>865
面白いな何で草はえるの
2019/02/05(火) 12:32:36.37ID:Kjw5jSR6
>>865
ちみぐらいバカをからかうのって私の趣味ではありません
あわれ過ぎるから
868デフォルトの名無しさん
垢版 |
2019/02/05(火) 12:53:49.77ID:jg7BNmXb
加速するバカw
869852
垢版 |
2019/02/05(火) 12:54:18.46ID:uJYvVabq
>>855と>>857の要素を気持ち取り入れてみたよ
あとはもうシラネ
https://www.axfc.net/u/3957750
870852
垢版 |
2019/02/05(火) 13:02:38.95ID:uJYvVabq
間違えた。こっちで
https://www.axfc.net/u/3957753
2019/02/05(火) 13:05:08.57ID:Kjw5jSR6
>>869
知らねえと言われても

ファイルが見つかりません
既にファイルが削除されたか、期限切れになったか、ダウンロード上限数に達した、若しくは誤ったURLが指定されています。
再度ご確認下さいますようお願い致します。
2019/02/05(火) 15:50:53.68ID:Kjw5jSR6
>>870
今さっき起きた。
ソースを１分程度見たけど、毛が１本生えただけだろ
オリジナル性もない、引かれている部分もありで
評価はマイナスだな、マクロを動かす気にもならん
2019/02/05(火) 16:03:55.64ID:Kjw5jSR6
>>857
ホントなんだよ、この映像少なくとも全画面表示で
他の表示はテスト中いらないは
結果は、答え合わせでちゃんと出るようにな
問題作成だって、何の機能もないって考えてないだろ
指定した桁数で数字を作成しろよ・・・こんなの仕様の内の一寸な
2019/02/05(火) 16:18:43.72ID:Kjw5jSR6
>>870
テストしないのは申し訳ないと思ってもう一度２０秒ぐらい見た
あまりにごみで、テストしてない
875デフォルトの名無しさん
垢版 |
2019/02/05(火) 20:09:31.48ID:2313QgIt
必死すぎてアンタッチャブルのバカw
2019/02/05(火) 20:30:50.84ID:seWX9f2k
金もらえるならきちんと作るだろうけど金出さないんでしょ？
2019/02/05(火) 21:01:45.45ID:WLSIITfa
きちっとって　このレベルを１００倍してもくずはくずだな
2019/02/05(火) 21:13:23.45ID:seWX9f2k
ただでもらったものにケチつけるって人間としてクズだな
2019/02/05(火) 21:45:13.17ID:84y7DIGj
なんかつらいことがあったんでしょ
そっとしといてあげなさい
880852
垢版 |
2019/02/05(火) 23:50:58.70ID:uJYvVabq
ユーザーフォームに変えてみた
あと少し機能を足してみた
https://www.axfc.net/u/3957855
2019/02/06(水) 00:44:18.42ID:ZnA/X3oO
A　B
1　あ
2　い
1　か
2　き
3　く
1　さ
1　た
2　ち

となっているデータを、連番でまとめて

あい
かきく
さ
たち

とするにはどうすればいいですか？
2019/02/06(水) 01:00:17.91ID:Piy/PJ2X
>>881
死ねばいいよ
2019/02/06(水) 05:43:02.95ID:DSThmZXP
死ねばいいよ
2019/02/06(水) 10:06:21.68ID:pkuTd0pW
>>881
関数で直接は難しいけどVBAでやるなら簡単だろ
ただそれもわからない人間に提示しても無駄だな
2019/02/06(水) 10:48:09.84ID:pkuTd0pW
>>880
マクロを実行してみた、君は自分で考えてるんで良いと思う
１．出力する問題は固定ではなく文字とか長い数字もいらない
　　桁数（上限・下限）を指定してランダムに数値を発生すること
　　フラッシュ暗算を考えると余分な機能はいらない
２．バックを全画面表示にすること
　　もちろん、画面の中央に表示する、画面の大きさから割合で文字の大きさを指定する
３．タイミングをｍｓで指定指定しているが
　　ディスプレーって最大解像度ではリフレッシュレート60hz（16.6msおき）程度なんだよ
　　ディスプレーの反応速度も早くて5msかかる、10ms単位で十分だが、好みはある
４．答えの表示がチェックだが
　　要するに終わった後、計算が合ってるかを確認するんだから
　　終了後に特定のキーを押したら答えを出すでいいだろ
ざっくり、大きく気になった点だけ、やり方は分からなければ聞け
2019/02/06(水) 10:57:13.19ID:pkuTd0pW
全画面表示は数字表示部をユーザーフォーム（全画面）で表示文字をVBAで切り替えたほうが簡単だな
2019/02/06(水) 11:03:53.28ID:inxqkSwn
上司気取りの人が上から目線でダメだしし出したけどこの人どんだけ偉いの？
まさか感謝でもしてもらえるとか妄想してんのかな
2019/02/06(水) 11:26:06.43ID:pkuTd0pW
>>887
で、君にはどんなダメ出しが欲しいんだ？
2019/02/06(水) 11:34:27.39ID:pkuTd0pW
まあ、自分で作って「フラッシュ暗算」で面白いものを作ってみろよ
自分で満足できないものは、他人は評価しないよ
890デフォルトの名無しさん
垢版 |
2019/02/06(水) 12:26:19.63ID:FGND1cQA
おいwこのバカ必死すぎてダメ出しとかしだしたでw
891デフォルトの名無しさん
垢版 |
2019/02/06(水) 12:43:34.25ID:eyuAOAwV
>>881
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

答えやアドバイスをしないでマウントしてくるやつは結局何も出来ないやつと同じなので放置で。
892デフォルトの名無しさん
垢版 |
2019/02/06(水) 12:45:00.03ID:eyuAOAwV
あ、質問の意味まちがえてたｗ
2019/02/06(水) 12:50:23.01ID:oteDmMe3
>>892
だよね
ひらがなのあ行か行…で括るっぽいし
2行目の2と4行目の2が紐づく1が違うから考えれば出来そうだけど面倒そう
2019/02/06(水) 12:56:44.95ID:pkuTd0pW
>>893
え、どんだけ
2019/02/06(水) 12:58:37.07ID:pkuTd0pW
バカって、すぐ熱くなるよな、面白いけど
896デフォルトの名無しさん
垢版 |
2019/02/06(水) 13:07:21.25ID:eyuAOAwV
これでどうや！ｗ

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
2019/02/06(水) 13:15:51.19ID:pkuTd0pW
>>896
>これでどうや！ｗ
何に対して言ってるのかな？。なんだろう？こんなの提示して？
よくわからんな
898デフォルトの名無しさん
垢版 |
2019/02/06(水) 13:22:01.82ID:eyuAOAwV
>>897
ばっかだなぁ、881に対していってんだろｗ
つかお前マウントとることしかしないASDのザコという認識だから何も求めてない。レスいらない。
するならちゃんと自分で作ったものを提示してからだ。できたらあやまる。
2019/02/06(水) 13:25:32.81ID:pkuTd0pW
例えば
「Do While Range("A1").End(xlDown).Row >= i 」
こんなの"A1"と変数jとiが同期できていないことでプログラムじゃないよ
2019/02/06(水) 13:27:12.93ID:pkuTd0pW
>>898
うふ〜面白いな
2019/02/06(水) 13:30:48.46ID:pkuTd0pW
>>898
からかうしかないけど、>>881って何か意味あるんか？
バカって面白いな
2019/02/06(水) 13:34:49.77ID:pkuTd0pW
>>898
頭悪いのに大変だな
903デフォルトの名無しさん
垢版 |
2019/02/06(水) 13:37:03.76ID:eyuAOAwV
>>899
いや、そうじゃなくってよ。

俺はプロじゃないから変なことしてるかもしれない。いやあるだろう。
そいでお前は凄いのかもしれないけど結局何も作ってないわけだろ？
それって何も出来ないのと同じなんだから偉そうにするなって言いたいの。
お前さ、俺の言っている意味解ってる？
2019/02/06(水) 13:41:27.75ID:pkuTd0pW
>>903
無能が無能に教える意味あるか、無能が威張る意味あるか？
役に立つってなんだよ？
お前の満足は何だよ、作ったってことか？
905デフォルトの名無しさん
垢版 |
2019/02/06(水) 13:43:57.13ID:eyuAOAwV
>>904
ん？お前無能なの？無能なのに威張ってるの？ダメじゃん。
役に立つって何？満足って何ってどういう意味？
俺はそんなこと書いてないけどそれはどこから出てきたんだ？
お前ののーみそか？
2019/02/06(水) 13:44:16.40ID:pkuTd0pW
おれがこのスレで作っても意味ないからな質問スレだ答えるだけ
907デフォルトの名無しさん
垢版 |
2019/02/06(水) 13:53:46.56ID:eyuAOAwV
ああ、そういうことか。
質問には答えるけど代りにお前が作ることはないって意味でいいのか？
それがお前のポリシーなら俺はお前に口はさまないよ。
偉そうにされて終わるだけみたいだからお前には質問もしたくないけどな。

質問してるやつはいろいろ試して困ってるんだろ？
俺は動くもの見せて、あとは自分で工夫するなりなんなりした方が良いと思ってる。
だって、具体的なほうが解りやすいじゃん。
それに対してお前がどうこう言うことはないだろ？俺はお前に何も聞いてないんだから。
2019/02/06(水) 13:57:29.30ID:pkuTd0pW
>>907
まあ、補足すると具体的なものを使えるのは少し考えたやつ
考えない奴は応用できない、だから答えではなくヒントなんだがな
909デフォルトの名無しさん
垢版 |
2019/02/06(水) 14:10:39.95ID:eyuAOAwV
>>908
うーん、辞書がわりに次々聞かれても結局俺が作ってるかいー！
みたいになりそうで確かに嫌だな。
ただお前凄そうなんだからそんくらいしてやってもバチあたらんべ。
あ、そこらへんは俺が口はさむことじゃないな、すまん。でももったいないわーほんまに。
俺は基本は自分で調べるから聞くことってほとんどないけど
本当に困っててもまともな返答来なさそうでここで聞けないからさらに困ることあるもん。
お前に言ってるわけじゃないけどライトユーザーからしたら雰囲気怖いよここ。
2019/02/06(水) 14:12:54.78ID:pkuTd0pW
>>880
お前、ちゃんと満足いくもの作ってみろ
やめるのは簡単だまんぞくできるレベルもお前しだい
おれは、ダメ出しはしてやるよ、ダメな点は数多いがプライオリティは下がっている
2019/02/06(水) 14:32:47.81ID:sQxfU38+
>おれがこのスレで作っても意味ない
は>>880も同様だな
2019/02/06(水) 14:35:44.06ID:pkuTd0pW
>>911
別にそれでいいが♡♡♡
2019/02/06(水) 14:38:23.25ID:sQxfU38+
次の質問どうぞ
2019/02/06(水) 14:45:26.84ID:Piy/PJ2X
頭が悪いのが丸わかりな次の質問どうぞ
2019/02/06(水) 14:48:20.14ID:54X0jJM7
マウントしたがりのバカしか居ないスレですけど、それでもよかったら質問をどうぞ
2019/02/06(水) 23:06:50.96ID:pkC1NeiE
パラパラ漫画作って、動画に撮って再生すればいいんじゃね?
917852
垢版 |
2019/02/06(水) 23:08:35.09ID:gXPhlUR0
作ってるうちに楽しくなってつい作りこんでしまいました
https://www.axfc.net/u/3958012
変更点
・ランダム表示
・乱数生成
・（ほぼ）フルスクリーンモード(1920x1080、1600x900、1280ｘ720、800ｘ600の4種類の画面に対応)
・ユーザーインターフェースの強化
・デバッグを少々

最初に作ってほしいといっていた人の要望にかなってるかが心配
2019/02/06(水) 23:27:15.81ID:pkC1NeiE
フルスクリーンならDirectXだろ、と思ったら、
Windows10だと色々面倒なのな。
919852
垢版 |
2019/02/06(水) 23:33:49.56ID:gXPhlUR0
いえ、知識がないだけです
2019/02/07(木) 00:04:38.13ID:o0PdMVgb
Excelの起動画面、ドラクエでエンカウントしたみたいな感じにできないかな。
緑画面に白文字でExcelって、ちょっと地味じゃない?
2019/02/07(木) 00:55:54.67ID:XTuXysWv
ID:pkuTd0pWだけど
やっぱり午前中はましだが午後は酒がだいぶ効いて
すまんな
まあ文字結合のお題はExcelの問題をコピペしたものだろう
これ関数とExcelの機能を使って解いた方が面白い
2019/02/07(木) 01:10:49.40ID:XTuXysWv
>>917
中身を見ていないが
ディスプレイの解像度を取得する(API)
https://www.moug.net/tech/acvba/0020006.html
2019/02/07(木) 01:15:55.77ID:XTuXysWv
>>881
ｃを作業列にして
結果をピボットテーブルを使って表示
2019/02/07(木) 06:41:43.06ID:C6bM/gU/
質問です

同じブック、同じシート上にある
任意の二つのセル間を
セルで直線を引きたいと思っています

例えばA1セルとD4セルを指定したら
A1、B2、C3、D4のセルが黒く着色されるような
そんな感じです

どのようなロジックを組めば宜しいでしょうか？
2019/02/07(木) 07:17:58.06ID:sLOxqlfO
>>924
まず動作仕様を決める
１，指定の仕方をどうするか　クリック　Or　別セルで指定
２，複数回線を引くのか　取り消しは同じ指定で取り消すのか
３，クロスしたセルの色は
４，線の色はどの様に指定するのか
５，全てクリアーする処理は必要か?
2019/02/07(木) 07:27:46.12ID:sLOxqlfO
>>924
セルの色の指定方法は、マクロの記録でセルの色を変えて、マクロの記録の終了で確認してください
2019/02/07(木) 08:42:01.81ID:94HRw/Ac
>>924
何に使うのかが謎だ。
絵でも描くのかな？
2019/02/07(木) 08:46:47.16ID:C6bM/gU/
>>925
返答ありがとうございます
特にトリガーは定めていませんし
複数回引くことも考慮しなくていいです
こちらとしては
「二つのセル間にセルで線を引くこと」の
実際にどのセルが着色対象となるのかが
求められるロジックが必要となっています

>>926
ありがとうございます
ただ、上記しました通り
着色自体が焦点ではなく
どのセルが着色対象となるのかを
求めることができればなぁと考えています
2019/02/07(木) 09:04:22.19ID:sLOxqlfO
>>928
セルの位置情報から列の差が大きいか行の差が大きいかでループする側を決定します
ループする側は１増えるいく
その数に小さい側を大きい側で割って少数側を四捨五入したものが小さい側の増分でいいでしょう
2019/02/07(木) 09:09:14.04ID:sLOxqlfO
追記　ループ変数は０から差分まで
列ぎょうとも　初期値に増分を足していく
2019/02/07(木) 09:45:06.58ID:aUTfkvT8
列幅、行幅ともにまちまちだと考えるとマジメに座表計算がいりそうだ
2019/02/07(木) 10:25:13.14ID:nA5U51xW
>>931
セル単位での指定だから、幅は関係ない
2019/02/07(木) 10:30:41.24ID:nA5U51xW
>>931
すまん、関係あるなそれをかんがえると確かに難しいが
実質的にその構造で線を引く意味あるのかな？
2019/02/07(木) 11:11:43.55ID:nA5U51xW
>>917
この感覚だと、遠いな
2019/02/07(木) 11:16:37.25ID:nA5U51xW
>>931
所詮線はシェイプで引けばいいだけだからな
セルの色を変えることにどんな意味があるかが問題
2019/02/07(木) 11:38:14.89ID:aUTfkvT8
>>935
セルにシェイプが掛かっているかはすぐ判定できるんだっけ？
できるならまあ簡単かな
2019/02/07(木) 11:59:06.94ID:nA5U51xW
>>936
セルの色を変える仕様が実質的に意味あるかが疑問なだけ
意味ないもの検討する必要ないからな
2019/02/07(木) 12:08:17.49ID:nA5U51xW
まあ、意味あることならいくらでも方法がある（各行列のプロパティから幅なんて取れるからな）けど
お題が意味ないこと検討する必要もない
2019/02/07(木) 13:37:49.53ID:JiT+m3d9
数学的な問題でＶＢＡ関係ないんじゃね
2019/02/07(木) 14:00:56.39ID:C6bM/gU/
皆さんありがとうございます
セルで線を引く質問をした者です

セル幅がまちまちのケースは
こちらも想定外でした
均等幅で求められれば良いと
考えていましたから
既に回答して頂いた方法で
試してみたいと思います

どうもありがとうございました
941デフォルトの名無しさん
垢版 |
2019/02/07(木) 16:33:46.50ID:IUpQT5qY
質問です

文字列のカラムと数値のカラムが混在する表
数値カラムは空欄セルもある
この表からセル値をコピーするとき、数値カラムでセルが空欄の時はコピー先を0にしたい
文字列カラムでセルが空欄の時はコピー先も空欄

タイトル名で判定するのはスマートじゃないと思って
セルや変数の仕様を使って上手くできないでしょうか
2019/02/07(木) 17:12:43.16ID:suQqSSWO
セルの書式を1つずつチェックするのが確実
2019/02/07(木) 17:18:57.62ID:nA5U51xW
>>941
これはVBAの質問ですか？
機能はExcelの質問だよ
2019/02/07(木) 22:22:10.23ID:kH7/pekJ
数値カラムの空欄はそのまま空欄で
文字カラムの空欄を長さ0の文字列にしておけばセル参照で
2019/02/07(木) 23:16:40.13ID:o0PdMVgb
>>881
1が出てくる回数をそのまま行番号に使って、
1・2・3という数字を、そのまま列番号に使う。
2019/02/07(木) 23:30:09.71ID:nA5U51xW
>>945
それを式で表記すると？
2019/02/08(金) 00:39:13.26ID:nir6IlOg
質問です
C言語のFILEポインタをexternしているdllをvbaから呼び出すときにシグニチャーは何型ですか
2019/02/08(金) 00:50:45.35ID:WrxcLohJ
>>946
ごめん、勘違いしてた。
何とかできたけど、ものすごくダサい。

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で。
2019/02/08(金) 01:05:57.02ID:WrxcLohJ
↑ごめん、これもなんかおかしいわ。
950デフォルトの名無しさん
垢版 |
2019/02/08(金) 04:25:07.76ID:49YgIYkI
よろしくお願いします。

ある住所リストを宛名印刷するための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を書きたいです。
どうすればよいでしょうか？
2019/02/08(金) 05:17:51.52ID:0dQnaPPd
>>881
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
2019/02/08(金) 05:23:12.23ID:imEPOnT1
>>950
tmp = Split(Jusho, "　", 2)
953デフォルトの名無しさん
垢版 |
2019/02/08(金) 06:20:13.15ID:Ec5y9MTZ
>>950
Instrは検索文字が文字列の左から何文字目にあるかを返すよ
Instr(“東京都 渋谷区 ほげほげ町”, “ ”) は4が返ってくるのでそれでSplitする
ちなみに右から調べるInstrRevもある
954デフォルトの名無しさん
垢版 |
2019/02/08(金) 06:40:44.15ID:Ec5y9MTZ
>>950
あと検索文字がない場合は0を返すから条件式で使うなら
Instr(Jusyo, “ ”) <> 0 Then にしといた方がいいかも
他の人が見たとき「？」になる
2019/02/08(金) 07:17:52.94ID:SOh8GklL
>>948
やってみた
結果、E列

あ い 
か き く 
さ た ち 
た ち 

答えは以下が正しいのとG列の式を
H列以降に無限に張らなければいけないのが問題ある
他にも問題があるかもしれないが・・・

あい
かきく
さ
たち
956デフォルトの名無しさん
垢版 |
2019/02/08(金) 07:21:27.36ID:SOh8GklL
>>923
ここで、ヒントを出してるのに
作業列は１列で十分
2019/02/08(金) 07:26:35.12ID:ViZCNFeP
フラッシュ演算のやりとり見てて思ったけど
文字にして答えを文字結合すればアルツハイマーテストに使えるんじゃね？
2019/02/08(金) 08:20:58.27ID:SOh8GklL
>>956
すまん
無理にピボットテーブルや式でやらず
フィルターで列Aが1を表示でいいな
2019/02/08(金) 11:14:58.05ID:SOh8GklL
>>950
住所印刷なら、郵便番号が有るだろう
郵便番号の住所変換ルーチンはある
住所は郵便番号と比較すべきで比較してエラーを出すべき
郵便番号に合致する部分を１行目、それ以外を２行目が良いだろ
2019/02/08(金) 11:46:52.42ID:SOh8GklL
>>957
色々使えるだろうね
文字の表示位置を変えてタッチパネルでやるとか
応用範囲は広いがちゃんと全画面表示や文字の大きさ位
自動でできないとな、今時４Kモニターも出てるし・・・
2019/02/08(金) 12:00:58.70ID:CDEogeBV
>>950
limitオプションで回答は出てますが、実用的には長い住所の時は複数回改行も有り得るんではないでしょうか
またフォーマットが変わったときに全ての住所録の全角位置を調整するのが大変だと思われます
なので記入者には単純に単語毎にスペースを入れて貰って、適時自然な位置で改行するのはどうでしょうか
962デフォルトの名無しさん
垢版 |
2019/02/08(金) 12:14:24.08ID:WyTY+E9f
>>961
運用でカバーできたら誰も苦労しないよね
963デフォルトの名無しさん
垢版 |
2019/02/08(金) 12:19:37.60ID:jEYFKApV
自然な位置てなんやねん
2019/02/08(金) 12:29:29.52ID:CDEogeBV
一行の文字数を決めて、そこからInStrRevで最後のスペース位置を検索してLF挿入です
コード書いたんですが何故かブロックされます・・・
2019/02/08(金) 12:31:14.56ID:SOh8GklL
>郵便番号に合致する部分を１行目、それ以外を２行目が良いだろ
２行目があふれても、それは枠内で表示するだけで問題ないだろ
どうせ印刷はWordのあて名書きだろ２行目の表示エリアを広くしておけば問題ない
2019/02/08(金) 12:35:06.44ID:CDEogeBV
拙いですが折角書いたのでうｐしました
https://ux.getuploader.com/dialogues_txt/download/129

>>965
エクセルだと思うし、表示エリアを広くで済むならそもそも改行不要なのでは・・・ 👀
Rock54: Caution(BBR-MD5:669e095291445c5e5f700f06dfd84fd2)
967デフォルトの名無しさん
垢版 |
2019/02/08(金) 12:59:45.99ID:WyTY+E9f
>>965
普通は郵便番号と住所は別カラムだろ
というか質問者は郵便番号の話してないから
2019/02/08(金) 13:11:41.88ID:SOh8GklL
>>967
空想の世界で生きるのも人生
実態を考えるのも人生　好きにしてね
ちなみに、午後だからやばいかも
2019/02/08(金) 13:14:37.20ID:SOh8GklL
>>966
見栄えがあるよな、企業が出すなら
すまないが午後になったのでテストはしてない
970デフォルトの名無しさん
垢版 |
2019/02/08(金) 13:19:24.26ID:WyTY+E9f
>>968
くっさ
2019/02/08(金) 15:18:18.79ID:ZcpxXTEs
>>961
うちのシステムだとテキストボックスが既に３つになってて一段目が市区町村まで、二段目が枝番まで、三段目が物件名と部屋番+様方、会社名とかって決まってる。
2019/02/08(金) 15:20:53.99ID:SOh8GklL
まあ、なんだな住所を２行にしたいなんてあて名書きだけだろ
それって、Wordのあて名書き印刷ぐらい
で、きれいに住所を分けるのは郵便番号に載っている住所で区切るんだよ
それ以外は長いマンション名あるけど適当に範囲内で打てばいいんだよ
今時郵便番号を管理しない住所録もないだろ
まあ、引きこもりにはわからないかもしれないが
2019/02/08(金) 15:21:19.17ID:ZcpxXTEs
>>971
追記、登録する人にはこれで宛名出るからって言ってある。
2019/02/08(金) 15:21:58.27ID:RRS+yeTf
市区町村の名前のDB作ればいいんじゃね
2019/02/08(金) 15:29:02.53ID:SOh8GklL
>>971
お前の所への質問じゃないな
あと、分けて入力するフォームも結構あるが
無視されることも多いだろ
気にしているところは、まず郵便番号を聞くな
2019/02/08(金) 16:46:02.55ID:QatAiOm8
>>950
「１つ目のスペースで２つに分ける。２つ目以降のスペースは無視」という解決ではなく
「分割が発生したら住所を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

これでいけるはず
2019/02/08(金) 18:27:58.69ID:CDEogeBV
>>976
>>952でいいですし、デリミタが潰れたままになってますよ
2019/02/08(金) 19:06:53.88ID:imEPOnT1
>>976
もし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, "")
ってやる手もあるな
2019/02/08(金) 20:28:18.13ID:v6US6OW1
どこで質問していいのかわからないので、ここにお邪魔します
Jscript、　　拡張子がjsのファイルですが、これでエクセルを操作するのですが、
複数のワークシートがあるxlsファイルを開いた状態で

var book = GetObject("C:\\file.xls");
var sheet = book.Worksheets( 1 );
sheet.cells( 2, 2 ).Select;

としたとき、１のワークシートを開いているときは問題ないのですが、他のワークシートを開いているときは
エラーになります。でも、
sheet.cells( 2,2 ) = 5
は問題なくできます

つまり、タブで対象となるワークシート以外の他のワークシートを選択しているとき、
代入はできるのに、選択ができないのです
選択をできる方法ってありますか
2019/02/08(金) 21:07:58.30ID:sNzlIvCP
>>979
セルをセレクトする前に、シートもセレクトすればいいよ
2019/02/08(金) 21:17:15.14ID:v6US6OW1
あ、出来た。シートのセレクトってできたんですね。ありがとうございました
982デフォルトの名無しさん
垢版 |
2019/02/09(土) 09:52:28.52ID:45ZMFjRM
コード書く画面を
背景黒、文字色白にするには
どうしますか？
983デフォルトの名無しさん
垢版 |
2019/02/09(土) 10:11:07.65ID:0f9Fhb3P
>>917
あとでみます。
2019/02/09(土) 10:13:47.89ID:7J3n1w5Y
>>982
オプション
985デフォルトの名無しさん
垢版 |
2019/02/09(土) 10:52:22.81ID:4JLmAX8Q
依頼者ですがみました。ここまでやってくれるとは思わなかった、それぐらいの完成度の高いです。感謝です。

フラッシュ演算「のような」ツールがほしいニュアンスで言ったのですが、演算までやってくれるプラスアルファまでやってくれるとは思わなかったです。恐れ入りました。
2019/02/09(土) 10:59:52.07ID:76xhR9ul
>>881
まあ、Excelの関数や機能でやるのはスレ違だが
基本的にVBAでやるのは最終手段っと考えてるのであしからず

A1　B1から始めてるとして　C1に入れる式は「=IF(A1>0,IF(A2>A1,B1&C2,B1),"")」
これをC列にコピーすれば、A列に1が入っているところに答えが入る

A列B列C列に、フィルターを設定して、A列の１のみを表示するだけ　
987デフォルトの名無しさん
垢版 |
2019/02/09(土) 11:07:15.59ID:4JLmAX8Q
連投すみません。
さらに要望なのですが、
要望その一
現状、横並びでフラッシュ表示しますが、縦並びに切り替えることはできます？
可能であれば対応いただきたいです。できたら、円並び、ランダム配置といったバリエーションも検討いただきたく。

要望その二
「問題セット」シートにて、登録した文字列の順序をボタン一つでランダムに入れ換えることは可能でしょうか？
可能であれば対応いただきたいです。
もともと登録した文字列は同一シート内の別の列に退避させてください。
2019/02/09(土) 11:10:02.53ID:k8PbCSOR
>>987
直接メールでやれ
既にただの仕事依頼になっていてさすがに質問スレでやることじゃない
2019/02/09(土) 11:17:52.46ID:76xhR9ul
>>988
いいじゃないかたくるしく考えるなよ
回答者が嫌じゃなければそれでいいよ
990デフォルトの名無しさん
垢版 |
2019/02/09(土) 11:21:46.36ID:4JLmAX8Q
要望その二はわかりづらいと思うので、具体的には「きりん」を登録します。
これをランダムで文字を入れ換えて「んきり」といったイメージです。
「んきり」をみてばらばらの文字を自分が知っている既知の情報「きりん」に変換し、きりんをイメージする。

個人的な、ツールの用途として、左脳で文章をよまず、文章をぱっと見で右脳でビジュアルに思い描く右脳活性化のための訓練として扱いたいのです。

これができるようになると、本を読むとき、文章で読むより右脳でイメージでとらえながら読むので、速読が可能そしてイメージでみるので記憶に残りやすくなります。
2019/02/09(土) 11:32:56.47ID:6oInKB58
こんちには みさなん おんげき ですか？
わしたは げんき です。

この ぶんょしう は いりぎす の ケブンッリジ だがいく の けゅきんう の けっか
にんんげ は もじ を にしんき する とき その さしいょ と さいご の もさじえ
あいてっれば じばんゅん は めくちちゃゃ でも ちんゃと よめる という けゅきんう に
もづいとて わざと もじの じんばゅん を いかれえて あまりす。
どでうす？ ちんゃと よゃちめう でしょ？

ちんゃと よためら はのんう よしろく
2019/02/09(土) 11:44:46.80ID:76xhR9ul
---------上記はワッチョイ表示用（この行の後を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/
---------上記はワッチョイ表示用（この行の前）---------
私は新参者なのでスレたては控えさせていただきますが
ワッチョイを入れることも検討してください
2019/02/09(土) 15:10:39.63ID:3lTArmdf
建てま
2019/02/09(土) 15:13:23.38ID:3lTArmdf
>>993
した
https://mevius.5ch.net/test/read.cgi/tech/1549692750/
995デフォルトの名無しさん
垢版 |
2019/02/09(土) 16:27:54.49ID:dlyNQvdo
スレ最後の質問。

あるファイルに、
on error goto err
******
exit sub
err:
msgbox err.description
end sub

↑
こういうコードをたくさん書いてきました。
しかし、エラーが出たときに、どのプロシージャで発生したのか知りたくなり、
msgbox err.description & このプロシージャ名
に変更したくなりました。
「このプロシージャ名」を書く方法ってあるのでしょうか？
2019/02/09(土) 18:30:41.53ID:wulgFGFC
>>991
もうそのコピペあきた
2019/02/09(土) 18:34:38.97ID:gPze9fmT
乗りかかった船だし、自分自身も勉強になっているのでこの案件は、できるところまでやりたいと思います。

>>987
要望その1
縦並び　＝　今でも（一応）可能。セルの書式設定からB2の書式で「配置タブ」の「方向」で縦を選んでみてください。
　　　　　　　　文字の大きさとかも合わせて調整したら画面に収まりきると思います。後はセルの大きさも調整してみて。
ランダム配置　＝　スレの上のほうで案が出てたけどオートシェイプとかワードアートでできるかもしれないしできないかもしれない。あんま期待しないで。
円並び　=　自分にはできません。

総じて、要望その１はあまり自信なしです！！！

要望その2
おそらく可能。まずはこっちから手をつけます。

時間がかかると思うのでのんびり待ってください。

>>922
922さんが想定された使い方かどうかはわかりませんが、使い方が解った気がします。
ヒントありがとうございます。
998デフォルトの名無しさん
垢版 |
2019/02/09(土) 18:56:58.62ID:2u7e0Xtv
>>997
要望その二ができれば、要望その一のランダム配置は解決済みでよいです。
本は横書きと縦書きな二種類しかないので、円並びはあまり意味がないかなとおもうので対応は不要です。縦並びの実現はセルの書式設定で変えることができるので、実質要望その二だけになります。

余談ですが、Androidアプリでフラッシュカードというフリーのアプリを一週間前から使ってましたが、スマホでデータ登録は面倒、フラッシュ速度最大にしても0.5秒くらい望んでるものではないのでアンインストールしました。
2019/02/09(土) 21:15:13.37ID:mrBfx6rS
999
2019/02/09(土) 21:15:45.94ID:jdOhgT4v
いまからお前の名前は せん だ
10011001
垢版 |
Over 1000Thread
このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 82日 14時間 28分 22秒
10021002
垢版 |
Over 1000Thread
5ちゃんねるの運営はプレミアム会員の皆さまに支えられています。
運営にご協力お願いいたします。


───────────────────
《プレミアム会員の主な特典》
★ 5ちゃんねる専用ブラウザからの広告除去
★ 5ちゃんねるの過去ログを取得
★ 書き込み規制の緩和
───────────────────

会員登録には個人情報は一切必要ありません。
月300円から匿名でご購入いただけます。

▼ プレミアム会員登録はこちら ▼
https://premium.5ch.net/

▼ 浪人ログインはこちら ▼
https://login.5ch.net/login.php
レス数が1000を超えています。これ以上書き込みはできません。
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。
ニューススポーツなんでも実況