まず怒られたのではなく注意されたと思うようにします。 最初の横断歩道のように自分が悪かったときは、引きずります笑 私は車の運転が得意ではないので、いつもドキドキしながら後ろの人イライラしてないかなとか考えちゃうので運転で怒鳴られたら、もう心臓がつぶれそうです。 ただ他の2つは自分は悪いことをしていないので、引きずらないですね。 修理屋さんだったら即座に店員さんに「番号札取らないとダメですか?」と聞きます。また心の中で「番号札取らないとダメなんだったら店員が言うでしょ!そのまま商品を渡してくれてるんだから!それに対して文句あるんだったら店員に言えよ」って悪態ついてスッキリです。 ー雨の日に子供に半袖を着せて外出をしていたら、「こんな寒い日に子供が可哀想」と言われる は、怒鳴られたの?普通に話しかけられるような感じで注意されたのなら「寒いですか? ?」「でも長袖じゃ暑いですよ」と言ってみる。 が基本これは何とも思わないのでスルーですね。なんか変な人が話しかけたきたと聞き流します。 事実とシナリオ(思い込み)を分けて、リフレーミングで自分を癒してあげることが有効かなと思います。 怒鳴られた=思い込みです。 怒鳴られたと感じただけです。 「ここに車を止めてはいけない」と言われたことは事実だけど、その人が怒鳴ったかどうかは自分の受け取り方次第です。 この渋滞では予測できなくて、立ち往生してしまった。たしかに歩行者には迷惑かけたな。 これからはどうしたらよいかいい勉強になった!よかった。自分すごい!よく気付いたね!あのおばさんのお陰かも!くらいに思えたら楽になるかも。 時計屋さんは、本当は「受け取りは順番いらないんですよ」っと言えたらよかったかもしれませんね。 相手の方が言った言葉は事実ですが、怒鳴ったかどうかは自分の受け取り方です。 みんな待ってるのね。でも「みんな」ってこのおじさんのシナリオだよね。 システム上、受取の人は順番待ちないのだから、相手の勘違いだよね。 おじさんの言い方は嫌だった。でも、あの人の気持ちを受け止めた私って偉い!よく言い返さずに頑張ったね!偉かった! と言ったら少し楽になれませんか?
夢の中で「 知らない人に怒られる 」なんてことはあるのでしょうか。 夢占いでの「知らない人に怒られる夢」は、あなたが「 他の人にもっと自分を知ってもらいたい、新しい出会いを求めている 」という気持ちのあらわれを示しています。 「知らない人に怒られる夢」の中での「出会い」は恋愛の出会いだけでなく様々な人との出会いを意味していて、「 多くの人達に自分を知ってもらいたい気持ちが高まっている 」ことを示しています。 新しい出会いを求め、積極的にいろんな場所に参加してみてはどうでしょう。 興味のある習い事や趣味での集まりでも様々な出会いがあるでしょう。 人との出会いだけに限らず、自分自身も習い事や趣味がきっかけで「 新たな自分 」に出会えるのではないでしょうか。 しかし、「知らない人に怒られる夢」をみた場合、新たな出会いだけでなく今まで出会って来た人たちも忘れることなく大切にするようにしてくださいね。 今まで関わってきた大切な人や周りの人を大事にしながら、新しい人間関係を築いていくことで、あなたの人生がもっと豊かになっていくことを夢占いが示しています。 いかがでしたか? 人は誰もが心のどこかで「自分を見てもらいたい」「自分を知ってもらって新しい出会いにつなげたい」と望んでいるのです。 人間は一人では生きていくことは出来ません。 なので、人との関わりを大切にすることで人生が楽しくなればいいのではないでしょうか。
みなさんは知らない人に怒られたことありますか?? 私は今日いきなり怒鳴られたのですごく気分が悪くなりました。 私は携帯ショップでスマートフォンを手にして見ていただけでした。 いきなりおばさんが横からちょっとごめんと入ってき、おばさんもスマートフォンを触れだしました。 そしたらおばさんがスマートフォンのコードが絡まっていたのをなおそうとし私が触れていたせいで邪魔だったのか あんたもやりやと言い出しました。私はほかの所を見ていたらあんたいい加減にしいやと怒りだしました。 おばさんはあんたこどもか?おとなか?と聞いてき、「大人ですけど」というとじゃあちゃんとやりなさいと言ってきました。 私はコードを絡めたわけでもないしただ携帯を見ていただけなのにおばさんに怒られました。 気分が悪くなったので出ていきましたが、おばさんは店員さんにさっきのことを告げ口されてました。 どうなんでしょう?? 知ら ない 人 に 怒 られるには. 6人 が共感しています ベストアンサー このベストアンサーは投票で選ばれました ありますよ、20代の時羽田空港の歩く歩道で左に寄り 右は人が通行できるように立っていたら 30代くらいの女の人が後ろからつかつか近付いてきて 「普通右側に立つもんでしょ!じゃまっ!」と怒鳴られました。 東京では左に立つのが一般的ですし 私以外誰もそのレーンに乗っていないのに?! 当時はあっけに取られた後猛烈に腹が立ち 出発してもしばらくムカムカしました。 今、冷静に考えるとあの人どう考えても精神異常者です。 あなたに非は無いでしょうが今日はアンラッキーディだったのでしょう。 もしかしたら心が病んでいる人かもしれないから 気の毒な人と思っておけばよいです。 また関西の友人曰く 「かわいそう」「気の毒」という言葉はある意味「救いようがない」という 意味も含まれる最上級の侮蔑言葉らしいです。 18人 がナイス!しています その他の回答(2件) 貴方がそういう思いしているのも相手はなんとも思ってません。 いい歳こいてそのババァ人生何を学んできたのかね~?悲しくなりますが あなたはそうならないでください!と言う学びではないでしょうか? 店の人も分かってます気にしない気にしない! 8人 がナイス!しています 少なくともここで愚痴っても解決はしません。 6人 がナイス!しています
と思いました。 私の周りのしでかす系の人、よく他人に怒られています。 自覚がないので「怒ってきた人」に怒ってますが、内心で 「怒られて当然の立ち居振る舞い」と思っています。 怒ってくる人が悪い! という持論を振り回すで、いつまでたっ ても、アカの他人に怒られてますが。 横断歩道は単純に主さんが悪くて、現実に通行の邪魔をしているので、 歩行者から文句言われるケースの想定をしておくといい、と思います。 口パクで「すみません」とか、困ったような演出をしていればスルー されるのに、たまに、横断歩道の上で車止めて堂々とふんぞり返っている 人がいて、そういう人につっかかる人って稀にいます。 なので、そこ叱られる前に「申し訳なさそうーにしておく」という 演出があればよくて、怒られると「謝っている演出」でいいと思います。 時計屋は、「この方から、受け取りは番号札不要と言われたので」と 矛先を変えます。相手は順番抜かされたと思って怒っているわけで、 不当な怒りではなく、順番待ちをしている人達の普通の心理。 知らないとそう見える、のは充分理解できるので、そこを抑える。 主さんだって、順番抜かされると腹が立つでしょ?
セル内に文字列が改行される セルの書式設定「折り返して全体を表示する」をするだけで、改行はしてくれるのですが、横幅はいいとして、縦幅が合わない時もあります。 縦幅を均等に保ちたい場合は、セルの結合をして調整したりします。 検索・置換で対象文字列と改行コードを入れ替える 検索・置換の機能を使って、改行したい箇所に対して、改行を入れることができます。 STEP1. セルに改行位置が分かる言葉を入れておく STEP2. [Ctrl] + [H]で置換ダイアログボックスを表示 STEP3. 検索する文字列枠に改行したいポイントの言葉を入れる STEP4. 置換後の文字列枠で[Ctrl] + [J]で改行コード(小さい黒の濁点)を入れる STEP5. [すべて置換]または[置換]を押すと入れ替わって改行される 改行したい文字列を事前に仕込んでおく必要はありますが、特定の文字列と入れ替え、または特定の文字列の後に改行を後から入れることができるため、非常に便利な方法です。 注意! 置換後の文字列枠で[Ctrl] + [J]を押して入れた改行コードは、次も同じことをしようとした場合でも、見えなくても残り続けています。一旦置換後の文字列枠で[BackSpace]か[Delete]を行い改行コードを削除してから、行いましょう。 セル内の改行を関数で自動化して入れる 基本的に改行を入れるのは手動(ショートカットキーやセルの書式設定)なのですが、エクセルに備わっている関数を使うことで、一つ一つ個別に改行しなくても自動で改行が入った文章が作れます。 条件はありますが、まずは自動化の方法を確認してみましょう。 STEP1. 文字列を連結したいセルを準備する STEP2. =A1&CHAR(10)&B1 とCHAR関数を数式バーに入れる STEP3. EXCELのセル内の句読点等による、自動改行を解除する方法をお聞きしたい... - Yahoo!知恵袋. セルの書式設定で[折り返して全体を表示する]を選択する 注意としては、必ず書式設定で折り返しを設定していること。 きちんと数式は入っているのに改行されていない場合は、この設定が抜けているので気をつけましょう。 CHAR(10)の10って何の数字? エクセル内の文字は、言葉として見えていますが実際は、数字・アルファベットの組み合わせの機械が読み取れる情報を変換して私たちが分かるようにしてくれています。そして「10」は改行コードを示す情報。CHAR関数は文字コード (ANSIかJIS) を文字として変換してくれる関数なので、10=改行で表示してくれることにより、改行を任意の部分で入れることができます。 セル内へ改行を入れずに済ませる方法 セル内の文章に対して、改行を入れると情報を読み取りやすくなりますが、エクセルの使い方としてはwordのような文章を続けていれる形には適しません。 どちらかと言えば、表や情報を整理するために使うことが多く、改行ばかりのエクセルは見づらい場合も。 そのために、改行を入れないで済ませる方法も覚えておくと便利です。 STEP1.
セルを選択 STEP2. セルの書式設定で[縮小して全体を表示する(K)]を選択する これは、セル内の改行を不要にする方法ですが、セルの幅によって文字の大きさが変わるため、見づらくなる場合もあるので注意が必要です。 表や一覧表など、セルの縦幅を変えたくない場合に便利な使い方。 セル内に入っている改行の削除方法 セルに改行を入れる方法もあれば、削除する方法もあります。 意外と削除する機会もあるため、覚えておいて損はないと思います。 分類 方法 詳細 関数 CLEAN(クリーン)関数 セル内の文字を結合させてしまう 改行してあってもセル内の結合を使うと勝手に改行が消えている状態で繋がる SUBSTITUTE(サブスティチュート)関数 任意の位置の改行を置換して改行を削除できる CLEAN(クリーン)関数で改行を削除する CLEAN(クリーン)関数とは、セル内に含まれる改行をすべて削除して、文字列を繋げてくれる関数です。 =CLEAN(文字列) STEP1. 改行が含まれたセルを用意 STEP2. Excel セル内の最初と最後の改行を削除 -セルの中身がで下の4行のよう- Excel（エクセル） | 教えて!goo. 数式バーに =CLEAN(A2) と数式を入力 STEP3. 改行が外されて文字列が繋がる 例えば住所など、郵便番号・都道府県・市区町村と、それぞれ改行してあるデータもありますよね。 セル内の情報が一列で見れた方が分かりやすい場合も多いので、そんな時はCLEAN関数を使って頂くのがお勧めです。 SUBSTITUTE(サブスティチュート)関数で改行を削除する SUBSTITUTE(サブスティチュート)関数とは、任意の文字列を違う文字列に入れ替えることができます。 = SUBSTITUTE(文字列, 検索文字列, 置換文字列, 置換対象) STEP1. 数式バーに =SUBSTITUTE(A2, CHAR(10), "") と数式を入力 STEP3. 改行が空文字列に変換されて折り返さなくなる CHAR(10)はエクセルで使われる改行コードを示しており、「""」は空の文字列を指定しているため、改行が何もない空文字列になって折り返し表示がなくなる仕組みです。 この方法も簡単なので、覚えて頂くと便利だと思います。 改行ばかりだとあとで大変? エクセルはかなり自由度の高いツールですが、そのおかげで見づらい情報になっている場合もありますよね。 セル幅が列ごとに違う 改行があったり無かったりして縦幅がバラバラ 情報が統一していないことで、整理整頓がじずらくなっていることもある。 例えば、3行分ある文字列を、一つのセルの中ではなく、縦3列に分けていれるようなこともあって、自由だからこそ他の人が見た時に読み取れない状況を作ってしまうこともあります。 改行は便利ではありますが、付けすぎると情報のまとまりが崩れてしまうので、最低限の利用にとどめて他人が見ても分かる状態を作るのがお勧めです。 最後に。 エクセルは、使えそうで使えきれていないこと、意外とたくさんありますよね。 改行の方法一つとっても、追加・削除ができ、さらに方法も色々ある。 小さいことかもしれませんが、毎回使うことでもあるので、ぜひ色々な改行に対する方法をこのページで知ってもらえたら嬉しいです。 エクセルを使いこなして、仕事の効率化を高めていきましょう!
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 改行を★などに置換したら、最初と最後以外を抜き出すことはできるのでは? それからまた、改行に置換しては? 後は、別セルに改行がいくつあるか出しておいて、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