Excel VBA 質問スレ Part58

**デフォルトの名無しさん** · 2018/11/19(月) 06:47:24.99

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

※前スレ
Excel VBA 質問スレ Part57
https://mevius.5ch.net/test/read.cgi/tech/1536583359/

**デフォルトの名無しさん** · 2019/02/06(水) 13:41:27.75

>>903
無能が無能に教える意味あるか、無能が威張る意味あるか？
役に立つってなんだよ？
お前の満足は何だよ、作ったってことか？

**デフォルトの名無しさん** · 2019/02/06(水) 13:43:57.13

>>904
ん？お前無能なの？無能なのに威張ってるの？ダメじゃん。
役に立つって何？満足って何ってどういう意味？
俺はそんなこと書いてないけどそれはどこから出てきたんだ？
お前ののーみそか？

**デフォルトの名無しさん** · 2019/02/06(水) 13:44:16.40

おれがこのスレで作っても意味ないからな質問スレだ答えるだけ

**デフォルトの名無しさん** · 2019/02/06(水) 13:53:46.56

ああ、そういうことか。
質問には答えるけど代りにお前が作ることはないって意味でいいのか？
それがお前のポリシーなら俺はお前に口はさまないよ。
偉そうにされて終わるだけみたいだからお前には質問もしたくないけどな。

質問してるやつはいろいろ試して困ってるんだろ？
俺は動くもの見せて、あとは自分で工夫するなりなんなりした方が良いと思ってる。
だって、具体的なほうが解りやすいじゃん。
それに対してお前がどうこう言うことはないだろ？俺はお前に何も聞いてないんだから。

**デフォルトの名無しさん** · 2019/02/06(水) 13:57:29.30

>>907
まあ、補足すると具体的なものを使えるのは少し考えたやつ
考えない奴は応用できない、だから答えではなくヒントなんだがな

**デフォルトの名無しさん** · 2019/02/06(水) 14:10:39.95

>>908
うーん、辞書がわりに次々聞かれても結局俺が作ってるかいー！
みたいになりそうで確かに嫌だな。
ただお前凄そうなんだからそんくらいしてやってもバチあたらんべ。
あ、そこらへんは俺が口はさむことじゃないな、すまん。でももったいないわーほんまに。
俺は基本は自分で調べるから聞くことってほとんどないけど
本当に困っててもまともな返答来なさそうでここで聞けないからさらに困ることあるもん。
お前に言ってるわけじゃないけどライトユーザーからしたら雰囲気怖いよここ。

**デフォルトの名無しさん** · 2019/02/06(水) 14:12:54.78

>>880
お前、ちゃんと満足いくもの作ってみろ
やめるのは簡単だまんぞくできるレベルもお前しだい
おれは、ダメ出しはしてやるよ、ダメな点は数多いがプライオリティは下がっている

**デフォルトの名無しさん** · 2019/02/06(水) 14:32:47.81

>おれがこのスレで作っても意味ない
は>>880も同様だな

**デフォルトの名無しさん** · 2019/02/06(水) 14:35:44.06

>>911
別にそれでいいが♡♡♡

**デフォルトの名無しさん** · 2019/02/06(水) 14:38:23.25

次の質問どうぞ

**デフォルトの名無しさん** · 2019/02/06(水) 14:45:26.84

頭が悪いのが丸わかりな次の質問どうぞ

**デフォルトの名無しさん** · 2019/02/06(水) 14:48:20.14

マウントしたがりのバカしか居ないスレですけど、それでもよかったら質問をどうぞ

**デフォルトの名無しさん** · 2019/02/06(水) 23:06:50.96

パラパラ漫画作って、動画に撮って再生すればいいんじゃね?

**852** · 2019/02/06(水) 23:08:35.09

作ってるうちに楽しくなってつい作りこんでしまいました
https://www.axfc.net/u/3958012
変更点
・ランダム表示
・乱数生成
・（ほぼ）フルスクリーンモード(1920x1080、1600x900、1280ｘ720、800ｘ600の4種類の画面に対応)
・ユーザーインターフェースの強化
・デバッグを少々

最初に作ってほしいといっていた人の要望にかなってるかが心配

**デフォルトの名無しさん** · 2019/02/06(水) 23:27:15.81

フルスクリーンならDirectXだろ、と思ったら、
Windows10だと色々面倒なのな。

**852** · 2019/02/06(水) 23:33:49.56

いえ、知識がないだけです

**デフォルトの名無しさん** · 2019/02/07(木) 00:04:38.13

Excelの起動画面、ドラクエでエンカウントしたみたいな感じにできないかな。
緑画面に白文字でExcelって、ちょっと地味じゃない?

**デフォルトの名無しさん** · 2019/02/07(木) 00:55:54.67

ID:pkuTd0pWだけど
やっぱり午前中はましだが午後は酒がだいぶ効いて
すまんな
まあ文字結合のお題はExcelの問題をコピペしたものだろう
これ関数とExcelの機能を使って解いた方が面白い

**デフォルトの名無しさん** · 2019/02/07(木) 01:10:49.40

>>917
中身を見ていないが
ディスプレイの解像度を取得する(API)
https://www.moug.net/tech/acvba/0020006.html

**デフォルトの名無しさん** · 2019/02/07(木) 01:15:55.77

>>881
ｃを作業列にして
結果をピボットテーブルを使って表示

**デフォルトの名無しさん** · 2019/02/07(木) 06:41:43.06

質問です

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

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

どのようなロジックを組めば宜しいでしょうか？

**デフォルトの名無しさん** · 2019/02/07(木) 07:17:58.06

>>924
まず動作仕様を決める
１，指定の仕方をどうするか　クリック　Or　別セルで指定
２，複数回線を引くのか　取り消しは同じ指定で取り消すのか
３，クロスしたセルの色は
４，線の色はどの様に指定するのか
５，全てクリアーする処理は必要か?

**デフォルトの名無しさん** · 2019/02/07(木) 07:27:46.12

>>924
セルの色の指定方法は、マクロの記録でセルの色を変えて、マクロの記録の終了で確認してください

**デフォルトの名無しさん** · 2019/02/07(木) 08:42:01.81

>>924
何に使うのかが謎だ。
絵でも描くのかな？

**デフォルトの名無しさん** · 2019/02/07(木) 08:46:47.16

>>925
返答ありがとうございます
特にトリガーは定めていませんし
複数回引くことも考慮しなくていいです
こちらとしては
「二つのセル間にセルで線を引くこと」の
実際にどのセルが着色対象となるのかが
求められるロジックが必要となっています

>>926
ありがとうございます
ただ、上記しました通り
着色自体が焦点ではなく
どのセルが着色対象となるのかを
求めることができればなぁと考えています

**デフォルトの名無しさん** · 2019/02/07(木) 09:04:22.19

>>928
セルの位置情報から列の差が大きいか行の差が大きいかでループする側を決定します
ループする側は１増えるいく
その数に小さい側を大きい側で割って少数側を四捨五入したものが小さい側の増分でいいでしょう

**デフォルトの名無しさん** · 2019/02/07(木) 09:09:14.04

追記　ループ変数は０から差分まで
列ぎょうとも　初期値に増分を足していく

**デフォルトの名無しさん** · 2019/02/07(木) 09:45:06.58

列幅、行幅ともにまちまちだと考えるとマジメに座表計算がいりそうだ

**デフォルトの名無しさん** · 2019/02/07(木) 10:25:13.14

>>931
セル単位での指定だから、幅は関係ない

**デフォルトの名無しさん** · 2019/02/07(木) 10:30:41.24

>>931
すまん、関係あるなそれをかんがえると確かに難しいが
実質的にその構造で線を引く意味あるのかな？

**デフォルトの名無しさん** · 2019/02/07(木) 11:11:43.55

>>917
この感覚だと、遠いな

**デフォルトの名無しさん** · 2019/02/07(木) 11:16:37.25

>>931
所詮線はシェイプで引けばいいだけだからな
セルの色を変えることにどんな意味があるかが問題

**デフォルトの名無しさん** · 2019/02/07(木) 11:38:14.89

>>935
セルにシェイプが掛かっているかはすぐ判定できるんだっけ？
できるならまあ簡単かな

**デフォルトの名無しさん** · 2019/02/07(木) 11:59:06.94

>>936
セルの色を変える仕様が実質的に意味あるかが疑問なだけ
意味ないもの検討する必要ないからな

**デフォルトの名無しさん** · 2019/02/07(木) 12:08:17.49

まあ、意味あることならいくらでも方法がある（各行列のプロパティから幅なんて取れるからな）けど
お題が意味ないこと検討する必要もない

**デフォルトの名無しさん** · 2019/02/07(木) 13:37:49.53

数学的な問題でＶＢＡ関係ないんじゃね

**デフォルトの名無しさん** · 2019/02/07(木) 14:00:56.39

皆さんありがとうございます
セルで線を引く質問をした者です

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

どうもありがとうございました

**デフォルトの名無しさん** · 2019/02/07(木) 16:33:46.50

質問です

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

タイトル名で判定するのはスマートじゃないと思って
セルや変数の仕様を使って上手くできないでしょうか

**デフォルトの名無しさん** · 2019/02/07(木) 17:12:43.16

セルの書式を1つずつチェックするのが確実

**デフォルトの名無しさん** · 2019/02/07(木) 17:18:57.62

>>941
これはVBAの質問ですか？
機能はExcelの質問だよ

**デフォルトの名無しさん** · 2019/02/07(木) 22:22:10.23

数値カラムの空欄はそのまま空欄で
文字カラムの空欄を長さ0の文字列にしておけばセル参照で

**デフォルトの名無しさん** · 2019/02/07(木) 23:16:40.13

>>881
1が出てくる回数をそのまま行番号に使って、
1・2・3という数字を、そのまま列番号に使う。

**デフォルトの名無しさん** · 2019/02/07(木) 23:30:09.71

>>945
それを式で表記すると？

**デフォルトの名無しさん** · 2019/02/08(金) 00:39:13.26

質問です
C言語のFILEポインタをexternしているdllをvbaから呼び出すときにシグニチャーは何型ですか

**デフォルトの名無しさん** · 2019/02/08(金) 00:50:45.35

>>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.02

↑ごめん、これもなんかおかしいわ。

**デフォルトの名無しさん** · 2019/02/08(金) 04:25:07.76

よろしくお願いします。

ある住所リストを宛名印刷するための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.52

>>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.23

>>950
tmp = Split(Jusho, "　", 2)

**デフォルトの名無しさん** · 2019/02/08(金) 06:20:13.15

>>950
Instrは検索文字が文字列の左から何文字目にあるかを返すよ
Instr(“東京都渋谷区ほげほげ町”, “ ”) は4が返ってくるのでそれでSplitする
ちなみに右から調べるInstrRevもある

**デフォルトの名無しさん** · 2019/02/08(金) 06:40:44.15

>>950
あと検索文字がない場合は0を返すから条件式で使うなら
Instr(Jusyo, “ ”) <> 0 Then にしといた方がいいかも
他の人が見たとき「？」になる

**デフォルトの名無しさん** · 2019/02/08(金) 07:17:52.94

>>948
やってみた
結果、E列

あい
かきく
さたち
たち

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

あい
かきく
さ
たち

**デフォルトの名無しさん** · 2019/02/08(金) 07:21:27.36

>>923
ここで、ヒントを出してるのに
作業列は１列で十分

**デフォルトの名無しさん** · 2019/02/08(金) 07:26:35.12

フラッシュ演算のやりとり見てて思ったけど
文字にして答えを文字結合すればアルツハイマーテストに使えるんじゃね？

**デフォルトの名無しさん** · 2019/02/08(金) 08:20:58.27

>>956
すまん
無理にピボットテーブルや式でやらず
フィルターで列Aが1を表示でいいな

**デフォルトの名無しさん** · 2019/02/08(金) 11:14:58.05

>>950
住所印刷なら、郵便番号が有るだろう
郵便番号の住所変換ルーチンはある
住所は郵便番号と比較すべきで比較してエラーを出すべき
郵便番号に合致する部分を１行目、それ以外を２行目が良いだろ

**デフォルトの名無しさん** · 2019/02/08(金) 11:46:52.42

>>957
色々使えるだろうね
文字の表示位置を変えてタッチパネルでやるとか
応用範囲は広いがちゃんと全画面表示や文字の大きさ位
自動でできないとな、今時４Kモニターも出てるし・・・

**デフォルトの名無しさん** · 2019/02/08(金) 12:00:58.70

>>950
limitオプションで回答は出てますが、実用的には長い住所の時は複数回改行も有り得るんではないでしょうか
またフォーマットが変わったときに全ての住所録の全角位置を調整するのが大変だと思われます
なので記入者には単純に単語毎にスペースを入れて貰って、適時自然な位置で改行するのはどうでしょうか

**デフォルトの名無しさん** · 2019/02/08(金) 12:14:24.08

>>961
運用でカバーできたら誰も苦労しないよね

**デフォルトの名無しさん** · 2019/02/08(金) 12:19:37.60

自然な位置てなんやねん

**デフォルトの名無しさん** · 2019/02/08(金) 12:29:29.52

一行の文字数を決めて、そこからInStrRevで最後のスペース位置を検索してLF挿入です
コード書いたんですが何故かブロックされます・・・

**デフォルトの名無しさん** · 2019/02/08(金) 12:31:14.56

>郵便番号に合致する部分を１行目、それ以外を２行目が良いだろ
２行目があふれても、それは枠内で表示するだけで問題ないだろ
どうせ印刷はWordのあて名書きだろ２行目の表示エリアを広くしておけば問題ない

**デフォルトの名無しさん** · 2019/02/08(金) 12:35:06.44

拙いですが折角書いたのでうｐしました
https://ux.getuploader.com/dialogues_txt/download/129

>>965
エクセルだと思うし、表示エリアを広くで済むならそもそも改行不要なのでは・・・ 👀
Rock54: Caution(BBR-MD5:669e095291445c5e5f700f06dfd84fd2)

**デフォルトの名無しさん** · 2019/02/08(金) 12:59:45.99

>>965
普通は郵便番号と住所は別カラムだろ
というか質問者は郵便番号の話してないから

**デフォルトの名無しさん** · 2019/02/08(金) 13:11:41.88

>>967
空想の世界で生きるのも人生
実態を考えるのも人生　好きにしてね
ちなみに、午後だからやばいかも

**デフォルトの名無しさん** · 2019/02/08(金) 13:14:37.20

>>966
見栄えがあるよな、企業が出すなら
すまないが午後になったのでテストはしてない

**デフォルトの名無しさん** · 2019/02/08(金) 13:19:24.26

>>968
くっさ

**デフォルトの名無しさん** · 2019/02/08(金) 15:18:18.79

>>961
うちのシステムだとテキストボックスが既に３つになってて一段目が市区町村まで、二段目が枝番まで、三段目が物件名と部屋番+様方、会社名とかって決まってる。

**デフォルトの名無しさん** · 2019/02/08(金) 15:20:53.99

まあ、なんだな住所を２行にしたいなんてあて名書きだけだろ
それって、Wordのあて名書き印刷ぐらい
で、きれいに住所を分けるのは郵便番号に載っている住所で区切るんだよ
それ以外は長いマンション名あるけど適当に範囲内で打てばいいんだよ
今時郵便番号を管理しない住所録もないだろ
まあ、引きこもりにはわからないかもしれないが

**デフォルトの名無しさん** · 2019/02/08(金) 15:21:19.17

>>971
追記、登録する人にはこれで宛名出るからって言ってある。

**デフォルトの名無しさん** · 2019/02/08(金) 15:21:58.27

市区町村の名前のDB作ればいいんじゃね

**デフォルトの名無しさん** · 2019/02/08(金) 15:29:02.53

>>971
お前の所への質問じゃないな
あと、分けて入力するフォームも結構あるが
無視されることも多いだろ
気にしているところは、まず郵便番号を聞くな

**デフォルトの名無しさん** · 2019/02/08(金) 16:46:02.55

>>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.69

>>976
>>952でいいですし、デリミタが潰れたままになってますよ

**デフォルトの名無しさん** · 2019/02/08(金) 19:06:53.88

>>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.13

どこで質問していいのかわからないので、ここにお邪魔します
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.30

>>979
セルをセレクトする前に、シートもセレクトすればいいよ

**デフォルトの名無しさん** · 2019/02/08(金) 21:17:15.14

あ、出来た。シートのセレクトってできたんですね。ありがとうございました

**デフォルトの名無しさん** · 2019/02/09(土) 09:52:28.52

コード書く画面を
背景黒、文字色白にするには
どうしますか？

**デフォルトの名無しさん** · 2019/02/09(土) 10:11:07.65

>>917
あとでみます。

**デフォルトの名無しさん** · 2019/02/09(土) 10:13:47.89

>>982
オプション

**デフォルトの名無しさん** · 2019/02/09(土) 10:52:22.81

依頼者ですがみました。ここまでやってくれるとは思わなかった、それぐらいの完成度の高いです。感謝です。

フラッシュ演算「のような」ツールがほしいニュアンスで言ったのですが、演算までやってくれるプラスアルファまでやってくれるとは思わなかったです。恐れ入りました。

**デフォルトの名無しさん** · 2019/02/09(土) 10:59:52.07

>>881
まあ、Excelの関数や機能でやるのはスレ違だが
基本的にVBAでやるのは最終手段っと考えてるのであしからず

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

A列B列C列に、フィルターを設定して、A列の１のみを表示するだけ　

**デフォルトの名無しさん** · 2019/02/09(土) 11:07:15.59

連投すみません。
さらに要望なのですが、
要望その一
現状、横並びでフラッシュ表示しますが、縦並びに切り替えることはできます？
可能であれば対応いただきたいです。できたら、円並び、ランダム配置といったバリエーションも検討いただきたく。

要望その二
「問題セット」シートにて、登録した文字列の順序をボタン一つでランダムに入れ換えることは可能でしょうか？
可能であれば対応いただきたいです。
もともと登録した文字列は同一シート内の別の列に退避させてください。

**デフォルトの名無しさん** · 2019/02/09(土) 11:10:02.53

>>987
直接メールでやれ
既にただの仕事依頼になっていてさすがに質問スレでやることじゃない

**デフォルトの名無しさん** · 2019/02/09(土) 11:17:52.46

>>988
いいじゃないかたくるしく考えるなよ
回答者が嫌じゃなければそれでいいよ

**デフォルトの名無しさん** · 2019/02/09(土) 11:21:46.36

要望その二はわかりづらいと思うので、具体的には「きりん」を登録します。
これをランダムで文字を入れ換えて「んきり」といったイメージです。
「んきり」をみてばらばらの文字を自分が知っている既知の情報「きりん」に変換し、きりんをイメージする。

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

これができるようになると、本を読むとき、文章で読むより右脳でイメージでとらえながら読むので、速読が可能そしてイメージでみるので記憶に残りやすくなります。

**デフォルトの名無しさん** · 2019/02/09(土) 11:32:56.47

こんちにはみさなんおんげきですか？
わしたはげんきです。

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

ちんゃとよためらはのんうよしろく

**デフォルトの名無しさん** · 2019/02/09(土) 11:44:46.80

---------上記はワッチョイ表示用（この行の後を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.63

建てま

**デフォルトの名無しさん** · 2019/02/09(土) 15:13:23.38

>>993
した
https://mevius.5ch.net/test/read.cgi/tech/1549692750/

**デフォルトの名無しさん** · 2019/02/09(土) 16:27:54.49

スレ最後の質問。

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

↑
こういうコードをたくさん書いてきました。
しかし、エラーが出たときに、どのプロシージャで発生したのか知りたくなり、
msgbox err.description & このプロシージャ名
に変更したくなりました。
「このプロシージャ名」を書く方法ってあるのでしょうか？

**デフォルトの名無しさん** · 2019/02/09(土) 18:30:41.53

>>991
もうそのコピペあきた

**デフォルトの名無しさん** · 2019/02/09(土) 18:34:38.97

乗りかかった船だし、自分自身も勉強になっているのでこの案件は、できるところまでやりたいと思います。

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

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

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

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

>>922
922さんが想定された使い方かどうかはわかりませんが、使い方が解った気がします。
ヒントありがとうございます。

**デフォルトの名無しさん** · 2019/02/09(土) 18:56:58.62

>>997
要望その二ができれば、要望その一のランダム配置は解決済みでよいです。
本は横書きと縦書きな二種類しかないので、円並びはあまり意味がないかなとおもうので対応は不要です。縦並びの実現はセルの書式設定で変えることができるので、実質要望その二だけになります。

余談ですが、Androidアプリでフラッシュカードというフリーのアプリを一週間前から使ってましたが、スマホでデータ登録は面倒、フラッシュ速度最大にしても0.5秒くらい望んでるものではないのでアンインストールしました。

**デフォルトの名無しさん** · 2019/02/09(土) 21:15:13.37

999

**デフォルトの名無しさん** · 2019/02/09(土) 21:15:45.94

いまからお前の名前はせんだ

**1001** · Over 1000

このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 82日 14時間 28分 22秒