Chiquilin の回答履歴

よろしくお願いします。 Sheet1のJ26からJ56の、セルに入れた文字の最終文字1文字を 削除して表示したいのですが、下の構文で、 For Each r In Application.Selectionが黄色くエラー表示されます。 どこをどのように直せばよいのか解りません。 よろしくお願いします。 Private Sub CommandButton1_Click() Dim r As Range r = Worksheets("Sheet1").Range("J26:J56") For Each r In Application.Selection If Len(r.Value) > 0 Then r.Value = Left(r.Value, Len(r.Value) - 1) End If End Sub Next

Excelの人事データ（派遣・請負契約）として次のようなデータがあります。 A列　稟議番号 B列　会社名 C列　要員名 D列　所属部署 E列　所属課 F列　管轄担当者 G列　契約種別（派遣or請負） H列　開始日 I列　終了日 上記のようなExcelデータがあり300件ほどのデータです。 １）この中で2017/5/1時点での在籍者にフラグを立てたいです。 ２）また部署ごと且契約種別ごとに何名いるかも出したいです。 ２）についてはピポットテーブルで集計する形かなと思っていますが１）の方が どうしても出せません。sumproductを使って出そうとしたのですがフラグは立てられず合計数でしか出ないのであまり意味はなく、またそれでも０になってしまいました。 初心者なので詳しいご説明をいただけると幸いです。宜しくお願いいたします。

Excelでセルをコピーするときに出る選択範囲の点線が消えなくなったのですが何か設定があるのでしょうか？ 今まではコピー＆ペーストした後に他のセルに何か入力すれば勝手に消えていたのですがきえなくなりました。Escを押せば消えるのですがいちいち押すのが面倒でどうにか元の状態に戻したいのですがなにか方法がありませんでしょうか？

エクセル２０１０です。 文字を逆さにしたいのですが セルの書式設定でフォントを「@ＭＳ Ｐゴシック」にして 配置を90度にしたら確かに出来たのですが アルファベットだと横向きになってしまいます。 リンクの貼り付けで半句 この方法でアルファベットを逆さ文字にする事は可能でしょうか？ 画像の文字はアルファベットのaです。

WINDWS7、エクセル2013です。 ウィザードでしか式を作成したことがなく 他人の作成したエクセル内の関数で疑問が有ります。 １． =IFERROR(VLOOKUP(A1,Sheet2!A$1:H$100,3,0),"") と ２． =IF(A1="","",VLOOKUP(A1,Sheet2!A$1:H$100,3,FALSE)) では何が相違するのでしょうか？ 最初の1の方は、式の(　)内はセルにカーソルを置いて fxをクリックしてVLOOKUPを選び、ウィザードどうりに 進めてできた式のままで、 もしも検索できなかったら空白にしたい為に 前後にIFERRORと""を加えただけで（　）内は よく見る普通の式でわかりやすいです。 後の方の２は、何をしたくてこういう式になっているのかわかりません。 同じく ３． =IFERROR(AVERAGE(B2:K2),"") と ４． =IF(ISERROR(AVERAGE(B2:K2)),"",AVERAGE(B2:K2)) では何が相違するのでしょうか？ こちらも同様で 最初の３の方は、式の(　)内はセルにカーソルを置いて fxをクリックしてAVERAGEを選び、ウィザードどうりに 進めてできた式のままで、 もしも範囲内に値が無ければ空白にしたい為に 前後にIFERRORと""を加えただけで（　）内は よく見る普通の式でわかりやすいです。 後の方の４は、何をしたくてこういう式になっているのかわかりません。 よろしくお願いいたします。

Ａに　281100　と入っているときに Ｂに　281200と自動表示させたいです。 Ａが281200の場合は Ｂは290100となるようにしたいです。 両方を満たす式を教えてください。 ちなみに、日付です。28年12月00日（日付は別の場所で指定します） エクセル2010です。

エクセルで職場のユニフォームの在庫管理表作っています。 面倒ですが、ユニフォームの種類ごとにコード番号を付けて、sumifを使った表を作ってみました。 月初有高、当月仕入れ、当月残高が分かるようにしました。 月初有高の所に前月の表の当月残高を簡単に入れたいのですが、一つずつセルに式を入れたり（一つに式を入れて後コピーしても相対参照になりませんでした）、コピーをするのは時間がかかりすぎるので、どうしたら良いのか困っています。 月初有高の所に前月の当月残高を反映させる良い方法はないでしょうか？ そもそもエクセルが苦手で知識があまりありません。 ネットでどの方法が良いかいろいろ見てみましたが、マクロとか私には無理そうな方法を見かけました。 エクセル初心者にもできそうな方法はないでしょうか？ よろしくお願いします。

いつもありがとうございます。 Microsoft　Excel（無理ならばWord）で英文を一語ずつ縦に並べ替えたいのですが、 どのようにすれば良いでしょうか。バージョンはともに2016です。 次のような英文があったとします。 I have now that will just make my work flow run smoothly このように一語ずつ分けて書かれている英文を縦に I have now that will …後略 と並べ替えたいのですが、 マクロを使ったりして一括でなんとかできないでしょうか？ 識者の方よろしくお願いいたします。

ExcelのVlookup関数においての質問です。 画像のような場合において、 どのようにしたら”最終入庫”と”最終出庫”の値を 『導き出したい値』のように引っ張ってこれますでしょうか？ （画像では手入力しています） 品目が複数のセルに存在し、入出庫ステータスがバラバラであり、 各入出庫の最新の日付を検索したい場合どのようにしたらよいか お知恵を拝借できますと幸いです。 宜しくお願い致します。

いつもありがとうございます。 Microsoft　Excel（無理ならばWord）で英文を一語ずつ縦に並べ替えたいのですが、 どのようにすれば良いでしょうか。バージョンはともに2016です。 次のような英文があったとします。 I have now that will just make my work flow run smoothly このように一語ずつ分けて書かれている英文を縦に I have now that will …後略 と並べ替えたいのですが、 マクロを使ったりして一括でなんとかできないでしょうか？ 識者の方よろしくお願いいたします。

下記は給料１年分の集計をマクロで記録した結果の一部です。 そこで質問ですが、シート名を１２行、列記しないで済む方法はありますでしょうか？ Selection.Consolidate Sources:=Array( _ "'C:\Users\\[給料.xlsm]28(1)'!R2C1:R20C8", _ "'C:\Users\\[給料.xlsm]28(10)'!R2C1:R20C8", _ "'C:\Users\\[給料.xlsm]28(11)'!R2C1:R20C8", _ "'C:\Users\\[給料.xlsm]28(12)'!R2C1:R20C8", _ "'C:\Users\\[給料.xlsm]28(2)'!R2C1:R20C8", _ "'C:\Users\\[給料.xlsm]28(3)'!R2C1:R20C8", _ "'C:\Users\\[給料.xlsm]28(4)'!R2C1:R20C8", _ "'C:\Users\[給料.xlsm]28(5)'!R2C1:R20C8", _ "'C:\Users\\[給料.xlsm]28(6)'!R2C1:R20C8", _ "'C:\Users\\[給料.xlsm]28(7)'!R2C1:R20C8", _ "'C:\Users\\[給料.xlsm]28(8)'!R2C1:R20C8", _ "'C:\Users\\[給料.xlsm]28(9)'!R2C1:R20C8"), Function:=xlSum, _ TopRow:=True, LeftColumn:=True, CreateLinks:=False

Excel2013使用 シートAに一覧表があり、それをシートBの帳票に vlookupを使って転記をしています。 現在の状況です↓ 【シートA】（一覧表） ・A列には、1～30の通し番号があらかじめ入っています ・1行目は、項目名が入っています よって、実際のデータは「B2」から始まります 【シートB】（帳票） ・セル「B6」に、シートAのA列の番号を入力すると、その他の 　項目がvlookupによって自動で反映されます ここからが本題です。 現在、シートBの帳票を印刷する際は、セルB6に手で「1」と入力→「印刷」 次に「2」と入力→印刷・・・という風にしています。 日によっては20以上になる事もあるので、自動で印刷が出来れば…と思います。 なにとぞよろしくお願いいたします。

「VLOOKUP」で参照した文字を関数式に代入する方法を教えてください。 イメージとしては、「＝SUM(A1:VLOOKUP(-,-,-,-)25)」というように、 VLOOKUPで参照した文字を"E"とすると、結果的には、＝SUM(A1:E25) となるような関数式を作りたいと考えております。 どのようにすればよろしいでしょうか？ よろしく教えていただきたくお願いいたします。

A列には「文字列」が入力されています。 L列には計算式が入力され、計算結果が数字で表示されています。 L列の計算結果が「0より大きい」「0より小さい」という条件に該当する、A列のデータの種類数をカウントする関数を教えてください。データ行数は「1行目から100行目」でお願いします。 A列　L列 田中　100 鈴木　-50 田中　70 佐藤　80 佐藤　-70 工藤　-15 L列で「0より大きい」　→　A列のデータの種類数は田中、佐藤なので　「2」という計算結果を導き出したい。 L列で「0より小さい」　→　A列のデータの種類数は、鈴木、佐藤、工藤なので、「3」という計算結果を導き出したい。 Excel2013を使っていますが、2007にも対応できる計算式だと、なおありがたいです。 お手数をおかけいたしますが、よろしくお願いします。　

あるセル(x)に住所が入っています。 その住所は都道府県から入っている場合もあるし、都道府県抜きの場合もあります。 都道府県の抜きの場合に、都道府県を入れて住所を編集し、別のセル(Y)にセットしたいです。 「港区、、、」であれば「東京都港区、、、」 「横須賀市、、、」であれば「神奈川県横須賀市、、、」 そんな感じです。 特定地域ですので、市町村名は限られています。 どんな風にエクセルを作成すれば良いでしょうか？

Excelのピボットテーブルに関するお知恵を拝借できればと思います。 具体例を挙げますと、当日出荷が掛かった数量をピボットテーブルを使い、各商品毎の総数量を算出します。 その後、当日入荷がある分と出荷がある物を照らし合わせ、入荷分で補えない物は在庫からピッキングをするという事をしています。 これらをExcelを使い、在庫から出さなくてはいけない数量、在庫となる数量を算出したいと考えています。 この際、どの様なやり方があるかを教えて頂けますと助かります。 宜しくお願い致します。

はじめて記載させていただきます。 エクセルで時刻の計算式を作りました。 添付画像も添付しておきます。ご精査していただきご回答をお願い致します。 日中作業分は○○時間　夜間作業分は○○時間と分けたい C3 直接入力 D３ 直接入力 E3 D3-C3+(C3>D3) F3 E3-G3 G3 IF(COUNT(C3:D3)<2,0,MAX(MIN(D3,"8:00"+(C3<D3))-MAX(C3,"20:00")+(C3>D3),0)+IF(C3<"8:00"*1,"8:00"-C3,0)) 条件 1 8:00～20：00　日中作業分 2 20:00～8:00 　夜間作業分 ★下記表の通り、開始4：00　終了7：00等になった場合うまく表示（計算されません） ※いろいろためしたのですが終了時間が8:00前の場合反映しないかもしれません ■現在の式では↓のように表示（計算）になってしまいます。 開始時刻 終了時刻 　total 　日中作業 　夜間作業 　　4:00　　 7:00 　3:00　 #### 4:00 ■↓このように計算表示させたい 　　開始時刻 終了時刻 total 日中作業 夜間作業 4:00 7:00 3:00 0:00 3:00 よろしくお願い致します。

エクセル2010で、ワークシート関数の質問です。 Q3:R19の表があります。 Q列にはTRUEかFALSEが必ず入ります。（空白や文字列は無し） R列には文字列です。 Q列でFALSEのセルだけ、同じ行のとなりのR列の文字列を順に抜き出し、V9セル以下に切れ目なく表示したいのです。 TRUEを抜き出すのならV9セルに =IF(ROW(A1)>COUNTIF($Q$3:$Q$29,TRUE),"",INDEX($R:$R,1/LARGE(INDEX(($Q$3:$Q$29)/ROW(A$3:A$29),),ROW(A1)))) と、以前教えてもらった数式を入れて、下へドラッグ・アンド・ドロップすれば添付の図のように抽出できます。でもこの式自体をよく理解できていないので、応用ができません。式の中のTRUEをFALSEに変えただけではだめでした。 どう変えればいいのでしょうか？ 作業列を作って、=NOT(Q3) とし、TRUEとFALSEを逆転させ、Q列の代わりに作業列を参照する方法やVBAでなら思いつきますが、それ以外にいい方法はないのでしょうか？

エクセル2010で、ワークシート関数の質問です。 Q3:R19の表があります。 Q列にはTRUEかFALSEが必ず入ります。（空白や文字列は無し） R列には文字列です。 Q列でFALSEのセルだけ、同じ行のとなりのR列の文字列を順に抜き出し、V9セル以下に切れ目なく表示したいのです。 TRUEを抜き出すのならV9セルに =IF(ROW(A1)>COUNTIF($Q$3:$Q$29,TRUE),"",INDEX($R:$R,1/LARGE(INDEX(($Q$3:$Q$29)/ROW(A$3:A$29),),ROW(A1)))) と、以前教えてもらった数式を入れて、下へドラッグ・アンド・ドロップすれば添付の図のように抽出できます。でもこの式自体をよく理解できていないので、応用ができません。式の中のTRUEをFALSEに変えただけではだめでした。 どう変えればいいのでしょうか？ 作業列を作って、=NOT(Q3) とし、TRUEとFALSEを逆転させ、Q列の代わりに作業列を参照する方法やVBAでなら思いつきますが、それ以外にいい方法はないのでしょうか？

Q3:R19の表があります。 Q列にはTRUEかFALSEが入りますが、空白や文字列の場合もあります。 R列には文字列です。 Q列でFALSEのセルだけ、同じ行のとなりのR列の文字列を順に抜き出し、メッセージボックスに表示したいのです。 下記のようなVBAを書いてみましたが、Q列が空白や文字列の場合まで抽出されてしまいます。 これを排除するいい方法はないでしょうか？ Sub test01() 　　Dim msg As String 　　Dim i As Long 　　With Sheets("LOG") 　　　　For i = 3 To 19 　　　　　　If .Range("Q" & i).Value = False Then '　　　　　　　　Debug.Print 　i & "-" & .Range("R" & i).Value 　　　　　　　　msg = msg & .Range("R" & i).Value & vbCrLf 　　　　　　End If 　　　　Next i 　　End With 　　If msg <> "" Then 　　　　MsgBox msg & vbCrLf & "上記により不可です。", vbCritical 　　End If End Sub