回避依存傾向がある男性と、 お付き合いされているクライアントの疑問としてよく出てくるのは 彼が急に、浮気願望があることや、 他の女性の存在を匂わせる 例えば・・ 「他にいい人いないかぁ」 「早く新しい人を探さないと〜」 「俺がもし浮気をしたらどうする?」 こういったことを 頻繁に言ってくるそうなんですが、 クライアントさんとしては それを本心で言ってるのか? どんな意図で言っているのか分からないと、不安になってしまうそうなんです。 相手の言葉をそのまま受け取ってしまうと、 不安になってもおかしくないですよね(ー ー;) その割には・・ ほとんど毎日LINEをしたり 電話をしてきたり メールもすぐにかえってくる 毎日家にも帰ってくる彼の本心が どこにあるのか? どうしてそんな事を言うのか?
?」 基本ですが、回避依存症者に感情のまま迫ったり攻撃するのは避けましょう。 ネガティブな感情はもちろん、例えポジティブな感情でも強烈な感情であれば、トラウマを刺激され、症状が悪化する可能性が高くなります。 — 回避依存症・恋愛依存症カウンセラー@しれの (@shirenonokokoro) March 16, 2020 4. 回避依存症の彼がいる人に私(回避依存症者)が本気で伝えたいこと. 求める 強く求められることにも、抵抗を感じます。 特に 「私をもっと愛して欲しい」 という感情です。 相手となる多くは恋愛依存者や共依存症者など、愛に飢えている女性が多いので、「完璧な愛」を求めて迫ってしまいがちです。 しかし、回避依存症者にとっては、トラウマを刺激する行動です。 それが恐ろしいので、重い愛を求められると、逃げ出したくなる衝動に駆られます。 代表的な言葉:「早くあなたに会いたいわ」「もっとあなたの声が聴きたい」 5. 約束 約束については、個人差があるので、全員ではありませんが苦手な人は多いです。 「自由が拘束されてしまった」と歪んで捉えてしまう場合が多く、束縛されたと歪んで認識してしまうなど、過剰に反応する場合があります。 逆に、約束は絶対に守るタイプで、1分でも遅刻したら激怒する回避依存症者もいます。 いずれにしろ、100か0など極端な思考になっています。 抵抗を感じてしまう代表的な言葉:「来週の日曜日明けといてね」 6~11. 限定公開 やってはいけないこと6~11は本気で彼との付き合い方で悩んでいる人のみに限定公開しております。 こちらの内容は、ネット上に絶対に載っていない内容ですので、希少性が高いです。 希少性保護のため、限定公開しております。 ⇒ 回避依存症の彼との付き合い方で悩んでいるあなたへ 【チェック】複数当てはまっている女性が多いので、確認してみて下さい。 一般公開しているのは、1~5までですが、あなたは、いくつ当てはまりましたか? (希少性保護のため、すべて一般公開はできず申し訳ありません) 恐らく、複数は、思い当たる行動はあるのではないでしょうか?
指示・命令・アドバイス 回避依存症者は命令されたり、ああしてほしい、こうしてほしいといわれることを極端に嫌います。 なぜなら、回避依存症者の多くは、過保護や過干渉家庭、機能不全家族で育っており、自分の気持ちを無視され傷ついた過去を持っています。 これがトラウマになっているので、指示・命令・アドバイスに過剰に反発し、多くの場合怒りの感情になります。 「○○したらいいんじゃない?」 「どうしてやらないの?」 「絶対○○してねー!」 普通の人がさほど抵抗を感じない上記のような言葉に強い抵抗感を感じます。 精神状態や言い方によっては一瞬でキレたり怒鳴ったりしますし、激しく抵抗します。 私も過去は「ちょっとそこのティッシュとってくれないー?」と軽く言われただけで、「俺に命令してんじゃねえ!」とキレてしまうぐらい抵抗がありました。 こんな些細なことでも、一瞬でキレてしまうのは、過去のトラウマが刺激されていることが原因なのです。 2. 問いただす・気持ちを尋ねる 「彼はいったい何を考えているの?」 彼の気持ちや本音がまったくわからなくて問いただしたくなっていませんか? 本気で人を好きになるのが怖い…トラウマや回避依存症などの心理原因に迫ります | Clue[クルー]. 「彼がまるで本音を言ってくれないから、問いただしてしまいました。。」というご相談は毎週のように頂いています。 しかし、これもNG行為です。 そもそも回避依存症者は本音を知られることを極度に恐れています。 知られたくないと思っています。 なぜなら、本音を言うことで傷つけられた過去を持っているからです。 仮に、あなたが問いただしたとしても、大抵の場合、はぐらかされたり、スルーされたり、都合が悪そうな雰囲気を出して、あなたから離れようとします。 それでも追及されれば、怒りの感情になるでしょう。 言ってはいけない言葉:「どうして返事くれないの?」「どうして会ってくれないの?」 3. 感情をぶつける 回避依存症者は強い感情にさらされるのが、非常に苦手です。 傷つきますし、心が窒息しそうになります。 こちらも過去に強い感情を自分に向けられ傷ついたトラウマが呼び覚まされるためのものです。 ネガティブな感情はもちろん、例え ポジティブ な感情でも強烈な感情であれば、トラウマを刺激され、症状が悪化する可能性が高くなります。 よくありがちなのが、 「彼への不満を我慢しすぎて、彼に感情をぶつけてしまった」 という場合です。 つらい気持ちはお察ししますが、適切な伝え方で伝えましょう。 代表的な言葉:「どうしてわかってくれないの!
父親を見て育てなかった場合 育ての親がいれば行動パターンを学習できるのですが、学習できなかった場合は、高い確率で家系の先祖が繰り返してきた行動をとるようになります。 つまり 無意識ながらカルマの要因も絡んで同じ行動を取ってしまう ということです。 先に結論からいきますが、潜在的に魂から望む相手というのは 『お互いに成長できる相手』 です。 というのも、 回避依存症でフラフラしてて音信不通や浮気という方法で逃げる人は、そもそも『本気ではない』 です。 本気の相手には、回避依存の症状を出さずに追いかけてでもパートナーを離そうとしません。 本気ではないからこそ、面倒事を出来るだけ避けて安心感だけを求めています。 ぶつかり合うこともせず表面上だけの付き合いであれば、本気になれないというのが本質です。 表面だけの付き合いというのは、いくらでも代わりがいます。 そして、 居心地の良い「安心できる環境」を与える場合も回避依存の人はその甘えた環境に依存するだけになります。 しかも安心できる環境を提供するというのは、パートナーに負担がかかるだけなので、お互いにとって成長もなく学びもないので、むしろ離れた方がいいでしょう。 都合がいいだけの女性には本当の魅力を感じません。 回避依存男性の特別なパートナーになるには、 「本気で大切だからぶつかる! 【保存版】回避依存症の男性が潜在的に魂から望む女性像とは | ツインソウルからツインレイ～年の差カップル. !」という姿勢を持つこと です。 ぶつかったとして、離れることを考える回避依存症の男性は上記にて記述している 『弱い』 からこそ逃げていくという構図になってしまいます。 弱いからこそ、そのような自分でも向き合える女性を探すという男性も確かに存在しますが、 そのような男性に女性は魅力を感じるでしょうか? 癒しだけを求めますか? 男らしい頼れる部分というのは、女性として男性に持っていて欲しい部分ではないでしょうか? 回避依存症男性は、これまでの生き方で立ち向かうということを回避してきていた為、人とのぶつかり方を分からないというのが本音です。 これに気付いていない人もいます。 現に私もそうでした。 本気になれない人との付き合いは、仮に付き合っても1、2ヶ月しか続きませんでした。 しかし、 本気になれる人には、その時にできる限りのぶつかりを繰り返しながら、お互いに助け合って関係が続いています。 『魂』は削りあってこそ磨かれます。 人間ですので誰でも、機嫌が悪い時もあります。 言いなりになるだけでは、面白くないのです。 【男は女で磨かれる】 とも言います。 あなたと誠心誠意向き合ってくれる相手こそパートナー と言えるのではないでしょうか?
〝回避依存症〟の男子は、「彼女と親密になりたくない」と願っているのにも関わらず、深層心理では「捨てられたくない」とも思っている傾向があります。つまり親密になってから捨てられる、ということを恐れるが故に、親密になりたくないと願っているのです。 本末転倒とも呼べますが、〝回避依存症〟の男子がする行動は、捨てられたくないから先に逃亡しているだけなのです。そのためもし彼女側がいきなり「あなたに興味ない」というような態度をとれば、逆に必死で彼女の心を取り戻そうとします。〝回避依存症〟の男子は逆に、「冷たくする」ことで追ってきてくれる可能性が高くなるいうことを覚えておくといいでしょう。 〝回避依存症〟の男子を好きになっちゃう女子側にも、ある特徴がある!? 振り向いてもらえない男子を好きになりがちな女子は〝共依存症〟の傾向にあるかも! 〝回避依存症〟の男子を好きになりがちな女子は〝共依存症〟の傾向を持っている人が多いです。共依存の人は、相手に依存しながらも「自分がいなければ、この人はだめなんだ」「私が彼の性格を変えてみせる」と思うことで、安心したいという傾向があります。 また、自分に自信がなく、幸せな自分に慣れていないため、深層心理で無意識に不幸を選ぼうとしてしまい、自ら付き合うと苦労しそうな〝回避依存症〟の男子を選んでいる可能性も高いです。そのため、共依存と回避依存の人同士は惹かれあい、そして傷つけ合うという結果につながりやすくなります。報われない恋愛ばかりしているとお悩みの方は、まず自分の深層心理や性格と向き合ってみるのが得策ですよ。 お互い依存しない恋愛関係が幸せな恋愛の第一歩! 彼が過度に自由に固執するようであれば、〝回避依存症〟の可能性は高いです。ただ覚えておきたいのは、どちらかが「依存」と呼べる関係で成り立っている恋愛は、健全ではないということ。依存に陥った背景は人それぞれありますが、やはりまずは自分自身が依存から立ち直るような方向に持っていくのがベター!丁度いい距離感で恋愛関係を築くためには、まずは依存から離れることが大切であるということを、心に留めておきましょうね♡ 参考文献:『恋愛依存症 - 苦しい恋から抜け出せない人たち』著:伊東明(実業之日本社) Profile 恋愛カウンセラー・ライター/ゆりな 恋愛相談を中心とした心理カウンセラーとして活動。恋愛がもっと楽しくなるコツが詰まった恋愛コラムを発信していきます。 外部サイト ライブドアニュースを読もう!
SE VBAとExcelの改行コードはどこが違うのですか。 PM VBAの改行コードは基本的にはCR+LFが用いられますが、Excelのセル内改行コードはLFのみが使われます。 VBAの改行コードとは? VBAとはVisual Basic for Applicationsの略でExcelなどのMicrosoft Officeのアプリケーションで利用できるプログラミング言語の1つです。Visual BasicはGUIに対応した言語で、それをExcelやWordなどのアプリケーションでも操作できるように機能拡張した言語がVBAです。 改行コードとは改行を表す文字コードのことを指します。WindowsではCR+LF、MacintoshではCR、Linux(UNIX)ではLFが多く使用されています。 CRはキャリッジリターンのことで10進数で表すと13、16進数で表すと0Dです。LFはラインフィードのことで10進数で表すと10、16進数で表すと0Aとなります。これらは制御コードと呼ばれる文字コードです。 VBAの改行コードはWindowsのCR+LFが基本です。 ただし、Excelのセル内改行のように特殊な場合だけLFを用いることもあります。 文字コードとは?
セル内に文字列が改行される セルの書式設定「折り返して全体を表示する」をするだけで、改行はしてくれるのですが、横幅はいいとして、縦幅が合わない時もあります。 縦幅を均等に保ちたい場合は、セルの結合をして調整したりします。 検索・置換で対象文字列と改行コードを入れ替える 検索・置換の機能を使って、改行したい箇所に対して、改行を入れることができます。 STEP1. セルに改行位置が分かる言葉を入れておく STEP2. [Ctrl] + [H]で置換ダイアログボックスを表示 STEP3. 検索する文字列枠に改行したいポイントの言葉を入れる STEP4. 置換後の文字列枠で[Ctrl] + [J]で改行コード(小さい黒の濁点)を入れる STEP5. [すべて置換]または[置換]を押すと入れ替わって改行される 改行したい文字列を事前に仕込んでおく必要はありますが、特定の文字列と入れ替え、または特定の文字列の後に改行を後から入れることができるため、非常に便利な方法です。 注意! 置換後の文字列枠で[Ctrl] + [J]を押して入れた改行コードは、次も同じことをしようとした場合でも、見えなくても残り続けています。一旦置換後の文字列枠で[BackSpace]か[Delete]を行い改行コードを削除してから、行いましょう。 セル内の改行を関数で自動化して入れる 基本的に改行を入れるのは手動(ショートカットキーやセルの書式設定)なのですが、エクセルに備わっている関数を使うことで、一つ一つ個別に改行しなくても自動で改行が入った文章が作れます。 条件はありますが、まずは自動化の方法を確認してみましょう。 STEP1. 文字列を連結したいセルを準備する STEP2. Excel (エクセル) 改行できない方必見！セル内の改行の仕方から削除まで。便利な一括置換や関数もご紹介。 | ワイシャツ通販｜アトリエ365 公式ブログ. =A1&CHAR(10)&B1 とCHAR関数を数式バーに入れる STEP3. セルの書式設定で[折り返して全体を表示する]を選択する 注意としては、必ず書式設定で折り返しを設定していること。 きちんと数式は入っているのに改行されていない場合は、この設定が抜けているので気をつけましょう。 CHAR(10)の10って何の数字? エクセル内の文字は、言葉として見えていますが実際は、数字・アルファベットの組み合わせの機械が読み取れる情報を変換して私たちが分かるようにしてくれています。そして「10」は改行コードを示す情報。CHAR関数は文字コード (ANSIかJIS) を文字として変換してくれる関数なので、10=改行で表示してくれることにより、改行を任意の部分で入れることができます。 セル内へ改行を入れずに済ませる方法 セル内の文章に対して、改行を入れると情報を読み取りやすくなりますが、エクセルの使い方としてはwordのような文章を続けていれる形には適しません。 どちらかと言えば、表や情報を整理するために使うことが多く、改行ばかりのエクセルは見づらい場合も。 そのために、改行を入れないで済ませる方法も覚えておくと便利です。 STEP1.
6 t_fumiaki 回答日時: 2020/09/21 19:49 >>全ての改行が処理されてしまうのです。 =IF(A1=" ", SUBSTITUTE(A1, " ", ""), A1) でしょうか。 この回答へのお礼 ありがとございます。 ものとセルの中身が複数行になっております。 頂いた式だと条件がA1の内容が「改行のみ」かどうか、で処理しているので、 望んでいる結果は得られません。 お礼日時:2020/09/21 20:31 No. 5 回答日時: 2020/09/21 19:46 別セルだと、こちら↓。 =MID(A1, 2, LEN(A1)-2) マクロだと、こちら↓の応用で。 For Each r In lection If Len() > 0 Then = Mid(, 2, Len() - 2) End If Next 他の方の回答へコメントしたのですが、 最初と最後の改行数は統一されておりません。 後出しですみません。 お礼日時:2020/09/21 20:20 No. 4 回答日時: 2020/09/21 19:42 改行を★などに置換したら、最初と最後以外を抜き出すことはできるのでは? それからまた、改行に置換しては? Excel セル内の最初と最後の改行を削除 -セルの中身がで下の4行のよう- Excel（エクセル） | 教えて!goo. 後は、別セルに改行がいくつあるか出しておいて、SUBSTITUTEの第4引数で数を指定して(最初のは1つ目なので無条件で指定できるし)置換するとか。 改行を★に置換したとして、セルがこんな感じになって… 「★あいうえお★かきくけこ★★」 改行数4 「★★さしすせそ★たちつ★てと★」 改行数5 として・・・ SUBSTITUTEで前後の★を取る? すみません、思いつかないので 具体的に教えていただけないでしょうか? お礼日時:2020/09/21 20:10 お探しのQ&Aが見つからない時は、教えて! gooで質問しましょう! このQ&Aを見た人はこんなQ&Aも見ています
Visual Basic 【VBA】指定の列の文字列、配列、重複削除 掲題の通り、指定の列の文字列を配列に入れて重複を削除したあと、 指定のセルに出力するコードを下記に記載しました。 質問事項: #N/Aエラーが発生してしまうため、対処方法をご教示頂きたいです。 基本的にはこのコードをベースとして変更できる部分をご教示頂けると幸いです。 ※コードをまるっきり変更しなければならない場合はコードの内容を記載して頂けると幸いです。 Sub test() Worksheets("CSV"). Activate Dim myDic1, myDic2 As Object, myKey1, myKey2 As Variant Dim c1, c2 As Variant, varData1, varData2 As Variant Set myDic1 = CreateObject("Scripting. Dictionary") Set myDic2 = CreateObject("Scripting. Dictionary") With ActiveSheet varData1 = Worksheets("CSV")("Y2", Range("Y" &)(xlUp)) varData2 = Worksheets("CSV")("AD2", Range("AD" &)(xlUp)) End With For Each c1 In varData1 If Not c1 = Empty Then If Not (c1) Then c1, Null End If End If Next For Each c2 In varData2 If Not c2 = Empty Then If Not (c2) Then c2, Null End If End If Next myKey1 = myKey2 = Worksheets("111"). Activate With ActiveWorkSheet Worksheets("111")("A4")() = anspose(myKey1) Worksheets("111")("F4")() = anspose(myKey2) End With End Sub 以上、宜しくお願い致します。 xmlns="> 100
こんにちは! 健史(たけふみ)です。
「UTF8 BOM無し」のCSVやTEXT形式のファイルをExcelで開くと、漢字部分が文字化けします。
そんなときは、サクラエディタなどで開いて「SJIS形式」や「UTF8 BOM付き」で保存することで、Excelで閲覧できるようになります。
今回プログラムでExcelデータに変換する処理を作成しました。
用途に合わせてご利用いただければと思います。
尚この記事は、Excel-VBAを起動して貼り付ければ動作することを目指しています。
Excel-VBAの構造、起動方法、実行方法などを理解されていない方は、以下の記事を参照しながら一度やってみてから対応されることをお勧めします。
Excel-VBA 実例 この通りやれば動く、とにかく触ってみよう こんにちは! 健史(たけふみ)です。
パソコンをお使いの方の多くは、表計算ソフトExcelを利用されていると思います。
この記事は、Exceは知っているけれど
・Excel-VBAって何? ・Excel-VBAは取っ付きにく...
実行中に発生したエラーの対処法は、上記記事の 2. エラーが発生したときの対処法 に記載しています。(この段落のリンクから直接遷移します)
処理イメージ
[UTF8 BOM無し]のCSVを作成したファイルをExcelで開いてみると、漢字の[ABC]、[あいうえお]は文字化けしています。
・サクラエディタで作成したデータ
・Excelで開いた状態
一度だけの処理であれば、サクラエディタなどで開いて[SJIS形式]や[UTF8 BOM付き]に変換すればよいでしょう。
しかし定常的に複数回処理する場合には面倒です。
上記ファイルをプログラムで以下のように編集してみました。
・変換した結果
A列は、読み込んだデータをそのまま出力しています。
B列目は、改行単位のデータを出力しています。
C列目以降は、行内のデータをカンマ区切りしたデータで出力しています。
プログラム
実行手順の概要です。
1. マクロのシート1を設定シートとして、入力ファイル(UTF8)、出力ファイル(SJIS)を指定します。
2. マクロを実行すると、入力ファイルを読み込み、変換したデータを出力ファイルに作成します。
プログラムです。
Dim strTxt1 As String
Dim tblTxt1, tblTxt2 As Variant
Dim ix1, iy1 As Long
Dim Excel0, Excel1 As Workbook
'<初期処理>
Set Excel0 = ActiveWorkbook
Set Excel1 =
'