地方議員 名前(ふりがな) 松葉 多美子(まつば たみこ) 議会 / 選挙区 東京都 / 杉並区 期数 5期 生年月日(年齢) 1962年12月31日(58歳) ホームページ 公式ホームページ E-mail 議員検索トップへ戻る
特集 西沢けいた 2021年6月22日 ■東京都政を振り返って 3期12年間都議会議員として務めてきました 。今の東京都はどうでしょうか。冷たい都政だと私は感じています。 私、西沢けいたの訴えは、「無駄を切る」、「人へ手厚く」 。行政の財源確保のためにもたくさんの無駄遣いを無くしてきましたが、 行財政改革に引き続き取り組んで 、コロナで都税収入は減っていますが、 しっかり財源を確保したい です。そして、 その財源をもとに人へ手厚く、「医療」「介護」「福祉」「子育て」「教育」 。この5つの分野は極めて大事です。財政が厳しくなったとしても、この5つの分野はむしろ拡充していかなければいけません。病気にならない人はいませんし、将来、介護の不安がないなんて保証はどこにもありません。未来への投資の教育や子育ては何よりも大事です。 ■皆さまの声をいただきたい 手を挙げた人だけの支援ではなくて、誰もが取り残されない東京都を目指したい です。 具体的な政策は、ホームページ Twitter、Facebook、LINE でも公開しています。是非ご覧いただいて私の取り組みに皆さまの声を頂きたいです。これまでの経験を活かして、東京都を変えていく。そのための取り組みをする自信があります。
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-VBA UTF-8形式のファイルを読み込み編集する | 自分で改善. それからまた、改行に置換しては? 後は、別セルに改行がいくつあるか出しておいて、SUBSTITUTEの第4引数で数を指定して(最初のは1つ目なので無条件で指定できるし)置換するとか。 改行を★に置換したとして、セルがこんな感じになって… 「★あいうえお★かきくけこ★★」 改行数4 「★★さしすせそ★たちつ★てと★」 改行数5 として・・・ SUBSTITUTEで前後の★を取る? すみません、思いつかないので 具体的に教えていただけないでしょうか? お礼日時:2020/09/21 20:10 お探しのQ&Aが見つからない時は、教えて! gooで質問しましょう! このQ&Aを見た人はこんなQ&Aも見ています
12 chonami 回答日時: 2020/09/23 14:41 >セル内容で使用されていない連続スペースを置換キーにすれば… 情報としてお出しではなかったですが、セルの内容にスペースが含まれる場合があるということでしょうか? TRIMを使えばスペースは1つ分になっちゃうので改行を置換したスペースなのか元からあるスペースなのか分からなくなりそうですね。 マクロで処理できそうですので、そちらにお任せします。 試してみました。 Worksheet関数のTRIMだと先頭と末尾のスペース削除に加えて連続スペースが1個になるけど、 VBA関数だと先頭と末尾のスペース削除のみ、 のようです。 驚きの発見でした! エクセル（Excel）のセル内改行・削除ができる10の方法 | enpreth（エンプレス）. お礼日時:2020/09/23 15:24 すみません、間違えました改行コード2つを改行コード1つに更新です。 改行コードを2個→1個に置換。 これを数回繰り返せば複数連続の改行を1個にする。 その後に、MIDで2文字削って出力する。 こんな感じの流れになるでしょうか。 なるほど! 参考にさせていただきます。 お礼日時: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.
VBAの説明 VBAの内容を説明します。 こちらで改行文字数を指定します。 例えば18文字づつ改行したい場合は18を指定します。 numWord = 18 18文字指定の処理結果です。 Selectionで選択した範囲分のデータを取得し、For Eachで範囲件数分処理を繰り返します。 セル内に改行が含まれるかチェックします。ない場合に改行処理が行われます。 なお、Chr(10)はセルの中の改行のキャラクターセットになります。 文字列を読み取り、指定文字数ごとに改行コードを挿入します。 改行した結果をセルに代入します。 処理した文字を空にします。 ここを空にしないと、前処理の結果が加えられてしまうことになります。 strTemp = "" さいごに いかがでしょうか。 今回のVBAで[Alt]+[Enter]が自動で付与されますので、 大量データの繰り返し作業やミスが許されないセルの改行対応などで ぜひ活用いただければと思います。
質問日時: 2007/06/19 13:40 回答数: 6 件 会議用の席札を作るのに,山折りにして両側に肩書き+氏名が出るようにしたいので,一部のセルの文字を逆さまにできれば便利だなあと思うのですが,セルの書式設定では横向きにしかできません。 形式を選択して貼り付け→半分を右向き,半分を左向きに90度回転させると,文字の間隔が違うようでもとの大きさの文字では入りきらず,修正の必要があるようです。 もちろんこの方法で作ることは可能なのですが,もしセル内の文字を180度回転する方法をご存じの方がいらしたら教えていただけないでしょうか。 できない,ということを確実にご存じであれば,その旨教えていただければ助かります。 よろしくお願いいたします。 No. 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.
適当な文字列でワードアートを描き、文字サイズとワードアートの サイズを席札に適切なサイズに設定します。(A) 2. (A)をコピー・貼付けして180度回転させたもの(B)と(A)を、印刷 に適切な位置に配置します。 3. シートタブを右クリックすると別画面が表示されますので、そこに 次のモジュールを記述して閉じます。 Private Sub Worksheet_Change(ByVal Target As Range) Dim rng rng = "$A$15" '※ If dress <> rng Then Exit Sub (1). = Range(rng) (2). = Range(rng) End Sub シートのA15に名前を入力して[Enter]すると、双方の名前が書き換わり ますので、A15を白文字にして印刷します。 名前入力セルとして他のセルを使う場合は、※の行のアドレスを書き 換えてください。 5 この回答へのお礼 わたしにとってはかなり高度なやり方ですが,ぜひチャレンジしたいと思います。 ご回答ありがとうございました。 お礼日時:2007/06/22 18:06 No. 4 mu2011 回答日時: 2007/06/19 15:07 ワードアートが簡単ですので、お試し下さい。 0 No. 2 hettson32 回答日時: 2007/06/19 14:18 オートシェイプ機能を使ってみては。 まず、エクセルに文字を打ちます。次にオートシェイプでどんな大きさでも構いません、一つ作ります(○が使いやすいかな)。で、打った部分のセルをコピー。貼り付け時に先ほどのオートシェイプの上で選択し、貼り付け。するとエクセルの左上に文字がオートシェイプ化され張り付いています。あとはオートシェイプと同じで何度でも、大きさも自由に。できます。 1 この回答へのお礼 オートシェイプはうまく使えなくて苦手だったのですが,いただいたご意見を参考にこれからはもうちょっと頑張ってみようと思います。 お礼日時:2007/06/22 18:04 できないと思いますね。 私なら Wordでタックシールにプリントして、別の紙で作っておいた席札に貼ります。タックシールって便利ですよ。 この回答へのお礼 正直,別の紙に貼る,ということは考えていませんでした(^^; 今回は社内の(あまり上の方の人間は入らない)会議なので簡単にすませましたが,きちんとしたものが必要なときには参考にさせていただきます。 お礼日時:2007/06/21 16:07 お探しのQ&Aが見つからない時は、教えて!