効率化！おすすめのドキュメント作成の便利機能まとめ– category –

すいみん

こちらのCGメソッドの記事では「効率化！おすすめのドキュメント作成便利機能まとめ」を紹介します！

Excelの効率化！おすすめの便利関数・機能まとめ

本記事ではExcelで役に立つ便利な機能をまとめました。

セルに合わせてぴったり画像を合わせる方法

ショートカットまたはマクロを使って画像をきれいにサイズを合わせる方法をまとめました。
詳細は下記の記事にて。

あわせて読みたい

【Excel】セルに合わせてぴったり画像を合わせる方法【Excel】効率化！10個のおすすめの便利関数・機能まとめ【［エクセル＆スプレッドシート］ショートカットキーでセルに合わせてぴったり画像を合わせる】Altキーを押し...

特定の文字がある時に隣のセルを塗りつぶす方法

Find関数を使います。
詳細は下記の記事にて。

あわせて読みたい

【Excel】特定の文字がある時に隣のセルを塗りつぶす方法 [FIND関数]【Excel】効率化！10個のおすすめの便利関数・機能まとめ【特定の文字がある時に隣のセルを塗りつぶす方法】例：今回の場合B列に「リンク」と文字が書かれている場合、...

結合セルになっている表から数字を参照するやり方

関数を駆使してなんとか参照します。
基本的には結合セルは使わないでほしいですよね。

詳細は下記の記事にて。

あわせて読みたい

【Excel】結合セルになっている表から数字を参照するやり方【Excel】効率化！10個のおすすめの便利関数・機能まとめ【INDEX関数とMATCH関数で結合セルになっている表から数字を参照するやり方】指定範囲内の「区分」の検索値から...

変更箇所を赤字で表示する方法

差分を別シートにとって変更箇所を赤文字に変更する方法の紹介です。
詳細は下記の記事にて。

あわせて読みたい

【Excel】変更箇所を赤字で表示する方法パラメーターなど変更箇所を確認するための簡易差分シートの作成方法。【Excel】効率化！10個のおすすめの便利関数・機能まとめ【変更箇所を赤字で表示する方法】やり方...

空白を飛ばして連番をつける方法

SUMPRODUCT関数を使って空白を飛ばして連番をつけます。
詳細は下記の記事にて。

あわせて読みたい

【Excel】空白を飛ばして連番をつける方法 [SUMPRODUCT関数]エクセルやスプレッドシートで空白を除いて連番をつける方法です。【Excel】効率化！10個のおすすめの便利関数・機能まとめ【空白を飛ばして連番をつける方法】SUMPRODU...

隣のセルに文字がある場合にアンダーバーを付ける方法

ISTEXT関数を使います。

=IF(ISTEXT(A2),"_","")

別の方法もあります、CONCATENATE関数を使います。

=CONCATENATE(A2,B2,C2,D2,E2,F2,G2,H2,I2,J2,K2)

※ 途中、文字列がない場合はちゃんと抜かした状態でつながれます。
※ 数字を入れたい場合は'00のようにアポストロフィーを付けてやります。

土日・祝日・指定日を除いて期日を計算する方法

納品日と工数が見えていて、いついつまでにデータくださいみたいなリストを作りたい時に土日や祝日、特定の日を除いて期日を出す方法です。

WORKDAY（開始日, 日数, 祭日）

例

=WORKDAY(C2,-B2,F:F)

開始日を納品日、日数を－工数、祝日をリストから取ってきています。

「完了」の文字を入れるとその行全てグレーに塗りつぶされる方法

プルダウンで完了とした場合に、その行すべてグレーに塗りつぶす方法です。

条件付き書式
カスタム数式で以下のような記述

=$A1="完了"

以上で、特定の文字に反応して行がすべて塗りつぶされます。

応用例1　特定の単語が含まれている場合にその行全てグレーに塗りつぶされる方法

=(COUNTIF($A1, "完"))

応用例2　特定の単語が含まれない場合は、その行全てグレーに塗りつぶされる方法

=(COUNTIF($A1, "<>完了"))

[マクロ]各セル単位の内容をそれぞれ1つずつテキストファイルに出力する方法

Alt+F11でマクロ起動
挿入→標準モジュール
下記のコードをコピペ
実行

Sub OutPutMacro()
Dim fs As Object
Dim objTxt As Object
Dim i As Long
Dim orgPath As String
orgPath = CurDir
'上書きオプション
Const OVRW As Boolean = True
'出力する場所
ChDir "C:Users\ユーザー名\Desktop"
Set fs = CreateObject("Scripting.FileSystemObject")
For i = 1 To Range("A65536").End(xlUp).Row
If Cells(i, 1).Value <> "" Then
'列番号[テキスト名]
Set objTxt = fs.CreateTextFile(Cells(i, 1).Text & ".txt", OVRW)
'列番号[テキストの内容]
objTxt.WriteLine (Cells(i, 2).Text)
objTxt.Close
End If
Next i
ChDir orgPath
Set fs = Nothing
MsgBox "処理が完了しました", Title:="メッセージ"
End Sub

教えて！goo