検索結果
お礼の必要性
- 全てのカテゴリ
- 全ての質問
- 素数の研究を2進法の表記で行う利点はありますか
素数を各桁の偶数と奇数の並び方などから何か出てこないかということですが、10進法より2進法のほうが規則のようなものが見つけやすいかとも考えています。素数を研究している人は表記などは問題にしないのでしょうか。
- 不定詞の前にnotを置くはずなのですが・・・
The slow reading movement is the latest of many movements that started with the slow food movement. Slow food was a response to the spread of fast food, especially international chain food restaurants. Slow food supporters say fast food was ruining people's ability to appreciate local cuisine and enjoy spending time with people over a meal. Like the slow food movement, the slow reading movement encourages people to not hurry through one of the most satisfying and important experiences in life. 週刊STより抜粋です。(訳は必要ありません) パラグラフ最後のセンテンスが疑問点です。 encourage 人to not~とあります。 これはどうしてですか? よろしくお願いします。
- 傷病手当金受給者の扶養について(健保・年金)
昨年の夏より傷病手当金を受給しています。 今年の11月中旬が満了予定です。 その後、働けると判断してくれれば失業保険を受ける形になります。 働けないとなったらまた考え物ですが… 現在は、傷病手当金のみの収入が年間で130万円を超えてしまう為、 健康保険は任意継続(毎月22,000円)をしています。 国民年金も滞りなく払っております。 ただ、現在入籍の話が出ており、(同居は未定) もし7月から彼の扶養に入れてもらえば、 私の収入は、7月からだと130万円以下になります。 この場合は、こちらの方が金銭的負担がなくなるので、 そうするべきかなーと思っているところなのですが、 この認識で合っているのでしょうか。 また、調べておりましたら、配偶者の扶養に入った場合、 国民年金の保険料もかからないと知りました。 私は、先日1年払いで18万円弱の引き落としが終わっています。 これは7月分からの半年分返ってくるのでしょうか。 お詳しい方、ご教示のほどお願いいたします。 ※ちなみに下記サイトで調べました http://syoubyouteate.info/?p=633
- バツニ、バツイチ子持ちさんとの結婚(親もうるさい)
今、婚活中で、いろいろな方とお見合い、パーティーへ行ったりしています。 この歳で、お見合いではありがたいことに申し込みはあるのですが、自分がいいと思った方にはすべて断られ、パーティーでもいいと思ってくださる方がいない時の方が多く、今私のことをいいと思ってくださっているのは、バツニさんとバツイチ子持ちさんです(子どもさんは奥さんの方にみえますが、養育費は払っています)。 歳なので妥協しないといけないと思う反面、やはりどこかひっかかりますし(人間性ということでは無く)、母親に話したら猛烈な勢いで反対され、けんかになりました(うちの母親はかなりうるさい人です)。 私を過大評価しています。母親いわく、「大学まで出したのに、何でわざわざそんな人と。子どもは一生子どもだから、財産だって別れた子どもにもいくよ。もう勝手にすればいいから、家には帰ってこないで」ということだそうです。(私ははっきり言って容姿がいいわけでも、何か秀出たものがあるわけでもありません) まだ数回しか会っていないからかもしれませんが、お2人とも「特に嫌と思うところはないです。好きという気持ちもないですが。いいと思ってくれている方がいるうちに、どんどんこれから難しくなるのもわかるので、いった方がいいですよね?でもどうやって、うるさい母親をときふせよう?という感じです。(自分も正社員で働いているわけではないので、母親の言うことも一理あるのですが)
- 韓国人は日本の何に怒っているのですか?
頻繁に韓国人の反日のニュースでうんざりするのですが、日本の植民地時代に韓国人を殺戮したわけでもないし、結構インフラなんかの整備も日本は整えたのになんでそこまで怒っているのか残念ながら分かりません。その原因を知りたいです。そこを報道されてなるほど怒るのも理解できるとなれば甘んじて反日も受け入れることもできるのですが釈然としないのです。誰かその具体的原因を教えてもらえないでしょぅか?
- 先日の質問の続き
皆様、先日の質問について様々なご回答をいただきましてありがとうございます。 http://okwave.jp/qa/q8609527.html 先ほど病院をどこに決めたか聞かれました。 「どうしても行かなければいけないのか」と聞いたら 「会社の決定事項です。あなたに問題が多すぎるのでみんな困っているんです。他の人の迷惑も考えましょうね。常識ですよ。」 と言われましたので(しかも小さい子に話しかける口調) 「第三者がいるのは話しづらいのでちょっと…」と言ったら 「誰かが一緒に行って知識を得ないと対処ができないくらいわかりますよね?みんなあなたのことを思って言っているんですよ。」 と言われてしまい、何も言えなくなりました。 社長(50代男性)が嫌なら同世代の女性スタッフでもいいので、必ず誰と行くかを決めて報告するように言われました。 私はそんなに酷いのかと自己嫌悪しています。 正直辞めたい気持ちでいっぱいですが、生活を考えると辞めることが出来ません。
- 締切済み
- 社会・職場
- aqua_lapis
- 回答数2
- 追徴課税の計算の問題です(´・ω・`)
たとえば毎年300万の副業の収入があったとします この人(Aさん=独身)は領収書(経費)を毎年保存していて、今年から必要になったらしい収支をこまめにノートに書いて毎年保存しておりました。毎年の経費は200万になります 所得控除(社会保険料控除、生命保険料控除、扶養控除)やらはめんどいので無し Aさんは税務署に申告をしていませんでしたので所得税も住民税も毎年払っていません 7年後 悪質な取り立て屋の税務署人間がやってきて、申告してへんやろ! 7年前からさかのぼって未払いの分全部徴収するで!とわざと7年間太らせて払っていない税金をとりに来ました この場合の徴収額はいくらになるのでしょうか?無申告加算税、加算税、延滞税などがあるらしく 何でもいいので最大限徴収する場合はどんな感じの計算になるのでしょうか? 私のイメージとしては 300万-経費200万-基礎控除約40万-年20万までは税金かからない?=残った40万 この40万に対して所得税や住民税や無申告加算税、加算税、延滞税やらなんやらかんやら かかってくるイメージで7年前の分のほうが今年の分より延滞料的なのもかかってそうで 最終的に結局いくらになるんだ!と訳がわからない状態です 7年前の申告してない経費なんか無効だ!とかも言ってきそうです 40万円が7年間ですから280万 結局合計するとこれ以上の追徴課税を払えと言ってくるのでしょうか? 一体いくらになるんでしょうか!複雑すぎてわけがわからないよ(◕‿‿◕) ざっくりでも良いので金額を教えてください! ついでに真面目に毎年税金を支払いに行った場合は7年間でいくら払うことになるかも教えてください
- 従業員への指導方法について
皆さんの考え方をお聞きしたく存じますのでよろしくお願い申し上げます。 私は営業課長で10人の部下を管理していますがその中の中堅社員(30代後半)の 件で悩んでおります。(仮にA君とします。) A君は営業の仕事についてはキチンとこなし営業成績も悪くない事もあり大きな顧客の 管理を任せております。 ただ自分の領分の仕事以外については全く関心が無く、自分の仕事が終われば すぐに帰ります。(営業手当がありますので残業をすればする程、給料が増える訳でありません。) 先日もA君の担当する顧客の伝票処理で業務課の課員が遅くまで残業をしていましたが 特に声を掛ける事もなく退社して行きました。 小さい会社なので販売用のカタログやトイレのトイレットペーパーの補充なども特に当番や 部署は無くい気付いた人が行うのですがこれも行うのを見た事がありません。 何回か話し合いをした事もありますがその際は「分かりました」とは答えるのですが私のいない ところで例えば先の業務課の課員などに「伝票処理を早くしてくれないから課長に怒られた。」と文句を言う様なのです。(その業務課の課員からこちらに連絡が来るので筒抜けなのですが(笑)) ちなみにA君とは普段は雑談をしたりと特に関係が悪い訳ではありません。 確かに営業の仕事(営業予算を達成する事)は問題は有りませんので一見問題が無い様に 思えるのですが彼もいずれは管理職として組織を率いる立場になった際に自分の仕事以外に ついては一線を引き一切関心を持たない性格は今の内に治した方が良いと思うのですが 良い指導方法(伝え方)がないものかと考えております。 同じ様な経験をされた方の意見も参考にしたいと思いますのでお知恵を拝借下さい。
- オカメインコの無性卵
オカメインコ雌1才ですが、昨夕に無精卵を産みました ケージの隅奥にて抱卵しており、人が近寄ると身体を揺らして威嚇します 今朝まで餌も食べずに、好きな青菜を入れてやっても見向きもしません 見かねて、窓際にケージを移動した時に卵から離れた隙に、卵を取り上げました 隣のケージでセキセイが数日前から、餌入れに卵を産んでいるのに触発されたのでしょうか、セキセイの方は雌雄なので有精卵だと思いますが、兄妹の可能性が高いので巣箱は入れておらず、卵に対しても、それ程執着心がないようなので、見つけると即座に取り上げています オカメインコ(名前はジェジェ)これからも産卵すると思いますが、すぐに無理やり取り上げても構わないでしょうか、
- 正義と利益との和解について
先日まで放送していました、「花咲舞がだまってない」でもテーマになっていた? のですが、正義と利益の関係性についての質問です。 人間や文明や社会が成熟してきて、戦争はしてはならない物になりつつありますが、 その分、経済(お金)の戦争が起きています。 人間は生き物なので、何か食べないと生きていけません。 だから、100%自給自足の農業でもしない限り、物々交換か経済(お金)に頼って 食べ物や生活用品を得るしかありません。 ドラマでも本部長が言っていましたが、利益(経済的収入)がなければ、会社が立ち行かなくなり、 その結果、社員は生活できないなります。 とすれば、正義は置き去りになります。 平等、平等といいながらも、そういうわけにはいかないのが人間社会です。 王(族:少数)がいて、平民(多数)がいる。 富みをもっている人(少数)がいて、貧しい人(多数)がいる。 賢い人(少数)がいて、愚者(多数)がいる。 人と違う考えの人(少数)がいて、自他ともに同じ考えの人(多数)がいる。 などなど。 1.他人は他人。自分は自分で利益を追求する。 2.正義や人道を唱えて、貧しくなる。 3.正義や人道を唱えながら、利益を得るために不正をする。 改めて書くまでも無く、3.が一番の悪ですが、 この世の真理は、1.でしょうか。 また、何が正解なのでしょうか。 その関係性はどうなっているのでしょうか? ドラマの最終話では、どちらも勝ち?、または、どちらも負け?のような 中途半端で、世の中の表面には出てこない(関係者以外には分からない)ような 取り計らいがされていました。 正義と利益との和解はどうしたら良いのでしょうか?
- セックスレスから離婚。
交際3年、入籍して2年、26歳の夫婦です。 子供は居ません。夫側の拒否です。 入籍前に半年同棲をしていたのですが、入籍前からセックスレスでした。 入籍前にも悩んで居たので婚約破棄も視野に入れ話し合い、努力すると言うことで入籍しましたがやっぱりすぐにレスに。 セックスレスといっても、夫からのスキンシップはとても沢山ありました。 寄ってきて触ったりなんて日常茶飯事で、頭から足までボディタッチ、普通にならんでテレビを見ていれば、気が付くと服や下着の中にまで手が入ってきて、応じようとすると主人は逃げます。 レスで欲求不満なところに局部まで触られて、その気になれば『はい、終了~』と言って部屋から出ていったり、私が触ろうとすると全力で手を払いのけられたり。 私から主人に触れるのはいつしか絶対に駄目なこと、になっていました。 ハグもだめ。悲しくて寂しくて欲求不満で、せめて抱きしめて欲しい、ハグしたいと懇願すると、私は『気をつけ』の姿勢をさせられて直立不動の私を主人がガッチリとホールドする、というようなもの…。 主人の言い分は、『疲れてる』『仕事が大変だから』『気分じゃない』などなど… 私も押したり引いたり出来るだけの努力も譲歩もしました。 黙っていればそのまま何もない日々が過ぎ、誘えば手をふりほどかれ、勇気を出してやらしい下着を用意してみたら『そういうの萎えるんだよね』と一蹴されました。笑 入籍前から断続的に2年間悩み続け、今は別居して3ヶ月になります。 何度か『このままなら離婚も考えてる』と話し合おうとしたのですがほとんど聞き流されてました。 離婚を決意してからは『そんなに悩んでるなんて思わなかった』『もう二度と同じ過ちは繰り返さない』と言ってくれてはいますが…それでももう無理だと思ってます。 人としては嫌いじゃないけど、以前のように愛せると思えませんし、戻っても妻としての役目はもう果たせませんし果たしたくありません。 私にとっては離婚前提の別居で、お互いの仕事の都合ですぐには離婚届は出さずにいて、それは主人も納得していました。 しかし先日2度目の結婚記念日を機に離婚届を出そうとしたところ突然主人は『このままで居ればいつか復縁できると思ってた』『気持ちの整理がつかないから待って』と。。 私は長い間悩み抜いて離婚を決断して主人もそれを納得してくれてたはずなのに、結局この人には私の気持ちは届いてないんだ!というショックと同時に、号泣する主人に動揺してしまい気持ちが揺れてます。 レスであることとレスに伴って私が悩み続けているのを見て見ぬ振りしていたことを覗けば、優しさや趣味の合致など夫としては完璧です。 親友のような感じで、嫌いにはなれません。 セックスレスに関してもたぶん私が寄っていけば今なら解消出来るでしょうが私はもう今更したくないです。 もともと独りよがり(私がこうしてほしいと伝えたら『言われてもわからないからそういうこと言わないで』主人を気持ちよくさせたいと動こうとしても『そうされるのあんまり好きじゃない』と言われたり…)のセックスで満足してませんでしたし主人とは性行痛もありました。ただそれを何重にも何重にもカバーする愛情があったから抱かれてる間は本当に本当に幸せでした。本当に好きでした。 しかし私はもう二度とあんな思いはしたくない。 今は落ち着いてますが、私の我が儘で離婚するのだから慰謝料を払ってでも離婚しようその為に風俗で働こうか、出会い系サイトで変な人に捕まって事件に巻き込まれてもいい、誰も知らないところに行って静かに居なくなろう、など、自殺まで考えました。 幸せなフリをするのも辛く、友人達にさえ連絡も出来ませんでした。 今思えば本当に馬鹿だと思いますが、当時はそれしか方法が無いと思い込むまでに性欲のある私が悪いのだと追い詰められていました。 主人がどこでのたれ死んでもどうでもいいという心境までは至っていません。幸せを願います。 でも私が戻って主人の為に家事をし、命を懸けて子供を産み育てるのは嫌です。 自分で借金までして別居をしてこれからどのように独りで生きていくか色々考えていました。 泣き続けながらも強くなろうと思い続けました。 会わなければ優しい気持ちになれますが、会えばどうしても何故かイライラして仕方がありません。 自分の中でどうしても許せないんだと思います。 感謝や幸せになって欲しい気持ちと同時に憎む気持ちも同じくらいあります。 今はまだこの状態を続けるのも有りとも考えますが、それは経済的な面での事が大きいように感じます。 別居費用も生活費も貰ってませんが、たまーに一緒に買い物に行って食材を買って貰ったりはしてます。 まだそれに甘えてる部分もあり、強く離婚すると言えない理由の1つです。 この状態を続ければいつか愛情が戻るのではという期待も無くはないですが、別居してほとんど自由になり、今は私の精神状態も安定(復縁あり)と不安定(やっぱり無理)を数日置きに繰り返してます。 戻る気は今のところほとんど無いのに、主人にも無駄な期待をさせてしまうのが気の毒で…。 いっそもう全て片づけて新しいスタートを切りたいです。 もう自由になりたいから離婚したい、は、私の我が儘でしょうか。 『結婚は好きだけじゃない』『いずれはどうせ皆セックスレスになる』『どうせ他の男も一緒』という世間の考えも目にし…しかし、情はあって仲は良くても、いずれ後悔する時が来るかもしれないと思っていてももう2人の生活には戻りたくはない。 自分が人生に対して甘すぎるんじゃないかと、悩むことをやめてはいけないのではないかという強迫観念のようなものに捕らわれていて、気持ちはほとんど決まってるのに決断できません。 背中を押してください。 厳しい意見でもかまいません。 (まとめられずに自分語りになってしまってすみませんでした。)
- 雇用保険 バイトの掛け持ち
こんにちは。無知な僕にアドバイスお願いします。 現状 現在A社で週20時間少し越える位で働いてます。雇用保険のみの加入で厚生年金も病院の保険もありません。 先日面接したB社は福利厚生全て揃っていて全ての保険に加入してもらえます。待遇はパートです。 後悔してる事 A社は最初は雇用保険すらなかったのですが、こちらからお願いして加入してもらった。今となっては なにも加入してない方がB社で保険の手続きが容易。 このA社とB社掛け持ちした場合 質問(1) できるだけA社には掛け持ちを知られたくないのですがB社で全ての保険に入るのでバレますよね? 質問(2) 雇用保険の金額は大した事ないのでダブってもいいのですが、そもそもA社に手続きしてもらわないとB社で加入できないんでしょうか? 質問(3) そもそも週に何時間以上の勤務だったら企業は社会保険に加入させないといけないんでしょうか? 質問(4) 雇用保険の加入や退会の手続きは企業の担当者は面倒なんですか?それとも電話一本で出来るんですか? 質問(5) B社で全ての社会保険に加入することを最優先する場合、このケースの最善策はなんでしょうか?A社に正直に言って雇用保険を退会してもらうしかないのでしょうか? 長々となりましたが最後まで読んでいただきありがとうです。詳しい方、アドバイスくれたら嬉しいです。よろしくお願いいたします。
- ベストアンサー
- アルバイト・パート
- noname#227769
- 回答数6
- 出産すると女性の性的魅力が減るのは不合理?
出産すると女性の性的魅力が減るのは不合理ではないか?女性の乳房やお尻はセックスアピールであり、雄を誘う為のものである。自然界では雄にセックスアピールがあることが多いのに(鶏のとさか や鹿の角など)、人間は雌がセックスアピールを持っているのは、人間は子育ての期間が長いため、雄に気に入られて養ってもらうためだという説を聞いたことがあります。もしその仮説が正しいとすると、人間の女性が出産後に体型が崩れたりして魅力が減るのは不合理だと思います。一般的に若い出産前の女性のほうが肉体的なセックスアピールも強く男にモテますよね?しかし、女性が一番男の庇護を必要とするのは出産後の育児期であり、もし戦略的にセックスアピールの時期が決まっているのであれば、むしろ出産後にセックスアピールが強まるように設定されているべきだと思います。オランウータンだったかチンパンジーだったかは、出産経験のあるメスのほうがモテるという話も読んだ事がありますが、人間のように他の類人猿よりずっと育児期間が長い動物は、なおさらそのように出産後にセックスアピールが強まるようになるべきだと思うのですが、なぜそうなっていないのでしょうか?今の生態が続いているということは、何か別の合理性があるのでしょうか?不思議です。教えてください。
- 和服の時にパンツを履かないのはおかしいですか?
中学3年生の女子です。 私は茶道を習っているし、家庭環境の事もあって、和服を着る機会が多いです。 それで友人達に、「和服の時はパンツを履かない。」って言ったら、変人扱いされました。 変な噂ほど早く伝わるもので、あっと言う間にクラス中に広まって、私はクラスの変人扱いです。 下手したら、学校中にまで広まるかもしれません。 「優等生なのに意外」 「おしとやかでお嬢様っぽいのに大胆。」 「美人でスタイルが良いのに、凄くイメージダウン」 なんて言われました。 先にも言ったように、私は和服を着る機会が多いです。 自分で着付けができるようになったら、 本当にパンツは邪魔だと思いました。 普通にしていたら、デリケートゾーンを見られる事なんてありません。 「襲われたらどうする?」って言われても、襲われたのだったらパンツを履いていても同じ事だと思います。 百貨店で買い物をしていて、火事になって高い所から飛び降りなくてはならなくなったら その時は諦めて見られる事を覚悟で飛び降ります でも、そんな事はまず起こらないでしょう。 和服にはもともとパンツなんて無かったのですから、履く方が不自然だと思うのに 和服の時にパンツを履かないのはおかしいですか? パンツ、パンツってはしたない言葉を連呼して失礼しました。 ※湯文字は着けてますし、ブラジャーは和装ブラをしています。
- 特許をとり成功した主婦の人達を特集した番組について
1ヶ月程前に、上記のような番組があったそうです。知人は何気なく観ていたので、チャンネルも覚えていないそうです。特に気になった方がいて、70代のその方は特許を申請しないで、あるブローカーに相談して、いいアイデアだと商品化してもらった・・・とのこと。販売件数もかなりあるようで、詳しい話を知りたいそうです。 教えていただきたいのは、まず番組名。可能であれば、その方のお名前、ブローカーというか業者さんのお名前です。かなり漠然とした話ですがよろしくお願いいたします。
- 締切済み
- 法務・知的財産・特許
- sun_task_1789
- 回答数1
- 般若心経と浄土教
色即是空空即是色、この世の全ては無であり空であると説く般若心経。 易行易修、念ずることである、ただひたすら念ずれば救われると説く浄土真宗。 この2つ教えを一つの仏教として結び付け一つに統合したい。 どのように考えますか。
- 締切済み
- 哲学・倫理・宗教学
- utayomi_2011
- 回答数29
- 泥棒を懲らしめる仕掛けは法律に反するか(その2)
・ 自宅の中の金庫に仕掛けをしておいたら、泥棒が侵入し金庫を開けて重傷を負った。 事情を聞かれたら 「探偵小説を書く参考にするため仕掛けを作って研究した。 まさか赤の他人が強盗に入って金庫をこじ開けるとは思いもしなかった」 と言う。 ・ 庭に落とし穴を掘ったところ、泥棒が塀を乗り越えて侵入し、穴に落ちて重傷を負った。 事情を聞かれたら 「庭木を植え替えるため穴を掘った。まさか赤の他人が塀を乗り 越えて強盗に入るとは思いもしなかった」 と言う。 ・ 自宅の冷蔵庫に殺虫剤を入れたジュースを 入れておいたら、空き巣が飲んで重体になった。 事情を聞かれたら 「害虫をおびき寄せて退治するため殺虫剤とジュースを混ぜたものを つくった。赤の他人が家に侵入して冷蔵庫の中身を盗むとは思わなかった」 と言う。
- ベストアンサー
- その他(法律)
- noname#198932
- 回答数7
- 税理士の登録について
企業の経理部で税務の業務に従事しています。 税理士の資格を取得したのですが、登録はまだしていません。 せっかく税理士の資格を取得したのでゆくゆくは税理士法人への転職を考えていますが、 今の業務で企業の税務回りの経験(連結納税、国際税務、連結税効果、事業税外形標準等)は積めるので、当分は今の会社に居座ろうと思っています。 人事異動等で経理業務から離れるタイミングで転職をしようと思っています。 ですので、初期費用10万円、年間10万円の登録料を払わなければならない税理士会への登録は今のところメリットは無いので行っていないのですが、将来的に税理士法人への転職を 考えているのであれば今のうちに登録しておいた方がよいのでしょうか? 税理士法人への転職要件に「登録していること」があったり、転職後に登録するには転職後の税理士法人でさらに2年以上の業務経験を積まなければならない等、ややこしいことが多いのでしょうか?お金を払ってでも今のうちに登録しておいた方がよいのでしょうか? アドバイスいただけないでしょうか。 よろしくお願いします。
- ベストアンサー
- 財務・会計・経理
- naohana_2005
- 回答数3
- 婚活サイトにて女性に質問
29歳の会社員の男です。 婚活サイトを再開して間もありませんが、いくらメールしてもメール返信が一通も女性からありません。 相手の写真を見ただけでメール返信する気がしないと思うような男性の外見はどんなのでしょうか? メール分自体も問題あるでしょうが、まず写真を見て返事するか決めますよね? 僕は若ハゲで坊主にしており、顔も良くはなく老けて見えてしまいます。 現にメールを送ってもメール自体読まれていない履歴となっている人も半々くらいいます。
- 矩形範囲の複数列を縦1列に並べ替えVBA(続)
次のVBAは矩形の範囲を縦一列に並べ替えるものでここで教えていただきました。 これはM1~R**のデータをM1-M**/N1-N**/O1-O** …というふうに矩形の範囲内を順に縦一列にするものですが、これを並べる順序を任意にしたい場合にはどこを修正したらいいでしょうか。 すなわちM1-M**の次にP1-P**、N1-N**というような感じです。 当方VBAはよく知らないため教えていただいたままで動かしています。 (Office2013/Windows7) よろしくお願いします。 Sub action() '型宣言 Dim st As String, ed As String Dim stcol As Long, edcol As Long Dim strow As Long, edrow As Long Dim retu As Long, gyou As Long Dim fname As String, tpath As String Dim fcnt As Long 'データの範囲(左上のセルと右下のセル)アドレスを指定 st = "M1" ed = "R200" 'セルアドレスより各行列番号を取得 stcol = Range(st).Column edcol = Range(ed).Column strow = Range(st).Row edrow = Range(ed).Row 'セル範囲が選択中の場合 If Selection.Count > 1 Then stcol = Selection(1).Column edcol = Selection(Selection.Count).Column strow = Selection(1).Row edrow = Selection(Selection.Count).Row End If '出力先のファイル名を処理 If Cells(strow, stcol).Text = "" Then fname = "不明(" & Cells(strow, stcol).Address & ")" Else fname = Cells(strow, stcol).Text End If ngs = Split("■,\,/,:,*,?,"",<,>,|", ",") For Each ng In ngs fname = Replace(fname, ng, "#") Next dpath = "H:\■DATA\DATAB" If Dir(dpath, vbDirectory) = "" Then Debug.Print "dpath = " & dpath MsgBox "パスが不正です" Exit Sub End If tpath = dpath & "\" & fname & ".txt" Do Until Dir(tpath) = "" fcnt = fcnt + 1 tpath = dpath & "\" & fname & "_" & fcnt & ".txt" Loop Open tpath For Output As #1 '列方向にループ For retu = stcol To edcol '行方向にループ For gyou = strow To edrow If Cells(gyou, stcol).Text <> "" Then Print #1, Cells(gyou, retu).Text End If Next gyou Next retu Close #1 Dim objFSO As Object 'FileSystemObject オブジェクト Dim objTS As Object 'TexobjTStream オブジェクト MsgBox tpath & vbCrLf & "に出力しました" End Sub
- ベストアンサー
- Excel(エクセル)
- noro6857
- 回答数7
