Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1 / 3841 ﾍﾟｰｼﾞ


	【82492】死にたい

胎内90卒 - 26/1/9(金) 21:14 -


	引用なし

	パスワード

死にたい死にたい死にたい死にたい死にたい死にたい死にたい死にたい死にたい死にたい死にたい死にたい死にたい死にたい死にたい死にたい死にたい死にたい死にたい死にたい死にたい死にたい死にたい死にたい死にたい

そしてやる事明日もあるのに肩こりが酷すぎる、、、

頭皮も痒過ぎてかきすぎて血が出てる。

・ツリー全体表示


	【82491】終

胎内90卒 - 25/12/17(水) 20:30 -


	引用なし

	パスワード

もう、本当に心身共もはやここまで。

人生、最終章の終盤にいる。

あの世からのお迎えが近い。

END

・ツリー全体表示


	【82490】死にたい

胎内90卒 - 25/12/16(火) 21:04 -


	引用なし

	パスワード

アスペルガー精神3級です。

ここ最近長引く体調不良等のせいか、ただでさえ色々問題抱えてネガティブなのに更にネガティブになっています。 (常日頃から通院・風邪や喘息の薬服用・心理療法等で改善は図ってます)

そして、自然と視界に入る辛いニュースや人から聞いた悲しい話、たまたま目にした戸塚ヨットスクールの暴論(発達障害が多い日本は○○がい大国)、一部の思考の偏りや認知の歪みの退化、友人との会話における政治思想価値観相違による精神不安定等で益々負のスパイラルに陥っています。

数年前にもこのような状態に陥って教えてgooに相談したら袋叩きにあい、その後改善はしましたが袋叩きについては未だに心の傷になっています。

しかも世間では戸塚ヨットスクール思想ややまゆりえん犯人の思想が正しいとされているのに、これらに賛同出来ない自分は人間として終わってる。

かなり前に「New引きこもり掲示板」でとある方に戸塚ヨットスクール思想に賛同できないお前は悪だみたいな事を散々言われてかなり精神不安定になったし、掲示板ミクルも戸塚ヨットスクール思想賛同者だらけだったから、これらの人達にリンチ殺人されたら本望なのかもしれないと本当に思ってしまいます。

尚、戸塚ヨットスクールは入った事はないですが、子供の頃の親からの脅しが原因になって未だに尾を引いています。親は何度も謝罪していますが、、、。これも数年前にとくっちで相談したら発達障害の貴方が悪いと袋叩きにされました。

もう○にたいです。
どうしたらいいか全く分からない、、、。
限界は超えている、、、。
助けて、、、。

・ツリー全体表示


	【82489】無題

胎内90卒 - 25/12/15(月) 21:27 -


	引用なし

	パスワード

リタリコや Facebook含め、これまでネットやSNSで数え切れないくらい沢山の人から何年にも渡って傷つけられてきた。未だに傷は癒えない。現在も続いてる。
 
ミクルでいじめトラウマに関する相談をしたら詳細も書いてないのに貴方が悪いと複数人から叩かれ、酷い自傷に発展した。
付随して教えてgooでもメンタルを蜂の巣にされた。
 
ママスタで障害年金に関する相談をしたら、物凄く沢山の人から叩かれた。
 
とくっちで親の躾のトラウマに関する相談をしたら、詳細も書いてないのに貴方が悪いと大半の人から叩かれた。
 
全てが辛い。苦しい。限界。
未だに立ち直れていない。
 
名前をはっきり覚えているor調べられたかつ自分をこれまで傷つけてきた人間一覧を以下に示す。
 
注...名前を覚えている人or調べられた人のみであるため、匿名の人や名前を覚えていない人を含めたら山のような人数になる。下記に記載する人はあくまで氷山の一角。
 
くじらのしっぽ掲示板...な・なりすましの胎内・犯罪抑止・とくめゐ・しねしね団・ユウイ
 
New引きこもり掲示板...sma200
 
無料お悩み掲示板...アドバイザー・アガト・加藤智大(青葉真司)・胎内90傘・答えてね・匿名
 
パンチングマシン掲示板(閉鎖済)... 加藤智大(青葉真司)・ピンク
 
フェイスブック...S.K・キ○○ー中○○美・村K(下の名前は忘れた・女性)・Y本 (下の名前は忘れた・女性)・A.M（女性）・T.Y(男性)
 
X...浜野実@クリクロH8 ふ-22他・○○さん・けんちゃん
 
マンション掲示板...なりすましの胎内90卒・胎内9.0卒
 
リタリコ...Re.m・ごまっきゅ・射命丸・あまだれ・ハコハコ
 
教えてgoo...はんサン
 
掲示板ミクル...第三臓器
 
複数の掲示板...くじっぽ
 
粋人亭掲示板...ときあき・偽物の胎内・タイ米

横浜アームレスリング掲示板...皇帝
 
発達障害ギフト...❤︎Mental :CS//❤︎絆❤︎先生・沙織@精神保健福祉士先生
 
中学校(一部は高校も)...Y.Mとその取り巻きかついじめてきた人間・いじめてきた女子達

上記に記載した人含めて山ほど沢山の人に傷つけられ、メンタルはボロボロを通り越している。もう駄目だ。

恨んでやる！！呪ってやる！！祟ってやる！！地獄の底まで！！

自分は子供の頃、大量の周りの大人達から暴力仕返しを勧められてきた！！
だから仕返しはOK！！

・ツリー全体表示


	【82488】無題

胎内90卒 - 25/12/13(土) 23:47 -


	引用なし

	パスワード

自分みたいなドクズワガママ幼児以下の人格の自分は生きてる価値がありません。
気が狂いそうです。

屑の内容は高市政権支持の自分の思想が根底は立憲社民共産れいわにかなり近い事を思い知らされたからです。自分は福祉軽視には反対の考えだから。
(但し福祉制度の不正関係や生活保護不正受給撲滅等には賛成です)
そして立憲社民共産れいわは世間では悪とされています。

つまり、自分はドクズワガママ幼児以下の人格です。そんな自分は生きてる価値がありません。
性格みたいに治す事も不可能でした。
本当に気が狂いそうです。

全てボロボロ。限界です。

・ツリー全体表示


	【82487】サンローランコピー

AAA - 25/12/13(土) 10:21 -


	引用なし

	パスワード

サンローランコピーアイテムは、ストリート感と高級感を融合させたトレンドスタイルを楽しめます。

アルバムのURL：
www.levelkopi.jp/b-kopi_saint_laurent.html サンローランコピー
www.levelkopi.jp/ levelkopi 評判
aaakopidomestic.tec29.com/e1763216.html

・ツリー全体表示


	【82486】今後の自分の運命が不安過ぎてたまらない...

胎内90卒 - 25/12/11(木) 12:29 -


	引用なし

	パスワード

今後の自分の運命が不安過ぎてたまらない。

・ツリー全体表示


	【82485】Re:箱ひげ図の書式設定

中途半端 - 25/12/11(木) 2:49 -


	引用なし

	パスワード

こっちで終わってたのか
ht　tps://www.239-programing.com/cgi-bin/excelvba_bbs.cgi?id=2159

・ツリー全体表示


	【82484】Re:箱ひげ図の書式設定

中途半端 - 25/12/11(木) 2:40 -


	引用なし

	パスワード

中途半端で悪いけど、これらを使って何とかなりませんか？

For Each sh In ActiveSheet.Shapes
　　MsgBox sh.Name
Next

For Each dr In ActiveSheet.DrawingObjects
　　MsgBox dr.Name
Next

・ツリー全体表示


	【82483】今後の自分の運命が不安過ぎてたまらない

胎内90卒 - 25/12/10(水) 21:21 -


	引用なし

	パスワード

今後の自分の運命が不安過ぎてたまらない

・ツリー全体表示


	【82482】死にたい

胎内90卒 - 25/12/9(火) 21:19 -


	引用なし

	パスワード

自分みたいなドクズワガママ幼児以下の人格の自分は生きてる価値がありません。
気が狂いそうです。

屑の内容は高市政権支持の自分の思想が根底は立憲社民共産れいわにかなり近い事を思い知らされたからです。自分は福祉軽視には反対の考えだから。
(但し福祉制度の不正関係や生活保護不正受給撲滅等には賛成です)
そして立憲社民共産れいわは世間では悪とされています。

つまり、自分はドクズワガママ幼児以下の人格です。そんな自分は生きてる価値がありません。
性格みたいに治す事も不可能でした。
本当に気が狂いそうです。

全てボロボロ。限界です。

・ツリー全体表示


	【82481】箱ひげ図の書式設定

aki - 25/12/8(月) 10:24 -


	引用なし

	パスワード

箱ひげ図の各要素の書式を統一したいのですが、要素数が多いためVBA処理したいとの主旨です。
「データ系列の書式設定」で
・「内側のポイントを表示する」のチェックを外す
・箱の塗りつぶしを白
・箱の枠線を黒
というような作業をVBA処理したいのですが、「マクロの記録」では「ActiveChart.FullSeriesCollection(●).Select」までしか記録してくれないため、困っています。（●は1～100程度）
windows11、office365です。
どうか宜しくお願い致します。

・ツリー全体表示


	【82480】BALENCIAGA コピー

AAA - 25/11/28(金) 11:37 -


	引用なし

	パスワード

バレンシアガコピーは、前衛的なデザインと都会的な洗練さを兼ね備えたスタイルが特徴です。シンプルでありながら存在感のあるシルエットや質感が魅力で、モードファッションを好む人々から高い支持を得ています。伝統と革新を融合させたその世界観は、日常に特別な個性と自信を与えてくれる存在です。

アルバムのURL：
www.aaakopi.com/category-208-b0.html バレンシアガコピー
www.aaakopi.com/category-6-b0.html メンズバッグコピー
nucleuscell.toyamaru.com/e17052.html

・ツリー全体表示


	【82479】vog.agvol.com/brand-58-c0.htmlスーパー...

agvol.comコピー

- 25/9/28(日) 16:15 -


	引用なし

	パスワード

polo.agvol.com/num-533.html

・ツリー全体表示


	【82478】vog.agvol.com/brand-98-c0.htmlコピーl...

agvol.comブランド

- 25/9/28(日) 16:06 -


	引用なし

	パスワード

vog.agvol.com/brand-98-c0.htmlコピーloewe

・ツリー全体表示


	【82477】Re:漢字項目を含むCSVファイルの読み込み...

煮詰まった - 25/7/30(水) 12:56 -


	引用なし

	パスワード

ありがとうございました。
中身見てみます。

・ツリー全体表示


	【82476】Re:漢字項目を含むCSVファイルの読み込み...

jindon - 25/7/29(火) 11:54 -


	引用なし

	パスワード

Sub Sample()
　　Dim fn$
　　fn = Application.GetOpenFilename("CSVFile,*.csv")
　　If fn = "False" Then Exit Sub
　　With ActiveSheet.QueryTables.Add("TEXT;" & fn, [a1])
　　　　.TextFilePlatform = 65001
　　　　'.TextFileStartRow = 1
　　　　.TextFileCommaDelimiter = True
　　　　.TextFileColumnDataTypes = Array(2, 1, 1, 1, 1, 1)
　　　　.Refresh
　　　　.Delete
　　End With
End Sub

・ツリー全体表示


	【82475】漢字項目を含むCSVファイルの読み込みに...

煮詰まった - 25/7/25(金) 9:44 -


	引用なし

	パスワード

漢字項目を含むCSVファイルの読み込みに関して文字化けしてうまく読み込めないので対応方法を教えてください。サンプルのVB記載して欲しいです条件項目数は可変で行数も可変の以下のようにデータが CSV形式で作成されているものを見出しから読み込んでEXCELシートに出力させたいサンプル項目1,項目2,項目3,項目4,項目5 "001","山田","1.00","100",, "002","田中","2.00","200","四国" "003","佐藤","3.00","300","九州" "004","吉田","4.00","400","東北" "005","伊藤","5.00","500","関西" 以上お願いします。

・ツリー全体表示


	【82474】Re:以下の文章をマクロに入力したいので...

OK - 25/6/12(木) 15:14 -


	引用なし

	パスワード

VBAで行う場合は
WorksheetFunction.Countif
を調べて見てください。

・ツリー全体表示


	【82473】Re:以下の文章をマクロに入力したいので...

OK - 25/6/12(木) 15:01 -


	引用なし

	パスワード

マクロは必須ですか？
ワークシート関数でいいならC9とC10に↓で。

=OR(COUNTIF(B:B,1007)<>0,COUNTIF(B:B,1008)<>0,"◯","")

・ツリー全体表示


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1 / 3841 ﾍﾟｰｼﾞ

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free