質問日時: 2007/06/19 13:40 回答数: 6 件 会議用の席札を作るのに,山折りにして両側に肩書き+氏名が出るようにしたいので,一部のセルの文字を逆さまにできれば便利だなあと思うのですが,セルの書式設定では横向きにしかできません。 形式を選択して貼り付け→半分を右向き,半分を左向きに90度回転させると,文字の間隔が違うようでもとの大きさの文字では入りきらず,修正の必要があるようです。 もちろんこの方法で作ることは可能なのですが,もしセル内の文字を180度回転する方法をご存じの方がいらしたら教えていただけないでしょうか。 できない,ということを確実にご存じであれば,その旨教えていただければ助かります。 よろしくお願いいたします。 No. 【ExcelVBA】セル内の文字列を指定文字数ごとに改行する | エク短｜Extan.jp. 3 ベストアンサー 回答者: ASIMOV 回答日時: 2007/06/19 14:50 色々、やり方は有りますが、こんなのはどうですか まず、普通に「肩書き」「氏名」を入力し、大きさを整えます 次に、それらのセルを範囲指定しコピー 次に、Shiftキーを押しながら、メニューの編集をクリックすると 「図のリンク貼り付け」が出てきますので、それで適当な位置に貼り付けて 位置を調整し、枠の真ん中の上に出ている色つきの丸をクリックして、回転させると、逆さまにする事が出来ます 21 件 この回答へのお礼 ご回答ありがとうございました。 お礼日時:2007/06/22 18:05 No. 6 mshr1962 回答日時: 2007/06/19 16:53 ワードのテキスト文書なら文字の180度反転がありますけど... エクセルの場合だと 「氏名」とした後、"氏"と"名"の間でAlt+Enterで改行します。 次にフォントを「MS明朝」から「@MS明朝」のように @マークで始まるものをセットして文字を横向きにします。 最後に配置で正位置は下に90度、逆位置は上に90度傾けると反転配置になります。 12 この回答へのお礼 分かりやすいご回答ありがとうございました。 お礼日時:2007/06/22 18:08 No. 5 misatoanna 回答日時: 2007/06/19 15:10 バージョンが書いてありませんが、 Excel2000 までは、MS Office 描画オブジェクト以外の図は回転できま せんので、こういう方法はいかがでしょう。 2000以降でも、ワードアートで様式を作っておけば、あとはワンアクシ ョンです。 1.
12 chonami 回答日時: 2020/09/23 14:41 >セル内容で使用されていない連続スペースを置換キーにすれば… 情報としてお出しではなかったですが、セルの内容にスペースが含まれる場合があるということでしょうか? TRIMを使えばスペースは1つ分になっちゃうので改行を置換したスペースなのか元からあるスペースなのか分からなくなりそうですね。 マクロで処理できそうですので、そちらにお任せします。 試してみました。 Worksheet関数のTRIMだと先頭と末尾のスペース削除に加えて連続スペースが1個になるけど、 VBA関数だと先頭と末尾のスペース削除のみ、 のようです。 驚きの発見でした! お礼日時:2020/09/23 15:24 すみません、間違えました改行コード2つを改行コード1つに更新です。 改行コードを2個→1個に置換。 これを数回繰り返せば複数連続の改行を1個にする。 その後に、MIDで2文字削って出力する。 こんな感じの流れになるでしょうか。 なるほど! Excel (エクセル) 改行できない方必見！セル内の改行の仕方から削除まで。便利な一括置換や関数もご紹介。 | ワイシャツ通販｜アトリエ365 公式ブログ. 参考にさせていただきます。 お礼日時:2020/09/23 15:17 Replace関数で改行コードをブランクに変更してもダメでしょうか。 No. 8 回答日時: 2020/09/21 20:51 最初と最後の改行は、1つという前提で考えていたので前の回答はやめておきます。 ところで、改行をスペースに置換したらTRIM関数で解決するんじゃないですかね? この回答へのお礼 ありがとうございます。 説明不足ですみませんでした。 1.改行をスペース5個とか多めに置換してTRIM。 2.スペース5個を改行に置換。 とか、セル内容で使用されていない連続スペースを置換キーにすれば… これでもいけそうかも。 お礼日時:2020/09/21 21:06 No. 7 回答日時: 2020/09/21 20:23 改行があることを前提にしているMID関数での処理なので、最初と 最後に改行がない場合は、1字目と最後の文字が削除されます。 IFを使って、改行なのかどうかの判定をすることで、最初と最後の 改行以外を残すことは可能だと思います。 … 例えば、LEFT関数やRIGHT関数を使って調べるとか。 結局のところ、セルの内容に対して、 ・1文字目が改行じゃなくなるまで、1文字ずつ判定して削除し… ・最後の文字が改行じゃなくなるまで、1文字ずつ判定して削除し… という処理をして、 複数セル範囲については、 その処理を1セルごとに当てて行くという流れにするしかない、 ということになるでしょうか。 正規表現での置換ができれば、セル範囲に対して 先頭の改行削除5回、末尾の改行削除5回とか、 ざっくりした処理で済むんだけど…。 お礼日時:2020/09/21 20:41 No.
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も見ています
Charset = "UTF-8". LoadFromFile (1)(1, 2) strTxt1 =. ReadText(-1) (1)(1, 1) = strTxt1 tblTxt1 = Split(strTxt1, vbLf) '種類;vbCrLf, vbLf, vbCr For ix1 = 0 To UBound(tblTxt1) (1)(ix1 + 1, 2) = tblTxt1(ix1) tblTxt2 = Split(tblTxt1(ix1), ", ") For iy1 = LBound(tblTxt2) To UBound(tblTxt2) (1)(ix1 + 1, 3 + iy1) = tblTxt2(iy1) Next End With '<出力ファイル名で保存、終了> (1)(2, 2) MsgBox "処理終了!" 処理概要です。 1. データ全体を strTxt1 に取り込む rTxt1のデータをSplit命令で改行単位に分割し、配列・可変属性のValiant項目である tblTxt1 に格納する 3. 配列tblTxt1の先頭0番目のデータをカンマ区切りされた項目を一つひとつに分割し、可変配列・可変属性のValiant項目である tblTxt2 に格納する 補足です。 ・[With CreateObject("")、End With]と[. ]で始まるもの [With CreateObject("")、End With]や[. ]で始まる[. Charset = "UTF-8"]、[]などは決まりごとです。 「太陽が東から登り西へ沈むこと」や「三平方の定理」と同じように決まったことで「なぜ」と問われても答えられないのと同じように、この通りに書くしかありません。 ・全体を取り込む指定 ". ReadText(-1)"の"-1"は全体を取り込む指定です。 ・配列(テーブル)は0から始まる 配列(テーブル)の添字の既定の下限を宣言する設定[Option Base n]が、既定値では[Option Base 0]になっています。 例えば[Dim strTxt1(2) As String]と定義すると、実際にはstrTxt1(0)~strTxt1(2)までの3個確保されます。 試しに、以下のプログラムでは正常終了しますが、 Sub test1() Dim str(2) As String Dim ix1 As Long str(0) = "00" str(1) = "01" str(2) = "02" For ix1 = 0 To 2 MsgBox str(ix1) End Sub 以下のプログラムは異常終了します。 Option Base 1 既定値のままSplit命令で可変配列・可変属性を受け側にすると0番目からセットされます。 行単位に取り込む 上記は全体を取り込み、行データ、カンマ区切りデータを抽出としていくプログラムでした。 行単位に取り込むプログラムです。 出力イメージです。 全体取り込みがなくなり行単位に取り込んでいくので、上記のA列がなくなったイメージです。 Dim tblTxt1 As Variant With CreateObject("").
友人の人数は多い方が良いように思えます。 例えばゲスト50名様程度で最低7名くらいはいた方が良いと思います。 ▶ 無料でできるスケジュール調整方法 ダンススタジオを借りて振付を覚える ヤフーやグーグルなどで検索キーラード「レンタルダンススタジオ 〇〇(希望の地域名)」で検索するといろんなスタジオが表示されますので予約しましょう。 まとめ 最初にメリットとデメリットをご説明しましたが、デメリットはかなりあります。 それでもお金がないという方は自分でフラッシュモブをされてはいかがでしょうか? また、自分でsるもプロにお願いをするも一度当社に見積もり依頼をいただければと思います。 もちろんお見積り、御相談は無料で安心です。 ▶ フラッシュモブ結婚式依頼のポイント ▶ フラッシュモブ結婚式の始まり方特集 ▶ フラッシュモブ結婚式サービスはコチラ ▶ 費用はコチラ
フラッシュモブだけではなく、メモリプレイなどでも有名で、メディアでも取り上げられています♪ 【対応エリア】全国 【費用】20万円前後 サプライズモール ジョイモブ 「クオリティ」、「オリジナリティ」、「価格」を大切にしているフラッシュモブ会社ジョイモブ♪ スタッフの人数も一人から選べるので、要望に合わせたプラン設定ができます☆ 【対応エリア】関東、他要相談 【費用】70, 000円~ ジョイモブ サプライズモブ 低予算でもオリジナリティ溢れるフラッシュモブを相談できるサプライズモブ☆提携の劇団なども多く、クオリティーも安心できます♪ 【対応エリア】全国 【費用】要相談 サプライズモブ フラッシュモブに使いたい♪おすすめの曲♩ フラッシュモブをやるときは流す曲もとっても大切です♪ 新郎新婦が好きな曲を選ぶのは勿論ですが、どんな曲がよく選ばれているのでしょうか? 曲選びのポイント みんなが楽しく余興を見れるように、どこに注意していけばいいのか、選曲のポイントをご紹介していきます! みんなが知っている曲 みんなが知っている曲であれば自然にノリやすくなりますよね!思い入れのある曲やその時に、ポピュラーな曲を選ぶのもいいかもしれません♪ ノリのいい曲を選ぶ 知らない曲であってもノリがいい曲だったら見ていて楽しい気分になりますよね♪手拍子がいれやすいアップテンポな曲がいいでしょう!