Excel総合相談所 90

>>950
あの件ってなんだ？

あれ？
今日は書き込めたぜ。

こんどの会社がExcel2007なんです。
いままではExcel2003使ってました。

まだほとんどさわってませんが、このさらに使いにくく、不便になった 2007 を仕事で使用するにあたり
なんでもいいから気をつけないといけないこと、とかありますか？

>>952
上の方にあると思う。色がどうだの、言ってた変な日本語の人
>>954
2007　バグ　でぐぐるといいのかなぁ
とりあえず256*65536に表が拡大されたけど、拡大されたところを使うとバグが置きやすいと聞いたことはある
256*65536で止めておくのが正解かな

>>954
慣れろ
早く慣れたいなら自宅でも2007を使え

たいしてかわんねえよ

シートの拡大、条件付き書式の強化、フルカラー対応、関数の拡張、良くなった点も多いのに
あとはマクロの記録さえなんとかなればなあ…

>>954
まず慣れなきゃならないのはExcelよりも会社だろ。
Excelのバージョン違いなんて些細なこと。
むしろ（バージョンの違いはあるにせよ）Excelを扱ったことがあるぜという前向き
な気持ちでがんばりなさい。

なんで人生総合相談所になってんだ？

（´ω｀）

なんだそのスナフキンみたいな態度わぁ

【1 OSの種類 　 　 　 　 .】 Windows vista
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
えっと、お取り込み中申し訳ないんですが
Ｅｘｃｅｌ2007の関数でフォルダの中身のファイル名を書き出す式を教えて下さい。
Excel 関数 ファイル名で検索してみたんですが
ＶＢＡだったり
解説が意味が理解出来なかったりしました
（ヤフーで３番目ぐらいに出てきましたＯＴＬ）
すいませんお願いします

>>963
VBA使わないと無理
3番目は文字列の操作をやってるだけで、ようするにこの質問とは全然関係ない話

まじですか・・・
そのじゃあＶＢＡのプログラム？でお願いします
使い方も調べてきますＯＴＬ

>>965
VBAでやる方法は、それこそ検索すればいくらでも出てくるわけだが

Excelを起動する
Alt+F11
挿入→標準モジュール

ここで開いた白い窓にVBAのプログラムをコピペしてからF5を押すとプログラムが動く

>963=>965です
ありがとうございます
なんとかそのまんまコピーできそうなのを見つけて
実行できました助かりました！

【1OSの種類】WindowsXPServicePack3
【2Excelのバージョン】Excel2003
【3VBAが使えるか】いいえ
【4VBAでの回答の可否】否
【5検索キーワード】Excel 書式 コピー 全行

ttp://uploader.rgr.jp/src/up2648.jpg
この様なA3〜G3まで書式指定された行があります。
このA3〜G3までの書式指定をA4〜G4やA5〜G5やA6〜G6にうつすには
画像のように書式のコピーをクリックしてなぞってやれば可能です。

しかしA3〜G3までの書式指定をその行以下のAn〜Gn(n=4, 5, 6, 7, ・・・)の全てに適用するには
どうしたらいいでしょうか。
（到底なぞりきれません。）

よろしくお願い申し上げます。

コピーしてから、貼りつけたい範囲を選択して、形式を選択して貼付け

>>969
A3〜G3までの書式指定をその行以下のAn〜Gn(n=4, 5, 6, 7, ・・・)の全てに適用したいのですが。
全てとは文字通り全て（Excelが扱える上限まで）です。

シート内のみでのやりかたはわからないけど
下記だとどう？

1)処理したいシートのコピーを作成
2)処理したいシートで
　A3〜G3までの書式指定を　全ての行(適用したくない行も含めて)に適用
3)適用したくない行(A1〜G2)をコピーシートから　処理したいシートへコピぺ(戻す)する
4)最後にコピーシートを削除する

>>971
ありがとうございます。
それで全部出来ました！

A,B,C列に表があります。
D,E,F列にも表があります。
つまり、左と右に二つ表があるんです。

ここで左の表だけ行のならべかえをすることって可能ですか？ (without affecting the other right-hand table)

二つの表の お互いの行位置が 無関係なら可能

>>973
A,B,C列だけ選択すれば可能

>>974
ざんねんながら同じ行です。 I'm afraid both of the tables are overrapping each other.
>>975
そんな簡単にできるんだ。実際できたよ！ I never dreamed that it can be handled that easily. I did it!

【1OSの種類】WindowsXPServicePack3
【2Excelのバージョン】Excel2003
【3VBAが使えるか】いいえ
【4VBAでの回答の可否】否
【5検索キーワード】Excel 次の番号

ttp://uploader.sakura.ne.jp/src/up6020.jpg
この様に次の番号をExcelは推測して勝手に付けてくれますが、
この機能について質問させてください。


ttp://uploader.sakura.ne.jp/src/up6021.jpg
この画像の状況で、A9にカーソルがあるとします。
このとき、その上にある空白以外のセルの中で直近のものの次の番号を
推測させてそのカーソルの位置に書き込ませることは出来ませんでしょうか。
この画像の状況ならA9に(A5の次として)"タグ72"が入るということです。

どうかよろしくお願い申し上げます。

>>977
画像が消えてる
質問する時は最低でも24時間はデータが残る場所を使って

>>977
自動的に次の数字や数式を補う機能のことをオートフィルと言う。

人間が指定したセルから次の数字を計算することはできるが、セルの位置を推測する機能はない。
あるいはVBAで作るしかない。

画像のリンク切れ失礼致しました。
修正して再うｐ致しました。
よろしくお願い申し上げます。

//////////////////////////////////////////////////////////////////
【1OSの種類】WindowsXPServicePack3
【2Excelのバージョン】Excel2003
【3VBAが使えるか】いいえ
【4VBAでの回答の可否】否
【5検索キーワード】Excel 次の番号

ttp://imagepot.net/image/127039146044.jpg
この様に次の番号をExcelは推測して勝手に付けてくれますが、
この機能について質問させてください。

ttp://imagepot.net/image/127039146171.jpg
この画像の状況で、A14にカーソルがあるとします。
このとき、その上にある空白以外のセルの中で直近のものの次の番号を
推測させてそのカーソルの位置に書き込ませることは出来ませんでしょうか。
この画像の状況ならA14に(A9の次として)"タグ72"が入るということです。

どうかよろしくお願い申し上げます。

>>980
再うｐしたところ、申し訳ないけれど一般機能では「無理」
vbaで出来なくはないけれど、たぶんあまり実用的ではなさそう。

>>980
A9をA10にオートフィルするとA10に タグ72 が入る。
A10をアクティブにしてその黒枠部分にカーソルを持って行くとカーソルが4方向矢印になる。
その状態でドラッグしてA14 にドロップするとよい。

さすがに推測は無理だけどA9〜A13を選択した状態でA14をオートフィルすれば「タグ72」が入るよ

それでできるけどビミョーに．．．

>>981-984
ありがとうございます。
A14にカーソルがある状態で一発で上記の処理（"タグ72"と入れる）
を完了したいので、VBAでならもし可能でしたらお願いします

>>985
Sub hoge()
Dim v As String
Dim i As Long
Dim myStr As String
Dim NStr As String
Dim Bln As Boolean
v = ActiveCell.End(xlUp).Value
If v = "" Then Exit Sub
Bln = False
For i = Len(v) To 1 Step -1
　myStr = Mid(v, i, 1)
　If myStr Like "[0-9]" Then
　　Bln = True
　　NStr = myStr & NStr
　ElseIf Bln = True Then
　　Exit For
　End If
Next i
If IsNumeric(NStr) Then NStr = NStr + 1
NStr = Left(v, i) & NStr
ActiveCell.Value = NStr
End Sub
末尾の半角整数が＋1になる。数字がなければそのままコピー。
ツール→マクロ→オプション　でショートカットキーを設定できる。

>>986
ありがとうございます。
それでできました。

ExcelのVBAは食わず嫌いだったのですが、
C/C++, Python等はそもそも知っていて
プログラミングを知らないわけではないのです。
そのため今回のような柔軟な事ができるのであれば
今度勉強してみようと思います。

【1OSの種類】WindowsXPServicePack3
【2Excelのバージョン】Excel2003
【3VBAが使えるか】いいえ
【4VBAでの回答の可否】可
【5検索キーワード】Excel 1 上のセル

>>980と似ているのですが、
そのセルより上のセルを順に見ていって、最初に半角数字を含んだセルの文字列を
Strとして取得、このStrの最初の数字を+1し、それ以外を1に置き換えたものを
入れる方法(VBA)を書いていただけませんでしょうか。

数字は自然数ないし0のみ認識してください。
例えば -23 は ハイフン23 であるとし、 +1ならハイフン24すなわち-24に、
1に置き換える場合はハイフン1なので-1になる。
といった具合です。
3.14も3ドット14と認識してください。

例：ttp://imagepot.net/image/127047107668.jpg

お手数おかけ致しますが、
どうかお知恵をお貸しください。

よろしくお願い申し上げます。

すみません
先の画像に大きな誤りがありました。

ttp://imagepot.net/image/127047146060.jpg
これが目的の動作です。

どうかよろしくお願い申し上げます。

みんなこの程度の関数っていくらぐらい請求してる？うちは1万5千円なんだけど。

>>988
Strは予約語だからstr1にした。
ワークシート関数として作ってあるから、>>989の画像の例だとセルA11、B11、C11に =謎処理() と書けばいい。

Function 謎処理() '半角数字の含まれるセルを上向きにサーチ
　　Dim str1 As String
　　Dim R As Integer, C As Integer
　　Dim F As Boolean
　　Dim L As Integer

　　R = Application.Caller.Row
　　C = Application.Caller.Column

　　F = True
　　While R > 1 And F
　　　　R = R - 1
　　　　str1 = Cells(R, C).Text
　　　　L = Len(str1)
　　　　While L > 0 And F
　　　　　　If "0" <= Mid(str1, L, 1) And Mid(str1, L, 1) <= "9" Then F = False
　　　　　　L = L - 1
　　　　Wend
　　Wend

　　If F Then
　　　　謎処理 = CVErr(xlErrValue)
　　Else
　　　　謎処理 = 謎2(str1)
　　End If
End Function

続き。(これで最後)

Function 謎2(str1) '数値を置き換える
　　Dim str2 As String
　　Dim ch As String
　　Dim F As Boolean
　　Dim n As Variant
　　str2 = ""

　　F = True
　　While Len(str1) > 0 And F
　　　　ch = Left(str1, 1)
　　　　If "0" <= ch And ch <= "9" Then
　　　　　　n = Int(Val(str1))
　　　　　　str1 = Mid(str1, Len(n) + 1): str2 = str2 & (n + 1)
　　　　　　F = False
　　　　Else
　　　　　　str1 = Mid(str1, 2): str2 = str2 & ch
　　　　End If
　　Wend

　　While Len(str1) > 0
　　　　ch = Left(str1, 1)
　　　　If "0" <= ch And ch <= "9" Then
　　　　　　n = Int(Val(str1))
　　　　　　str1 = Mid(str1, Len(n) + 1): str2 = str2 & "1"
　　　　Else
　　　　　　str1 = Mid(str1, 2): str2 = str2 & ch
　　　　End If
　　Wend
　　謎2 = str2
End Function

注意(仕様)
処理の対象となる文字列の中に半角数字が16桁以上連続した部分があると正しく処理できない。

>>990-992
ありがとうございます。
助かりました。
早速戻ったら試してみます。

>>951
そうです数日前にやっとexcel2002を手に入れて再開したところです
しかし今日信じられないことが解りました
どうも　Visual　Basic の正式なマニュアルというのは（日本語では）書籍であれヘルプの形であれ無いようですね
有って当たり前だと思って探し回っていましたが探せない訳が解りました
ここでいくら聞いても明確な答えが返って来ない訳です
みなさんはどうやって各命令語の記述の仕方を調べているのですか？
Visual　Basic そのものをソフトで買えばそのヘルプには各命令語の記述の仕方が書かれているのでしょうか

VBじゃなくて、VBAじゃないの？

>>995
その違いがよく判らないのですが
いずれにせよいったいどうしたら又は何を買えばVisual　Basicのコマンドのリファレンスが手に入るのでしょうか
みなさんいったいどうやって手に入れているのですか？

>>996
わたしは複乳さんにメールで送ってもらったけど、どこかネットで探せば見つかるんじゃ？

>>997
お前が送ってやれよｗ

F1キー押せよ

http://pc11.2ch.net/test/read.cgi/bsoft/1270542226/
つぎ

このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。