ID登録せずに、無料で質問できる♪ 教えて!gooアプリ>>

多少複雑なカーブを、パワーポイントやExcel等で作成したいのですが、

このカーブ作成がどうにもうまく行きません。

Excelで、「図形」のカーブを選択し、
マウスで頂点にしたい部分をクリックするたびに、カーブが勝手に膨らんだりしてどうにもやりづらいです。

これを解決する方法として、
●頂点の編集
という方法がある、というところまで調べました。

これによって少しはましになりましたが、まだまだ大変やりづらいです。

Excelやパワポで、
こうした図形を、もっと簡単に書く方法があれば、教えてください。

よろしくお願いします。

「曲線カーブの簡単な書き方?(Excel・」の質問画像

A 回答 (1件)

やはり頂点の編集でちょこちょこやるのが、案外早いのでしょう。


座標を数値的に決めて線を描かせるよりは、頂点をいじくる方が楽だと思います。
「曲線カーブの簡単な書き方?(Excel・」の回答画像1
    • good
    • 0
この回答へのお礼

見事に、エクセルで再現できていますね。
お返事遅れてしまいました。
ご回答、どうもありがとうございました!

お礼日時:2017/08/17 05:52

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aと関連する良く見られている質問

Qエクセルを私が開くと日付の表示がおかしくなる(他の人は問題なし)

会社でエクセルファイルを私が開くと日付の表示がおかしくなります。(他の人は問題ないです)

具体的には、平成○年○月○日という表示されるよう設定されファイル作成されているはずが、
私が開くと○月○日平成○○年と表示されます。

このようなファイルが一つではありませんので、私のPCでの「エクセル」の設定がおかしいのかと。

勿論、毎度毎度、気が付く度に手作業で直せますが、根本的にリセットしたいです。
気が付かないで印刷し取引先に送ったら注意を受けてしまいました。

原因・修正にお心当たりの方、ご教示の程宜しくお願い致します。

Aベストアンサー

参考になりますかね
https://oshiete.goo.ne.jp/qa/2408312.html
https://matome.naver.jp/odai/2141732667925396001

Q西暦をS〇〇年〇月〇日へ

1964/11/10と入力していましてこれを
S39年11月10日と表示したいのですがどうすればいいのか教えて下さい。

Aベストアンサー

セルの書式設定でユーザ定義を加えれば、
お望みどおりの表示形式が作成できます。

Q入力文字を逆さに

写真のようにA1~A4の入力文字をA5~A8に逆さにして入力する方法を教えてください。
エクセル2010と2013を使用しています。
よろしくお願いいたします。

Aベストアンサー

こんなのはどうでしょうか。
「セルの書式設定」-「配置」で、文字列の方向を90度、および、-90度にします。

ちなみに、F1~I1は、A1~D1を数式で参照します。参照順番はお好きなように変更してください。
さらに云うなら、品名や生産日?の一覧を別途作成して、画像の印刷用シートは、それを参照するようにした方が、入力も楽ですね。

Qエクセル2016 にてご質問をお願いいたします。

シート1、シート2、シート3が3個あります。

全てのシートのA1セルに同じ文字や数字を入れたいと思っております。

シート1でA1セルに入力したものがシート2、シート3も同じ数字になる。
シート2でA1セルに入力したものがシート1、シート3も同じ数字になる。

どのページでA1の文字を入力や修正を行うとすべてのシートが同じになるようにしたいです。

どうかよろしくお願いいたします。

Aベストアンサー

「ThisWorkbook」モジュールのWorkbook_SheetChangeイベントプロシジャに下記のコードを書いちゃうってのは、いかがでしょう。

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim r As Range
Set r = Intersect(Target, Sh.Range("A1"))
If r Is Nothing Then Exit Sub
Application.EnableEvents = False
Select Case Sh.Name
Case "Sheet1"
Sheets("Sheet2").Range("A1").Value = r.Value
Sheets("Sheet3").Range("A1").Value = r.Value
Case "Sheet2"
Sheets("Sheet1").Range("A1").Value = r.Value
Sheets("Sheet3").Range("A1").Value = r.Value
Case "Sheet3"
Sheets("Sheet1").Range("A1").Value = r.Value
Sheets("Sheet2").Range("A1").Value = r.Value
End Select
Application.EnableEvents = True
End Sub

「ThisWorkbook」モジュールのWorkbook_SheetChangeイベントプロシジャに下記のコードを書いちゃうってのは、いかがでしょう。

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim r As Range
Set r = Intersect(Target, Sh.Range("A1"))
If r Is Nothing Then Exit Sub
Application.EnableEvents = False
Select Case Sh.Name
Case "Sheet1"
Sheets("Sheet2").Range("A1").Value = r.Value
Sheets("Sheet3").Range("A1").V...続きを読む

Qエクセルで図形をきれいに真上にコピペする方法はありますか?

図のように、縦線一本をコピペすると、右下にコピーされるのですが
右のように、完全に真上にコピーされるようにする何かいい方法はありますか?

手動だと少しずれてしまいます。

Aベストアンサー

ctrlとshiftを押しながら縦方向にドラッグするとできますよ♪

Qエクセルで特定の数字だけ勝手に変換されてしまいます

エクセル2010で48,609.793と入力するのですが
入力後のセルを見てみると48,609.792999999と
勝手に変換されてしまいます。
48,609.792や48,609.794ではそのままなのですが
なぜなのでしょうか?
計算上で入力した数値を使用したく困っています。

Aベストアンサー

10進数をコンピュータ内部では2進数の形で保持することによる誤差だそうです。
なるべくこの誤差が出ないようにExcelは工夫されているそうですが、
特定の数字を入力すると「99999…」が現れるのだとか。
この質問を見て調べるまで全然知りませんでした。
https://answers.microsoft.com/ja-jp/msoffice/forum/msoffice_excel-mso_other/excel/bbaaa7f0-5e73-4d7c-aa05-6709a3357d26
https://support.microsoft.com/ja-jp/help/813530

計算式には数字を丸める関数を入れると対処できると思います。
ROUNDやROUNDUP関数で引数を3にしてみてください。
http://kokoro.kir.jp/excel/round.html

QエクセルのVLOOKUPで1つの検索値に複数の該当が有った場合の処理

お世話に成ります。
エクセル2010のVLOOKUP関数で、例えばA列に日付が入っていて、B列に人の名前が入っていて、日付けで検索した場合にA列に同じ日付が有って、B列に違う名前が有った場合の処理について教えてください。

やりたいのは、上から順に名前が引き当てられる。 <表示例 1>
これは当方には難しい気がするので、第2希望としては全ての該当氏名が同じ日付に引き当てられる。
<表示例 2>
この場合、表示させるセルの場所の指定が煩雑になりそうな気がしますが、何とかできないでしょうか?

A列       B列
2017/7/1    Aさん
2017/8/1    Bさん
1017/7/1    Cさん

<表示例 1>
検索値    結果 
2017/7/1   Aさん
2017/7/1   Cさん

もしくは
<表示例 2>
検索値    結果 
2017/7/1   Aさん、Cさん

Aベストアンサー

VLOOKUP関数ではなくて、フィルターの詳細設定で表示例1のようにできます。
[データ]→フィルター横にある[詳細設定]で。

Qエクセル トラブル

ノートPCで昨日まで使えていたエクセル(Word等のoffice製品すべて)が使えなくなりました。。
エクセルを立ち上げようとしたら、
【C:Program Files(x86)\Microsoft Office\root\Office16\AppVlsvSubsystems32.dllはWindows上では実行できないか、エラーを含んでいます。元のインストールメディアを使用して再インストールするか、システム管理者またはソフトウェアの製造元に問い合わせてください。エラー状態0xc0000020。】
とポップが表示されます。

これはどういう状態でどういうエラーなのでしょうか?
また使えるようにするためには何をしたらよいでしょうか?
毎日エクセルを使うので大変困っています。。
よろしくお願いいたします。

Aベストアンサー

以下はお試しになりましたか?
https://support.office.com/ja-jp/article/%E3%82%A8%E3%83%A9%E3%83%BC-%E3%82%B3%E3%83%B3%E3%83%94%E3%83%A5%E3%83%BC%E3%82%BF%E3%83%BC%E3%81%AB-AppVIsvSubsystems32-dll-%E3%81%8C%E3%81%AA%E3%81%84%E3%81%9F%E3%82%81%E3%80%81%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0%E3%82%92%E9%96%8B%E5%A7%8B%E3%81%A7%E3%81%8D%E3%81%BE%E3%81%9B%E3%82%93-3e8e09b6-5500-41df-9497-e0fc3e3d781c

QExcel 2段組み

縦長の表を2段組みとしたいのですが、下記の条件があります。
Excelで作成することは可能でしょうか。
可能でしたら方法を教えていただけないでしょうか。
よろしくお願いいたします。

①縦長の表を2段組みとしたい。
②表内で並び替えが可能としたい。
③2段組み内の1段の行を削除した場合に空きが出た1段部分に
2段部分のデータが自動で繰り上がるようにしたい。
(例えば2017年1月を削除した場合に2017年8月が自動で繰り上がるようにしたい。)



子供が小さいのでご連絡が遅くなる可能性がありますが、ご回答いただけた方には必ずお返事を致します。
よろしくお願いいたします。

Aベストアンサー

こんばんは!

① は画像のような配置ではなく、最初はA~F列だけにデータが羅列してある。
というコトですよね?
それをA~F列は7か月分だけにし、残りはG~L列に移動させたい!という解釈です。

② の「表内での並び替え」とはどの列がキーになるかが判りません。
これに関しては手作業で範囲指定 → 並び替え というコトが可能だと思いますので、今回はスルーします。

③ は仮にA~F列の1か月分(複数ヶ月でも)データを消去した場合にA~F列は上詰め、
G~L列は上詰めした月数分を繰り上げてA~F列に移動させる!という解釈です。

VBAになりますが一例です。
↓のSample① が「①」、Sample③ が「③」のコードになります。

Dim i As Long, cnt As Long
Dim lastRow1 As Long, lastRow2 As Long
Dim myRng1 As Range, myRng2 As Range
Sub Sample①()
If WorksheetFunction.CountIf(Range("A:A"), "小計") > 7 Then
Range("A1").Resize(, 6).Copy Range("G1")
lastRow1 = Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To lastRow1
If Cells(i, "A") = "小計" Then
cnt = cnt + 1
If cnt = 7 Then Exit For
End If
Next i
Range(Cells(i + 1, "A"), Cells(lastRow1, "F")).Cut Cells(Rows.Count, "G").End(xlUp).Offset(1)
lastRow1 = 0
cnt = 0
End If
End Sub

Sub Sample③()
If WorksheetFunction.CountIf(Range("A:A"), "小計") < 7 Then
lastRow1 = Cells(Rows.Count, "A").End(xlUp).Row
lastRow2 = Cells(Rows.Count, "G").End(xlUp).Row
For i = 2 To lastRow2
If Cells(i, "G") = "小計" Then
cnt = cnt + 1
If cnt = 7 - WorksheetFunction.CountIf(Range("A:A"), "小計") Then Exit For
End If
Next i
Range(Cells(2, "G"), Cells(i, "L")).Cut Cells(lastRow1 + 1, "A")
Set myRng1 = Range(Cells(2, "A"), Cells(lastRow1, "A")).SpecialCells(xlCellTypeBlanks)
Set myRng2 = Range(Cells(2, "G"), Cells(lastRow2, "G")).SpecialCells(xlCellTypeBlanks)
myRng1.Resize(, 6).Delete shift:=xlUp
myRng2.Resize(, 6).Delete shift:=xlUp
lastRow1 = 0
lastRow2 = 0
cnt = 0
End If
End Sub

※ 「小計」までが各月の最終行と見なしています。
すなわち「小計」の数で行数を決めています。m(_ _)m

こんばんは!

① は画像のような配置ではなく、最初はA~F列だけにデータが羅列してある。
というコトですよね?
それをA~F列は7か月分だけにし、残りはG~L列に移動させたい!という解釈です。

② の「表内での並び替え」とはどの列がキーになるかが判りません。
これに関しては手作業で範囲指定 → 並び替え というコトが可能だと思いますので、今回はスルーします。

③ は仮にA~F列の1か月分(複数ヶ月でも)データを消去した場合にA~F列は上詰め、
G~L列は上詰めした月数分を繰り上げてA~F列に移動...続きを読む

Qエクセル2010、指定範囲に2種類の入力制限をかけたい

間違い入力防止の為に、以下の挙動をさせたいのですが上手くいきません。どうかご教示頂けないでしょうか?
なお、エクセル初心者のためVBAなるものなどは使えません…

◼︎条件1
A1に数値40が入力されたときのみ、B1〜D1の各セルへは11以上の数値は入力禁止。

◼︎条件2
A1が数値40以外(文字列の入力も含む)は、B1〜D1には入力の制限はかけない。

以上の条件を、A列及びB〜D列全体に適用させたい。

試しに以下のように設定しても数式エラーとなってしまいました。

B〜D列を選択

入力規則でユーザー設定を選択

入力規則の数式入力Boxへ、
=OR(AND(A:A=40,B:D<=10),AND(A:A<>40,B:D>0))


また、以下も同様にダメでした…

B〜D列を選択

入力規則でユーザー設定を選択

入力規則の数式入力Boxへ、
=IF(A:A=40,B:D<=10,B:D>=0)

ネット上を検索してみても希望の挙動をするような案件は見当たらず、根本的に間違えているのかも皆目見当がつきません。

間違い入力防止の為に、以下の挙動をさせたいのですが上手くいきません。どうかご教示頂けないでしょうか?
なお、エクセル初心者のためVBAなるものなどは使えません…

◼︎条件1
A1に数値40が入力されたときのみ、B1〜D1の各セルへは11以上の数値は入力禁止。

◼︎条件2
A1が数値40以外(文字列の入力も含む)は、B1〜D1には入力の制限はかけない。

以上の条件を、A列及びB〜D列全体に適用させたい。

試しに以下のように設定しても数式エラーとなってしまいました。

B〜D列を選択

入力規則でユー...続きを読む

Aベストアンサー

>=OR(AND(A:A=40,B:D<=10),AND(A:A<>40,B:D>0))

検索してこんな指定の仕方しているサイトがあったんですか?

私なら、B~D列を選択して、入力規則で

=NOT(AND($A1=40,B1>10))

と指定します。


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング