はい、そういう方もいらっしゃいますよ。 でもどんな人間も性嗜好は自由であるべきですので、GIDであろうがなかろうが性別関係なく 愛し合う権利はあると思います。 GIDでMtFの方を見方をするつもりはありませんが、「わたしは心は女よ」といっておきながら 見た目がおじさんならやはり回りは「わたしたちレズビアンなの」といわれたら引いてしまうのは 当然です。 確かに心と体が違うのがGIDの特徴でもあるのですが、レズビアンを公表するならそれなりの 努力があってしかるべきと思います。 MtFというなら女っぽい男じゃだめ、本気で体を女性にしないとね。 でもそれも自由だけど。 5 そうですね。 自分のこと女って言ってる男性なんて、女装趣味の人なんかより100倍キモいです! お礼日時:2014/07/10 09:08 No. 女になりたい男が多い理由とは！それは別に病気じゃないよ｜いわこわらいと. 1 回答日時: 2014/05/27 07:44 こんにちわ GID(性同一性障害)のMtF(男→女)の90%は後天性なので男の本能があるのでそうなりますよ。 だから結婚して妻子持ちになってからGIDだと訴えて女装する人も沢山居ます。 子供を産ませる能力があるなら私はGIDだとは認めません! 恋愛対象が女なら単なる女装趣味でしょ!って当事者に言ったことで喧嘩になったこともあります。 しぐさも雰囲気も男丸出しだし・・・ よくまあそんな奴を精神科医がGIDだと診断したのね・・・って呆れています。 女装趣味の人は女装すれば女子トイレに入りたがるんですからね~ スケベオッサンが女装して女子トイレに侵入してるじゃん!! 見付け次第注意してるんだけどね~ 生まれつきのMtFなら男が恋愛対象になるんですけどね~ なので私は後天性のMtFさんは女性と認めず先天性のMtFさんは女性と認めています。 3 後天性なんてあるんですか? でも女性が好きなのに女性の格好して、自分のこと女だって言ってる男の人なんて嫌ですよねぇ。 お礼日時:2014/07/10 09:07 お探しのQ&Aが見つからない時は、教えて! gooで質問しましょう!
やさしさに包まれたなら – 松任谷由実-より ああ世間の風当たりは強いですね。 女だから許される 仕事でミスっても女だったら「次から気をつけてね」ですけど男だったら「そんなこともできんのか!!」って怒られるじゃないですか。偏見ですかね?
トピ内ID: 9437878235 ピノコロ 2011年7月20日 08:51 不特定多数のジミな男にもてたいのなら、いい手段かもしれませんね。 でも、自分のファッションやスタイルのポリシーって捨てられないでしょう? 私は洋服やおしゃれが大好きだったので、その趣味ごと理解してくれる彼と出会ってビンゴ!と思いました。 結婚して10何年経っても、いまだに洋服をいっしょに買いに行ったり、おしゃれしてデートするのが楽しいです。 トピ内ID: 0954954730 2011年7月20日 08:54 どなたかのレスにありますが、温もりのある地味さはとても素敵ですよね。オーガニックな雰囲気の服装とか、落ち着いてるけど魅力的です。 性格が個性的で、趣味に没頭してるタイプなので、服装まで「自分」を出してしまうとますます結婚から縁遠くなりそうなので気付いて良かったです。 目指せ!飾らない女! トピ内ID: 4743389434 トピ主のコメント(3件) 全て見る 😀 モルモット 2011年7月20日 09:35 私は自分の顔に100%自信があるので、服装は今も昔も ジーンズに白いシャツが基本です。 ОL時代は髪は束ねて、爪も短く切って、化粧は眉とマスカラと ベージュの口紅のみでした。まぁ常識的な感じです。 いつも微笑んで、コピー取りやお茶をキビキビ入れたり、洗面所を 使ったら髪の毛や雫を拭いておく 等やっていたら自然にモテましたよ。 同僚には色目を使っている、男遊びが激しい等僻まれましたが、顔がね・・・ 顔が違うんだよ~ すみません やっぱり美人は得! 地味な女になりたい | 美容・ファッション | 発言小町. !なのですよ~ 小学生の頃から・・・得々な人生を送っていると自然に謙虚に、地味になります。 立っているだけで目立つのですから、気配を消さないと大変。 派手な服装も駆け引きも必要ないのです。 香水も高いヒールも流行のヒラヒラした服もミニスカートも必要なし!! 女は顔っっ あっ、タバコ吸わないし、お酒も飲まないです。栄養士と調理師の免許を 持っていて、日本舞踊と習字の名取でもあります。 立ち居振る舞いやちょっとした所作にも育ちが出るので、服装や化粧ばかり 気にしていないでこういった所にも気をつけたらいいですよ。 トピ内ID: 5776804305 芝尾 2011年7月20日 09:36 出ましたね。 男の好みを決定的に間違えている女性が最終的にする言い訳「高嶺の華」。 男の理想を勝手に作りあげないでください。 男ウケしない女がモテないのは当然のこと。 男の側に問題があるように責任転換してはダメです。 かえで 2011年7月20日 09:56 モテたいモテたいって態度が出すぎで気持ち悪いですね。 派手とか地味とか関係なく、そういう態度がモテない原因では?
また我が夫は、漫画も読みますし、深夜アニメも若干見ますが、妻である私は全然タイプが違いますよ。むしろ絶対にアニメには出てこないです。 あれは、現実世界にいると、どこかの声優さんみたいになり、マニア受けしかしないんでは? ちなみに夫はいわゆる勝ち組、私は地味です。夫は男性ホルモンが少なく、私は女性ホルモンが少ないので、合うのだと思っています。 トピ内ID: 1995915273 あ 2011年7月22日 14:57 ネットでどんな女性がモテるかって聞くのはあまり賢いと思えません。 ネットに張り付いてる層なんて現実で発言権のない地味系が多いと思います。 地味系の人が地味系がいいと言ってるだけで、現実とはズレがあると思います。 そもそもネットで「俺の女の好みは~」とか語ってる気持ち悪い男性の好みなんで知ってどうするのでしょうか? トピ内ID: 1872111165 シプレー 2011年7月22日 18:50 まだ若いんだから地味にしてたら勿体ないよ。 わたしの環境によるのかもしれないけど、地味なタイプより華やかな美人がモテますよ。(下品と華やかは違う) 経済力のあるイイ男のお嫁さんになる人は、皆キラキラと美しい女性です。 自分の個性を無理矢理変える必要ないと思うけどなぁ。 思い切りお洒落を楽しんでください!♪ トピ内ID: 9645717779 さくらこ 2011年7月23日 06:57 「モテるために研究」、とかやってる時点でちょっと違うと思います。 モテるってのは、「自分」を大事にして、周りに流されない人だと思います。 「モテ」にこだわるのでなく、自分がどうしたいのか、何を着たいのか、 自分は何が好きなのか、考えてみればいいと思います。 トピ内ID: 6149431739 💤 影丸 2011年7月26日 01:32 >深夜アニメを見るような男性はターゲットではないので、そもそもそのアドバイスは的外れでは?? 深夜アニメを見るような男性をターゲットにするのではなく、深夜アニメに男性の憧れのエッセンスが凝縮されている(かもしれない)と言うだけでは? そのエッセンスをトピ主に掬い取れるとは思えませんが。 トピ主は地味な女性の地味な交際でいいの? 告白したい…女性だけど同性を好きになってしまうってオカシイ？ | 恋愛女子部. デートは呑みに行ったり、高級レストランでの食事 ではなく、 映画や、美術館いったり、公園を散歩。外食しても割り勘。 誕生日はおしゃれなパーティーで友達沢山呼んで大騒ぎ ではなく、 小さなケーキで地味に2人で自宅でお祝い。 旅行は豪華海外 ではなく、 近場の温泉旅行。 こんな感じの地味な生活でいいの?
また、Excelについて基礎から、学びたい方はこちらの書籍もご覧ください。
FileSystemObject Dim lRow, I, F As Long Dim FolderName, OldFile, NewFile As String Dim FileName As Variant Dim ws01 As Worksheet Set ws01 = Worksheets ( "Sheet3") FileName = Application. GetOpenFilename ( MultiSelect: = True) 'ダイアログボックスが表示(MultiSelect:=Trueでファイルを複数選択) If FileName ( 1) < > False Then FolderName = File_function. GetParentFolderName ( FileName ( 1)) '選択した最初のファイル名からフォルダーまでのルートを取得する Else MsgBox "作業をキャンセルされました" Exit Sub 'プログラムを終了 End If lRow = ws01. Row 'A列の最終行を取得 ws01. Range ( "A6:A" & lRow + 1). ClearContents 'A列のデータ(文字列のみ)をクリアー F = 1 '選択ファイルの1件目を設定 For I = 6 To 5 + UBound ( FileName) '選択したファイルの数を繰り返す。(最大値) ws01. Range ( "A" & I) = File_function. 【Excel】ファイル名一括変更・ファイル一括移動ツール – 微風 on the web…. GetFileName ( FileName ( F)) 'ファイル名を順番にA列(セル)へ転記します。 F = F + 1 '次のファイル名を指定するために+1加算する。 Next I ws01. Range ( "A3") = FolderName '選択したフォルダーバスをセル「A3]へ転記 End Sub ' ●「ファイル名変換」・・・・Sub FilenameChange04() 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 ' '******** ******* ' ' Sub FilenameChange04 () '指定した新ファイル名を変換します。 Dim File_function As New Scripting.
SelectedItems(1) ' ユーザーに処理方法の確認 Dim rc rc = MsgBox("指定したフォルダのファイル一覧を取得します。" & vbCrLf & _ vbCrLf & _ "現在のファイル一覧は残したまま、その後ろに追加しますか?" & vbCrLf & _ "※ 「いいえ」を選択した場合、現在の一覧をクリアして、新たに一覧を作成します" _, vbYesNoCancel) If rc = vbCancel Then MsgBox ("処理をキャンセルしました。") Exit Sub ElseIf rc = vbNo Then '既存データクリア (headerR + 1 & ":" &). ClearContents End If ' ファイル情報一覧を作成 Dim fileObj As Object Dim i As Long: i = 1 Dim endR: endR = Cells(, "A")(xlUp) For Each fileObj In tFolder(folder) If (tributes And 2) Or (tributes And 4) Or (tributes And 8) Or (tributes And 16) Then '2:隠しファイル 4:システムファイル 8:ディスクドライブボリュームラベル 16:フォルダまたはディレクトリ はスキップ Else 'ファイル一覧に追記 (endR + i, "A") = folder (endR + i, "B") = tBaseName(fileObj) (endR + i, "C") = tExtensionName(fileObj) (endR + i, "D") = (endR + i, "E") = Created (endR + i, "F") = LastModified i = i + 1 Next End Sub Sub ファイル移動名前変更() rc = MsgBox("ファイル名一括変更 & ファイル一括移動処理を行います。よろしいですか? ", vbOKCancel) ' 変数宣言 Dim errFlg As String Dim procFlg As String Dim oldFileName As String Dim oldFolderPath As String Dim oldFileType As String Dim oldFileFullPath As String Dim newFolderPath As String Dim newFileName As String Dim i As Long Dim endR: endR = ("A3") + ("A3").
いざ実行!! 実行すると、以下の画像のように変更したいファイルがA列に一覧表示されます。 手順③B列の情報を手動で記入する 変更後のファイル名はさすがに自動設定はできませんので、 変更したい名前をそれぞれ記入 してください。 私の場合は以下のように記入を行いました。 ※上の画像のように連番ファイルを作成する場合は基準となるセルの角をダブルクリックすると一瞬で記入することができます。 ここまでで下準備完了です。 手順④ファイル名変更を実行する 準備が整ったら、もう一度VBAの記述に戻ります。 次はファイル名変更コードを記入しましょう。 以下のコードを丸ごとコピーしてください。 Sub file_rename() Dim j As Integer j = 1 Do Until Cells(j + 3, 1) = "" Name folder_path & Cells(j + 3, 1) As folder_path & Cells(j + 3, 2) j = j + 1 ※今回はマクロが2つあるので、ご注意ください。 file_renameの方を実行します。 再び、いざ実行!! (実行しても、エクセルシート上はなにも変化はおきません。) 実行が終わったら、ファイルが保存してあったフォルダを確認してみましょう。 ファイル名がエクセルシートのB列に記入した名前に変わっているはずです。 終わりに というわけで今回は、指定したフォルダ内のファイルの名前を一括変更する方法をご紹介しました。 一度作っておけば、いろいろな場面で活用できるはずです。ぜひ時間のあるときに作っておきましょう。 このブログでは、エクセル(VBA)を中心に、様々な業務効率化スキルを紹介しています。 ■生産性の低い作業ははるべくしたくない。 ■もっと業務を効率化したい。 こんな人はぜひ他の記事も読んでみてください。 また、VBAを使ってこんなことがしたいんだけど、やり方がわからない、という悩みを抱えているかたは、お気軽にコメント欄から質問してください。 私にわかる範囲であればご協力いたしますので。(もちろん無料です。) 最後に・・・ このブログを応援してあげても良いよ、という方は以下のボタンをポチっていただけると嬉しいです。 にほんブログ村 Twitterもやっていますので、興味があれば覗いてみてください。 Follow @HigashiSalary それではまた!!
オススメ記事
仕事でも趣味でも、PC上のファイル名を一括変更したい時、たまにありますよね?
ファイル名を自動で変更することができる! ファイル名変更マクロツールをご紹介します。 エクセルファイルをダウンロードしてすぐに使えます。 これで大量のファイル名一括変更も簡単にできます。 エクセルファイル以外にも使えます。 ※但し、ファイル形式(拡張子)の変更はできません。 操作画面 手順 ① 変更するファイルを1つのフォルダに保存する ② 【 ファイル名取得 】 ボタンを押す ③ ダイアログでフォルダを選択 作業完了後、A2に選択したフォルダ名、A5以下にファイル名が記入されます。 ④ B 列に A 列ファイルに対応する変更ファイル名を設定する ⑤ 【 ファイル名変更 】 ボタンを押す ファイル名が変更され実行結果が記入されます。 ※変更できなかったファイルには実行結果の欄に「×」が表示されます。 ↓ダウンロードはこちらをクリック(詳しい手順、注意事項はファイルの中に記載)